下面来讲讲RegExp对象：
Vbs提供了针对正则表达式的一个非常实用的类，就是RegExp
Global属性：代表全局匹配 IgnoreCase属性：大小写忽略 Pattern属性：正则表达式 Execute方法：匹配搜索，返回匹配结果集合 Replace方法：匹配代替，返回替代匹配结果 Test方法：测试匹配，返回布尔类型 |
下面举几个实例：
'判断正则匹配是否正确 '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 |
