移除HTML标签的正则表达式_正则表达式

复制代码 代码如下:

' 模块名: 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标签的正则表达式_正则表达式的详细内容...