移除HTML标签的正则表达式
摘要：复制代码代码如下:'模块名:RemoveHTML'功能:移除HTML标签'输入值:HTML代码'返回值:字符串FunctionRemoveH...
复制代码 代码如下:
' 模块名: 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
【移除HTML标签的正则表达式】相关文章：
上一篇：
表单 数字字符验证正则
下一篇：
匹配价格的正则表达式