QTP中如何使用正则表达式（仅限一些函数）

风中一片雪

今天论坛上找到高人的函数，自己留下备份下：呵呵

1.如何使用正则表达式51Testing软件测试网_PZ;mj
首先生成正则表达式对象

m'QQt0g/uS}^'hL6@?228475Set regEx = New RegExp51Testing软件测试网-L
mP`V$W

D0v#iM8Jc4W(O#P228475然后设置正则表达式对象的属性51Testing软件测试网D5A-F
b"B8Qg
N2bg
regEx.Pattern = patrn51Testing软件测试网8K9TJ2}r3U0Q
regEx.IgnoreCase = True51Testing软件测试网,h6exE#A^%v`E
regEx.Global = True51Testing软件测试网4{+yM2W\(Yq

.y[3nh#[4z228475最后使用正则表达式的方法来实现需求
"]9s:pC8\Z228475regEx.Replace(string1, string2)51Testing软件测试网gMq_C9s!X,V|
regEx.Test(string)
&VX-Lm;g[6T228475regEx.Execute(string)
Zq1O.Lv2AN;W22847551Testing软件测试网-b(HHO*Qg#h
2.正则表达式对象的属性与方法：51Testing软件测试网%Qodvm9w6|R
属性：
:f+|6U!_)p$Q&t&@"oCS.x228475Global Property
;}M\_i/wPu228475IgnoreCase Property

O
YVF;|$U!M8Ud]M228475Pattern Property51Testing软件测试网KBe0P(H%W)[8^&v

F gg7e5XM[MX228475方法：
hgIO,YoK5y228475Execute
pbs9U'sW/g`H228475Preplace
nB_q@.E228475Test51Testing软件测试网t#gd1|&Ls#f�Kd

\%XK4`(s'AM2284753.实例：简单的字母搜索，test方法51Testing软件测试网3Xz�z^wBn?OM_|
'定义变量及初始化51Testing软件测试网o4bylG
_/hTe8]6F
Dim a,b,c
pPU5oT228475a="mooooon"51Testing软件测试网q&pl9Q#Dt+~e
b="mo*n"
&sZB#mJP2~9n22847551Testing软件测试网8Bt{)u)N
'正则表达式以及执行搜索
:X.a4?$Ef+tMYt;_228475Set myReg= New RegExp '生成正则表达式对象51Testing软件测试网S$p-N1Kv"Be"f1c
myReg.Pattern =b                   '设置正则表达式公式（必须有本语句）
[q0R0HI'|F3GWN228475myReg.IgnoreCase = True    '表示匹配时忽略大小写（非必须语句）
8T\[9sL228475myReg.Global = True   '非必须语句
5O9b0v(}{.j228475
hXV6qG0J0f1\228475c=myReg.test(a)   '执行搜索，如果在a中搜到a，则返回true，否则faulse。51Testing软件测试网{;Ql_^9].rU
'报告执行结果51Testing软件测试网s4V{)n,qA-W
If c Then
'}Kuw\~0Y2e ad228475Reporter.ReportEvent 2, "测试结果", "a中包括b"51Testing软件测试网!W~/Ur1`C
else
        CzL"{9b6lb�WKKS228475Reporter.ReportEvent 1, "测试结果", "a中不包括 b"
%hOz8s:tr!i3X3Zhs228475End If