Function RegUrl(TheStr)
Set RegEx = New RegExp
RegEx.IgnoreCase =True
regEx.Global = True'****这一句加上是全部替换,如果不加,只替换第一个
RegEx.Pattern = "<.*?>"
RegUrl=RegEx.replace(TheStr,"")
End Function
2022-04-26 01:41:25
Function RegUrl(TheStr)
Set RegEx = New RegExp
RegEx.IgnoreCase =True
regEx.Global = True'****这一句加上是全部替换,如果不加,只替换第一个
RegEx.Pattern = "<.*?>"
RegUrl=RegEx.replace(TheStr,"")
End Function
下一篇:网站分析网址