代码如下:
Function ClearJSCode(originCode)
Dim reg
set reg = New RegExp
reg.Pattern = ""
reg.IgnoreCase = True
reg.Global = True
ClearHTMLCode = reg.Replace(originCode, "")
End Function
现在好多网站的内容都是使用采集程序生成的，使用上边的代码就可以轻松的将内容中的HTML和JS代码清除掉。
当前位置: 编程技术>其它
正则表达式轻松消除HTML代码
来源: 互联网 发布时间：2014-10-15
本文导语: 一、清楚内容中的Javsscript 代码 代码如下:Function ClearJSCode(originCode) Dim reg set reg = New RegExp reg.Pattern = "" reg.IgnoreCase = True reg.Global = True ClearHTMLCode = reg.Replace(originCode, "") End Function 现在好多网站的内容都是使用采集程序生成的，使...
一、清楚内容中的Javsscript 代码
Function ClearJSCode(originCode)
Dim reg
set reg = New RegExp
reg.Pattern = ""
reg.IgnoreCase = True
reg.Global = True
ClearHTMLCode = reg.Replace(originCode, "")
End Function
现在好多网站的内容都是使用采集程序生成的，使用上边的代码就可以轻松的将内容中的HTML和JS代码清除掉。
Function ClearJSCode(originCode)
Dim reg
set reg = New RegExp
reg.Pattern = ""
reg.IgnoreCase = True
reg.Global = True
ClearHTMLCode = reg.Replace(originCode, "")
End Function
现在好多网站的内容都是使用采集程序生成的，使用上边的代码就可以轻松的将内容中的HTML和JS代码清除掉。
您可能感兴趣的文章:
本站(WWW.)旨在分享和传播互联网科技相关的资讯和技术，将尽最大努力为读者提供更好的信息聚合和浏览方式。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。