'判斷正則匹配是否正確 'msgbox (IsRegMatch("a123","http://www.123.456.com")) Function IsRegMatch(patrn,str) Dim regEx Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = False IsRegMatch = regEx.Test(str) Set regEx = nothing End Function '替換匹配字符串 'msgbox (ReplaceRegMatch("9","loader runner 9.0, qtp 9.0","10")) Function ReplaceRegMatch(patrn,str,replaceStr) Dim regEx Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = False regEx.Global = True 'false的時候只會替換第一個匹配的字符串。若為true則會替換所有匹配的字符串 ReplaceRegMatch = regEx.Replace(str,replaceStr) End Function '返回匹配內容 'returnRegMatch "qtp .","qtp 1 qtp 2 qtp3 qtp 4" Function ReturnRegMatch(patrn,str) Dim regEx,matches,match Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = true regEx.Global = true '打開全局搜索 Set matches = regEx.Execute(str) For Each match in matches print cstr(match.firstIndex) + " " + match.value + " " + cstr(match.length) Next End Function |