Function RemoveHTML(strHTML)    '過(guò)濾HTML代碼的函數(shù)包括過(guò)濾CSS和JS 

StrHtml = Replace(StrHtml,vbCrLf,"") 

StrHtml = Replace(StrHtml,Chr(13)&Chr(10),"") 

StrHtml = Replace(StrHtml,Chr(13),"") 

StrHtml = Replace(StrHtml,Chr(10),"") 

StrHtml = Replace(StrHtml," ","") 

StrHtml = Replace(StrHtml,"    ","") 

 Dim objRegExp, Match, Matches  

 Set objRegExp = New Regexp 

 objRegExp.IgnoreCase = True 

 objRegExp.Global = True 

 '取閉合的<> 

 objRegExp.Pattern = "<style(.+?)/style>" 

 '進(jìn)行匹配 

 Set Matches = objRegExp.Execute(strHTML) 

 ' 遍歷匹配集合，并替換掉匹配的項(xiàng)目 

 For Each Match in Matches  

 strHtml=Replace(strHTML,Match.Value,"") 

 Next 

  '取閉合的<> 

 objRegExp.Pattern = "<script(.+?)/script>" 

 '進(jìn)行匹配 

 Set Matches = objRegExp.Execute(strHTML) 

 ' 遍歷匹配集合，并替換掉匹配的項(xiàng)目 

 For Each Match in Matches  

 strHtml=Replace(strHTML,Match.Value,"") 

 Next 

  '取閉合的<> 

 objRegExp.Pattern = "<.+?>" 

 '進(jìn)行匹配 

 Set Matches = objRegExp.Execute(strHTML) 

 ' 遍歷匹配集合，并替換掉匹配的項(xiàng)目 

 For Each Match in Matches  

 strHtml=Replace(strHTML,Match.Value,"") 

 Next 

 RemoveHTML=strHTML 

 Set objRegExp = Nothing 

End Function

您可能感興趣的文章:

相關(guān)文章

最新密碼驗(yàn)證正則表達(dá)式
這篇文章主要為大家分享了最新密碼驗(yàn)證正則表達(dá)式，密碼形式可以根據(jù)開(kāi)發(fā)需求進(jìn)行設(shè)定,具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下
2016-11-11
正則表達(dá)式（regex)入門(mén)、元字符(特殊字符)學(xué)習(xí)與提高
這篇文章主要介紹了正則表達(dá)式（regex)入門(mén)、元字符(特殊字符),需要的朋友可以參考下
2015-10-10
IPV4和IPV6正則表達(dá)式的深入講解
這篇文章主要給大家介紹了關(guān)于IPV4和IPV6正則表達(dá)式的相關(guān)資料，文中介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧
2020-12-12
正則表達(dá)式提取img的src
這篇文章主要介紹了正則表達(dá)式提取img的src,需要的朋友可以參考下
2014-08-08
$正則表達(dá)式[\s\S]*與[\w\W]* 什么意思$
正則表達(dá)式[\s\S]*與[\w\W]* 什么意思
很多人咨詢(xún)[\s\S]*與[\w\W]* 什么意思，不是有.了嗎，那么它們的組合，表示所有的都匹配，與它相對(duì)應(yīng)的，有[\w\W]等，意義完全相同,需要的朋友可以參考下
2020-03-03
正則刪除字符串左、右或兩端的空格經(jīng)驗(yàn)總結(jié)
我們經(jīng)常需要獲取文本框中用戶(hù)輸入的信息，然后通過(guò)ajax或form提交到后臺(tái),數(shù)據(jù)中難免要包含一些空格,因此我們有必要在將數(shù)據(jù)傳輸?shù)胶笈_(tái)之前，消除數(shù)據(jù)兩端的空格，看一看希望可以幫助到你
2013-03-03
十分鐘上手正則表達(dá)式上篇
正則表達(dá)式(regular expression)描述了一種字符串匹配的模式（pattern），可以用來(lái)檢查一個(gè)串是否含有某種子串、將匹配的子串替換或者從某個(gè)串中取出符合某個(gè)條件的子串等
2021-10-10
經(jīng)典JavaScript正則表達(dá)式實(shí)戰(zhàn)(附pdf)
本文不是使用Dreamweaver編輯，以下測(cè)試代碼可能已經(jīng)在賦值粘貼的過(guò)程做了一些調(diào)整，可能執(zhí)行失效?？梢詤⒖?/div> 2012-06-06
正則表達(dá)式日常收集整理(簡(jiǎn)單且實(shí)用)
正則表達(dá)式，又稱(chēng)正規(guī)表示法、常規(guī)表示法。正則表達(dá)式的功能非常的強(qiáng)大，下面是小編日常收集整理的有關(guān)正則表達(dá)式常用知識(shí)，感興趣的朋友一起學(xué)習(xí)吧
2016-08-08
js Abba逆向前瞻正則匹配實(shí)例
這篇文章主要介紹了js Abba逆向前瞻正則匹配實(shí)例,主要是使用正則表達(dá)式的零寬斷言進(jìn)行判斷，需要的朋友可以參考下
2016-12-12