gpt4 book ai didi

过滤所有HTML代码中CSS,JS的正则表达式

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章过滤所有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   。

最后此篇关于过滤所有HTML代码中CSS,JS的正则表达式的文章就讲到这里了,如果你想了解更多关于过滤所有HTML代码中CSS,JS的正则表达式的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com