復(fù)制代碼 代碼如下:

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