当前位置: 首页 > 图文教程 > 网络编程 > 正则表达式 > 正则表达式轻松消除HTML代码

正则表达式
过滤所有HTML代码和CSS,JS
正则表达式的语法
JScript 和 VBScript 正则表达式
ASP.NET 中的正则表达式
我的正则
正则表达式,提取网页中的链接地址
如何删除文本框里的文字内容中段落之间多余的分行
完美替换html代码
限制文本框中只能输入实数或整数,其它字符无效,有劳大家了!
<meta>正则
正则表达式中使用变量赋值
一个正则的写法 php
正则表达式基础
正则表达式学习笔记
如何用正则取input type="text"中的value
[原创]通过脚本清空标签p中的class名和style
[原创]VBS中的正则表达式的用法大全
正则表达式的使用 ASP
去html代码的正则 推荐
正则表达式的应用

正则表达式轻松消除HTML代码


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 39 ::
收藏到网摘: n/a

正则表达式再次让我震撼,寥寥数行代码就可以完成普通代码不易实现的功能,至少是实现起来比较复杂的功能。 一、清楚内容中的Javsscript 代码
复制代码 代码如下:

Function ClearJSCode(originCode)
Dim reg
set reg = New RegExp
reg.Pattern = "<SCRIPT[^<]*</SCRIPT>"
reg.IgnoreCase = True
reg.Global = True
clearJSCode = reg.Replace(originCode, "")
End Function

二、清除内容中的HTML代码
复制代码 代码如下:

Function ClearHTMLCode(originCode)
Dim reg
set reg = new RegExp
reg.Pattern = "<[^>]*>"
reg.IgnoreCase = True
reg.Global = True
ClearHTMLCode = reg.Replace(originCode, "")
End Function

现在好多网站的内容都是使用采集程序生成的,使用上边的代码就可以轻松的将内容中的HTML和JS代码清除掉。