qtp/vbscript:如何从字符串中删除所有URL?

这应该可以做到这一点,尽管您的URL将需要以http://或https://开头,以便获取它们:

Dim text
text = "<your text with URLs here>"

Dim rgx
Set rgx = New RegExp
rgx.IgnoreCase = True
rgx.Global = True
rgx.Pattern = "([A-Za-z]{3,9})://([-;:&=\+\$,\w]+@{1})?([-A-Za-z0-9\.]+)+:?(\d+)?((/[-\+~%/\.\w]+)?\??([-\+=&;%@\.\w]+)?#?([\w]+)?)?"

Dim match, matches
Set matches = rgx.Execute(text)
For Each match in matches
  MsgBox match.Value, 0, "Found Match"
Next

用于匹配URL的regex模式来自 Chris Freyer's blog 并且似乎可以处理您可能遇到的大多数类型的URL。它在我用它进行的测试中工作得很好。