QTP VBScript RegExp对象的运用-自动化测试

　　下面来讲讲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

　　以上内容为大家介绍了自动化测试中的QTP VBScript RegExp对象的运用，本文由多测师亲自撰写，希望对大家有所帮助。了解更多自动化测试相关知识：https://www.aichudan.com/xwzx/