QTP / VBScriptの：文字列からすべてのURLを削除する方法？

Question

私はQTPのテストプロジェクト内の文字列を持っています。いくつかのケースでは、この文字列は平文メールの内容です。他の例では、HTMLです。どちらの場合も、私は期待ケースに対してそれを一致させる文字列からすべてのURLを削除する必要があります。

これはQTP / VBScriptで行うことができますか？

Answer 1

この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の正規表現パターンはクリスFreyerさんのブログあなたが遭遇する可能性が高いですURLのほとんどの種類を扱うように思われます。それは私がそれで行われた試験によく働いています。