去html代码的正则 推荐,复制代码 代码如下:'================================================== '函数名:ScriptHtml '作 用:过滤html标记 '参 数:ConStr ------ 要过滤的字符串 '================================================== Function ScriptHtml(Byval ConStr,TagName,FType) Dim Re Set Re">

去html代码的正则 推荐" target="_blank">去html代码的正则 推荐


复制代码 代码如下:

'==================================================
'函数名: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什么的 自己看吧



相关阅读:
简要介绍SQL Server 2008新的事件处理系统
Oracle数据库9i在AIX环境下的性能调整
CommunityServer又称CS论坛的相关学习资料
W3C教程(8):W3C XML Schema 活动
谈谈PHP语法(2)
JDBCTM 指南:入门7-CallableStatement
在PHP中使用XML
令人期待的PHP 6.0 新语法改进及特性增强
在CentOS系统安装pop3的步骤
基于jquery的无刷新分页技术
windows常见故障及其解决办法
创建Guid 的代码
mysql+php搭建聊天室四
脚本动态生成VML
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 入党思想汇报--自我反思 初一作文500字:母爱伴随我成长 读《傻子》有感 人事专员求职简历范文 恨在心里难启齿 2013下半年双拥工作总结 阳光男孩——王际翔 校园民谣,青春的纪念品 食品安全题材年会小品剧本:冤家路窄 北京笔记,无 题(97) 2013暑假小结和新学期计划 是不是内心真的放不下 苦极便是甜作文 薄暮青山泪满衫 堂哥 【灵儿原创】今夜,你在离去 一封旧书信 穿越时空的日记 春节搞笑整人祝福语 精选中秋祝福语大全 可恶的蚊子(3)(蚊子死了)作文550字 美丽的庐山作文 米花五作文500字 美要眇兮宜修一罗光芮 高中高三作文2450字:说说《投名状》 【精品】降消项目实施方案 放雷王鞭炮 第一次进鬼屋体验恐怖650字 读《尺有所短寸有所长》有感 九日·惆怅重阳日 小学五年级作文650字:买书 尽欢颜 瞧!咱这个班 一创双优工作总结 媒体赋予广告主的形象差异 无可奈何(花落去) 初中初一作文750字:[自然--初三]雨 懒惰的猪 2015八一建军节党员红色之旅心得体会 因为我一直自卑的活着 高中高二作文900字:我是弱者 本科毕业生自我鉴定如何写 爱的瞬间… 我的“狼外婆” 中班科学教案:手生上的线条 野炊活动收获多 沈从文故居导游词 xx镇年度安全生产工作实施方案 报道350字 广东深圳高考满分作文精选

Copyright © 2016 phpStudy |