过滤所有HTML代码和CSS,JS

Function RemoveHTML(strHTML)    '过滤HTML代码的函数包括过滤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