代码如下: 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 ...
[ 查看全文 ]