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에 대한 Regex 패턴은에서 나옵니다 Chris Freyer의 블로그 그리고 만날 가능성이 높은 대부분의 URL을 처리하는 것 같습니다. 그것은 내가 수행 한 테스트에서 잘 작동했습니다.