【软件测试自动化-QTP系列讲座 28】==正则表达式的应用 ==

Rss订阅IQuickTest（关于如何订阅？）

作者：zzxxbb112
时间：2010/2/23 版权所有，侵权必究。

出处：http://blog.****.net/zzxxbb112

正则表达式相信很多朋友都不陌生，它是一个非常常用的技术，不管是在什么语言中，今天我们就来看一下QTP中正则表达式的应用。

• 描述性编程的应用

systemutil.Run "iexplore.exe","www.baidu.com" Browser("title:=.*").Page("name:=.*").WebEdit("name:=wd").Set "zzxxbb112"

当我们在使用描述性编程时，我们可以使用正则来代替长标题

• VBS中REGEXP的应用

在VBS中有一个叫REGEXP的类，它提供了简单的正则支持

Function RegExpTest(patrn, strng) Dim regEx, Match, Matches ' Create variable. Set regEx = New RegExp ' Create a regular expression. regEx.Pattern = patrn ' Set pattern. regEx.IgnoreCase = True ' Set case insensitivity. regEx.Global = True ' Set global applicability. Set Matches = regEx.Execute(strng) ' Execute search. For Each Match in Matches ' Iterate Matches collection. RetStr = RetStr & "Match found at position " RetStr = RetStr & Match.FirstIndex & ". Match Value is '" RetStr = RetStr & Match.Value & "'." & vbCRLF Next RegExpTest = RetStr End Function MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

以上脚本是F1中提供的regexp的一个例子，非常经典！

• 隐藏保留对象micRegExpMatch

micRegExpMatch.Initialize "t.*" msgbox micRegExpMatch.Compare("test")

执行以上代码我们可以看到弹出了TRUE的消息框，说明代码没问题。接下来重点说一下此对象的来源，此对象是QTP中的一个隐藏的保留对象，在QTP的帮助文档也没有任何的说明，这里简单介绍一下。

首先我们打开注册表，运行regedit，进入到HKEY_LOCAL_MACHINE –> SOFTWARE –> MERCURY INTERACTIVE –> QUICKTEST APPLICATION –> MICTEST –> RESERVEDOBJECTS 这个保留对象目录下，在这个目录中我们可以看到所有QTP的保留对象。

我们可以看到micRegExpMatch这个对象中的PROGID为mercury.CompareRegExp,接着我们试试在VBS里创建一下此对象

Initialize方法是我们需要初始化的正则表达

Compare主要是我们需要比较的字符串，并返回比较的状态，代码如下

Set rege = CreateObject("mercury.compareregexp") rege.Initialize "t.*" MsgBox rege.Compare ("test")

如果我们直接在VBS里运行此代码，会报错“找不到指定模块”

这主要是因为此对象是QTP独用的保留对象，不能在外部使用，因此我们只能把代码黏贴到QTP中执行，这样就不会出现以上的错误情况。这样就和之前的最先前的脚本达到了相同的效果。

注意事项：

建议大家在使用此对象时，尽量自己创建此对象的实例，而不要去用QTP隐藏的micRegExpMatch对象实例，因为一方面自己创建可以任意起对象名，另一个方面可以有代码提示，若直接使用micRegExpMatch是没有代码提示，点不出任何效果，大家可以试试（10.0中代码提示才有效）