繁體中文当前位置: 首页 > 图文教程 > 网络编程 > 正则表达式 > 去html代码的正则 推荐
- 正则表达式
- js:正则处理超文本流
- 正则表达式高级学习技巧
- 用正则表达式来表示中文
- 正则表达式，相关链接
- js:日期正则表达式及检测
- 正则表达式检查来访IP是否合法的实际应用
- 正则表达式简单的检查输入email是否合法程序
- VBscript 的正则表达式 字符串匹配
- 比较不错的C#中的常用的正则表达式
- EditPlus 正则替换图片ubb替换成img
- 向大家推荐一个收集整理正则表达式的网站
- 正则表达式详述第一部
- 正则表达式详述 二
- 正则表达式详述 三
- 正则表达式详述 四
- 正则(JS)re=new RegExp("^\\d*$");与re=/^\d*$/;之间区别?
- 用正则按最后一个"_"分割"字符
- [PHP]常用正则表达式收集
- 一个非常不错的一个正则练习JS版
- js正则匹配table tr
正则表达式 中的 去html代码的正则 推荐
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-10 浏览: 70 ::
收藏到网摘: n/a
复制代码 代码如下:
'==================================================
'函数名：ScriptHtml
'作 用：过滤html标记
'参 数：ConStr ------ 要过滤的字符串
'==================================================
Function ScriptHtml(Byval ConStr,TagName,FType)
Dim Re
Set Re=new RegExp
Re.IgnoreCase =true
Re.Global=True
Select Case FType
Case 1
Re.Pattern="<" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
Case 2
Re.Pattern="<" & TagName & "([^>])*>.*?</" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
Case 3
Re.Pattern="<" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
Re.Pattern="</" & TagName & "([^>])*>"
ConStr=Re.Replace(ConStr,"")
End Select
ScriptHtml=ConStr
Set Re=Nothing
End Function
1 content=ScriptHtml(content,"br",1) ‘去掉所有<br>HTML标记
2 content=ScriptHtml(content,"a",2) ‘去掉所有<a></a>和两个标记之间的内容
如 <a href=www.126.com>www.126.com</a> 把这一段全去了
3 content=ScriptHtml(content,"td",3) ‘去掉<td>和</td>HTML标记
如 <td>士大夫撒</td> 把<td> </td> 去掉了 但士大夫撒还保留
依次类推把其他HTML标记都过滤了 div objdect什么的 自己看吧
评论 (0) All
