过滤所有HTML代码和CSS,JS

无论你活成什么样貌,背地里都会有人对你说三道四。不申辩不计较一笑了之,其实就是最好的蔑视。

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

本文过滤所有HTML代码和CSS,JS到此结束。最可怕的不是有人比你优秀,而是比你优秀的人还比你更努力。小编再次感谢大家对我们的支持!

您可能有感兴趣的文章
正则表达式匹配闭合HTML标签(支持嵌套)

正值表达式匹配html标签的属性值

积累比较常用的正则表达式(例如:匹配中文、匹配html)

收集一些常用的正则表达式(匹配中文字符、匹配双字节字符、匹配HTML标记、匹配空行 and so on~~~)

用正则查找html中有id属性的html标签