去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 交通频道 作文范文 一只海雁的故事 我的清明假期 小学安全教育演讲稿 经典爱情表白词 年轮里的书香飘袅 2015年春节拜年短信 四十二行 墓上清明 女孩,可不可以多爱自己一些~ 写美景的作文50字 23岁以后,过自己想过的日子 市信访局“三严三实”专题教育民主生活会工作方案 那一刻,我永远不会忘记作文900字 黄山400作文 延路!金闪闪 烟叶收购质检组工作总结 那些让你明白道理给你正能量的感悟句子 你,我,她 小学小考作文350字:包棕之乐 老鼠生活作文650字 个人年终总结范本 当你相信时,它就会发生 善待自己是一种福分 余秋雨散文读后感范文 放下该放下的,坚持该坚持的 什么是最好的教育读后感 重渡沟一游400字 小学六年级作文600字:我好想遨游太空 一根油条的爱情 二年级体育第二学期教学工作计划 关于描写大雪的唯美语句:是不是下着雪我们不打伞,就能一起到白头 童年糗事作文750字 我和姐姐去超市 10位平时的超女(修改)500字 审计局十二五工作总结 市房管局廉政作风建设总结 在邓丽君的歌声里成长 时光流逝作文 生命的绽放作文1000字 幻作文600字 静候秋临250字 Air-conditioners作文600字 中秋节为什么要赏月 县农业招商引资工作实施方案两篇 穿过时光的河 中华魂作文900字 描写乐器工艺的好句 最浪漫的女朋友道歉送花祝福语 党员教育片观后感范文 故乡人

Copyright © 2016 phpStudy |