HTML代码函数过滤

过滤HTML代码的函数包括过滤CSS和JS

为电脑初学者的疑难杂症提供最佳解决方案。电脑基础知识学习QQ群81158926 欢迎电脑爱好者加入。

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,"    ","")
StrHtml = Replace(StrHtml, "&", "&")
StrHtml = Replace(StrHtml, ">", ">")
StrHtml = Replace(StrHtml, "&lt;", "<")
StrHtml = Replace(StrHtml, "&nbsp;", " ")
StrHtml = Replace(StrHtml, "&quot;", """")
StrHtml = Replace(StrHtml, "<P></P>","")

Dim objRegExp, Match, Matches
Set objRegExp = Ne Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = ""
'进行匹配
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
'取闭合的<>
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