Function RegUrl(TheStr)
Set RegEx = New RegExp
RegEx.IgnoreCase =True
regEx.Global = True'****这一句加上是全部替换，如果不加，只替换第一个
RegEx.Pattern = "<.*?>"
RegUrl=RegEx.replace(TheStr,"")

End Function