'引用Microsoft VBScript Regular Expressions 5.5
Public Function HtmlReplace(htmlString As String, replaceString As String) As String
Dim re As New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<[^ >]*>" HtmlReplace = re.replace(htmlString, replaceString)
Set re = Nothing
End Function