zoukankan      html  css  js  c++  java
  • 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
    

    最新内容请见作者的GitHub页:http://qaseven.github.io/

  • 相关阅读:
    Centos7下搭建SVN
    Ubuntu设置telnet 远程登录(root权限)
    E: 无法打开锁文件 /var/lib/dpkg/lock-frontend
    使用ICMP搭建隧道(PingTunnel)
    Centos7安装Redis
    idea 激活方法
    Chrome 浏览器安装 ChroPath 插件
    jmeter引入外部jar包的方法
    maven安装
    eclipse集成 json editor plugin插件
  • 原文地址:https://www.cnblogs.com/twodog/p/12140156.html
Copyright © 2011-2022 走看看