过滤所有HTML标记

 Function ReplaceHtmlTag(HtmlContent)
 Set re = New RegExp
 re.Pattern = "<[^>]+>"
 re.Global = True
 re.IgnoreCase = True
 re.MultiLine = True
 ReplaceHtmlTag = re.Replace(HtmlContent,"")
End Function

你可能感兴趣的:(html,function)