Function RemoveHTML(strHTML)    '過濾HTML代碼的函數(shù)包括過濾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>"

 '進行匹配

 Set Matches = objRegExp.Execute(strHTML)

 

 ' 遍歷匹配集合，并替換掉匹配的項目

 For Each Match in Matches 

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

 Next


  '取閉合的<>

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

 '進行匹配

 Set Matches = objRegExp.Execute(strHTML)

 

 ' 遍歷匹配集合，并替換掉匹配的項目

 For Each Match in Matches 

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

 Next


  '取閉合的<>

 objRegExp.Pattern = "<.+?>"

 '進行匹配

 Set Matches = objRegExp.Execute(strHTML)

 

 ' 遍歷匹配集合，并替換掉匹配的項目

 For Each Match in Matches 

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

 Next


 RemoveHTML=strHTML

 Set objRegExp = Nothing

End Function