过滤所有HTML代码和CSS,JS

228 阅读 0 评论 151 点赞

我是靠谱客的博主傲娇往事，这篇文章主要介绍过滤所有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