2009-04-21 2 views
1

QTP 테스트 프로젝트에 문자열이 있습니다. 경우에 따라이 문자열은 일반 텍스트 전자 메일 콘텐츠입니다. 다른 경우에는 HTML입니다. 두 경우 모두 문자열에서 모든 URL을 제거하여 예상 URL과 일치시킬 필요가 있습니다.QTP/VBScript : 문자열에서 모든 URL을 제거하는 방법?

어떻게 QTP/VBScript에서이 작업을 수행 할 수 있습니까?

+3

URL을 정규식과 일치시키는 것과 관련하여 몇 가지 질문이 이미 제기되었습니다. 나는 "regex url site : stackoverflow.com"에 대한 Google 검색을 통해 아이디어를 얻을 것을 제안한다. – Tomalak

답변

1

URL이 http로 시작해야합니다하지만이 트릭을 수행해야합니다 일치하는 URL에 대한

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][email protected]{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 

정규식 패턴이 Chris Freyer's blog에서 온다 : // 또는 https : 그들을 위해 픽업 할 // 발생할 수있는 대부분의 유형의 URL을 처리하는 것으로 보입니다. 그것은 내가 함께 수행 한 테스트에서 잘 작동했습니다.

관련 문제