过滤所有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