程序员

过滤所有HTML代码和CSS,JS

作者:admin 2021-08-02 我要评论

复制代码 代码如下: FunctionRemoveHTML(strHTML)'过滤HTML代码的函数包括过滤CSS和JS StrHtml=Replace(StrHtml,vbCrLf,"") StrHtml=Replace(StrHtml,Chr(13)Chr...

在说正事之前,我要推荐一个福利:你还在原价购买阿里云、腾讯云、华为云服务器吗?那太亏啦!来这里,新购、升级、续费都打折,能够为您省60%的钱呢!2核4G企业级云服务器低至69元/年,点击进去看看吧>>>)
复制代码 代码如下:

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


原文链接:https://m.jb51.net/article/655.htm

版权声明:本文转载自网络,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。本站转载出于传播更多优秀技术知识之目的,如有侵权请联系QQ/微信:153890879删除

相关文章
  • 十月更新修复了Windows 10的Ping of De

    十月更新修复了Windows 10的Ping of De

  • Windows10 UAC弹窗太烦但又不能关?教

    Windows10 UAC弹窗太烦但又不能关?教

  • 老大手把手教我玩 Git 变基!

    老大手把手教我玩 Git 变基!

  • 在Linux终端中展示幻灯片

    在Linux终端中展示幻灯片