复制代码 代码如下:
FunctionRemoveHTML(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,"","")


DimobjRegExp,Match,Matches

SetobjRegExp=NewRegexp



objRegExp.IgnoreCase=True

objRegExp.Global=True


'取闭合的<>

objRegExp.Pattern="<style(.+?)/style>"

'进行匹配

SetMatches=objRegExp.Execute(strHTML)



'遍历匹配集合，并替换掉匹配的项目

ForEachMatchinMatches

strHtml=Replace(strHTML,Match.Value,"")

Next


'取闭合的<>

objRegExp.Pattern="<script(.+?)/script>"

'进行匹配

SetMatches=objRegExp.Execute(strHTML)



'遍历匹配集合，并替换掉匹配的项目

ForEachMatchinMatches

strHtml=Replace(strHTML,Match.Value,"")

Next


'取闭合的<>

objRegExp.Pattern="<.+?>"

'进行匹配

SetMatches=objRegExp.Execute(strHTML)



'遍历匹配集合，并替换掉匹配的项目

ForEachMatchinMatches

strHtml=Replace(strHTML,Match.Value,"")

Next


RemoveHTML=strHTML

SetobjRegExp=Nothing

EndFunction