当前位置: 首页 > 图文教程 > 网络编程 > 正则表达式 > 移除HTML标签的正则表达式

正则表达式
python 正则表达式 反斜杠(/)的麻烦和陷阱
利用正则表达式(只录入中文,数字,英文)
匹配中文的正则(GB2312/utf-8)
JavaScript 实现基础 正则表达式
正则表达式中\w不能识别中文
PHP 正则表达式验证中文的问题
php中utf-8编码下用正则表达式如何匹配汉字
PHP正则匹配图片并给图片加链接详解
PHP 正则表达式的几则使用技巧
PHP 正则表达式常用函数使用小结
常用正则表达式范例 方便表单验证
php 正则 不包含某字符串的正则表达式
用正则表达式表示不包含2950的字符串
用正则删除不包含某个字符串的行的代码
用正则表达式来判断素数的代码
关于表格的正则表达式讨论(表格)
[原创]通过脚本清空标签p中的class名和style
[原创]VBS中的正则表达式的用法大全
去html代码的正则 推荐
正则表达式的应用

移除HTML标签的正则表达式


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2010-01-10   浏览: 110 ::
收藏到网摘: n/a

移除HTML标签的正则表达式,这里是asp版本,注意是看正则的写法,软晨学习网以前也发布过类似的代码。
复制代码 代码如下:

' 模块名: RemoveHTML
' 功 能 : 移除HTML标签
' 输入值: HTML代码
' 返回值: 字符串
Function RemoveHTML(ByVal strHTML)
Dim objRegExp, Match, Matches
set objRegExp = New RegExp
Dim str: str = strHTML
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
str = objRegExp.Replace(str, "")
Set objRegExp = Nothing
RemoveHTML = str
End Function