復(fù)制代碼 代碼如下:

‘ 模塊名: RemoveHTML
‘ 功 能 : 移除HTML標(biāo)簽
‘ 輸入值: 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