过滤所有HTML标记

来源:互联网 发布:剑三商城数据导入非法 编辑:程序博客网 时间:2024/05/21 10:33
 Function ReplaceHtmlTag(HtmlContent)
 Set re = New RegExp
 re.Pattern = "<[^>]+>"
 re.Global = True
 re.IgnoreCase = True
 re.MultiLine = True
 ReplaceHtmlTag = re.Replace(HtmlContent,"")
End Function
原创粉丝点击