regex - QTP/VBScript: 文字列からすべての URL を削除するには?

Question

QTP テスト プロジェクトに文字列があります。場合によっては、この文字列は平文の電子メールの内容です。それ以外の場合は HTML です。どちらの場合も、文字列からすべての URL を削除して、Expected ケースと照合する必要があります。

これは QTP/VBScript でどのように行うことができますか?

Answer 1

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 を照合するための正規表現パターンはChris Freyer のブログから引用されており、遭遇する可能性が高いほとんどの種類の URL を処理するようです。私が実行したテストではうまく機能しました。