多测师是一家拥有先进的教学理念,强大的师资团队,业内好评甚多的接口自动化测试培训机构!

17727591462

联系电话

您现在所在位置:接口自动化测试培训 > 新闻资讯

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

更新时间:2022-05-11 09:06:29 作者:多测师 浏览:46

  下面来讲讲RegExp对象:

  Vbs提供了针对正则表达式的一个非常实用的类,就是RegExp

  Global属性:代表全局匹配

  IgnoreCase属性:大小写忽略

  Pattern属性:正则表达式

  Execute方法:匹配搜索,返回匹配结果集合

  Replace方法:匹配代替,返回替代匹配结果

  Test方法:测试匹配,返回布尔类型

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

  下面举几个实例:

  '判断正则匹配是否正确

  '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/

联系电话

17727591462

返回顶部