无论你活成什么样貌,背地里都会有人对你说三道四。不申辩不计较一笑了之,其实就是最好的蔑视。
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到此结束。最可怕的不是有人比你优秀,而是比你优秀的人还比你更努力。小编再次感谢大家对我们的支持!