正文

移除HTML标签的正则表达式

︶ㄣ米米素材网 メ
米米素材网V管理员 / 阅读
0311

移除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