正则表达式及其test方法

上一篇 / 下一篇  2007-05-14 17:33:56 / 个人分类：QTP学习

查看( 1515 ) / 评论( 0 ) / 评分( 0 / 0 )

1.     如何使用正则表达式

首先生成正则表达式对象

Set regEx = New RegExp 

 

然后设置正则表达式对象的属性

regEx.Pattern = patrn

regEx.IgnoreCase = True

regEx.Global = True

 

最后使用正则表达式的方法来实现需求

regEx.Replace(string1,string2)

regEx.Test(string)

regEx.Execute(string)

2.     正则表达式对象的属性与方法：

属性：

Global Property

IgnoreCase Property

Pattern Property

 

方法：

Execute

Preplace

Test

3.     实例1：简单的字母搜索，test方法

'定义变量及初始化

Dim a,b,c

a="mooooon"

b="mo*n"

 

'正则表达式以及执行搜索

Set myReg= New RegExp '生成正则表达式对象

myReg.Pattern =b              '设置正则表达式公式（必须有本语句）

myReg.IgnoreCase = True   '表示匹配时忽略大小写（非必须语句）

myReg.Global = True  '非必须语句

 

c=myReg.test(a)  '执行搜索，如果在a中搜到a，则返回true，否则faulse。

 

'报告执行结果

If c Then

Reporter.ReportEvent 2, "测试结果", "a中包括b"

else

Reporter.ReportEvent 1, "测试结果", "a中不包括b"

End If

4.     实例2：简单的字母搜索，test方法

'定义变量及初始化

Dim orgname,orgnameExp,myresult,myReg

orgname="    大冲"

orgnameExp=" *大冲"

 

'正则表达式以及执行搜索

Set myReg= New RegExp '生成正则表达式对象

myReg.Pattern =orgnameExp              '设置正则表达式公式（必须有本语句）

myReg.IgnoreCase = True   '表示匹配时忽略大小写（非必须语句）

myReg.Global = True  '非必须语句

 

myresult=myReg.test(orgname)  '执行搜索，如果orgname中包括orgnameExp，则返回true，否则false。

 

'报告执行结果

If myresult Then

Reporter.ReportEvent 2, "测试结果", "地址正确"

else

Reporter.ReportEvent 1, "测试结果", "地址不正确"

End If


收藏 举报

TAG: QTP学习

 

评分：0

我来说两句

Open Toolbar