过滤HTML代码的函数包括过滤CSS和JS:
www.qidian55.com为电脑初学者的疑难杂症提供最佳解决方案。
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, "<", "<")
StrHtml = Replace(StrHtml, " ", " ")
StrHtml = Replace(StrHtml, """, """")
StrHtml = Replace(StrHtml, "<P></P>","")
Dim objRegExp, Match, Matches
Set objRegExp = New 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