如何编写正则表达式移除HTML标签？

本文共计137个文字，预计阅读时间需要1分钟。

plaintext复制代码+代码如下：模块名：RemoveHTML功能：移除HTML标签输入值：HTML代码返回值：字符串Function RemoveHTML(ByVal strHTML) Dim objRegExp, Match, Matches Set objRegExp=New RegExp objRegExp.Pattern=]+> Set Matches=objRegExp.Execute(strHTML) For Each Match In Matches strHTML=Replace(strHTML, Match.Value, ) Next MatchEnd Function

复制代码 代码如下:
' 模块名: 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