繁體中文当前位置: 首页 > 图文教程 > 网络编程 > 正则表达式 > 正则表达式轻松消除HTML代码
- 正则表达式
- 正则在FireFox和IE下使用test的不同
- 正确使用带有"g"标记的javascript正则表达式
- 正则表达式 学习资料整理
- javascript 正则表达式用法 小结
- 正则匹配的test函数
- JavaScript 正则表达式 验证整数、小数、实数、有效位小数最简单
- 检测八位数字是否为有效日期的正则
- editplus EmEditor和searchandreplace正则表达式
- 正则应用之 日期正则表达式
- 正则表达式 学习参考 推荐入门者看
- 正则基础之 \b 单词边界
- 正则基础之 小数点
- 正则 捕获组（capture group）
- Dreamweaver 正则替换(返回调用值)
- JavaScript 表单验证正则表达式大全[推荐]
- JavaScript 使用正则表达式进行表单验证的示例代码
- 获取网址路径的正则
- 去除段首段尾的 和全角的空格的正则
- 正则表达式匹配任意字符（包括换行符）的写法
- EditPlus 正则表达式替换字符串详解
正则表达式轻松消除HTML代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 52 ::
收藏到网摘: 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代码清除掉。
评论 (0) All
