在QTP的Select方法中使用正则表达式

方法1：

Function RegexSelectQTP(Object, sPattern)

       Dim oRegExp, arrAllItems, ix

 

       'Create RegExp Object

       Set oRegExp = New RegExp

       oRegExp.IgnoreCase = False

       oRegExp.Pattern = sPattern

 

       'Split Object's all_items property

       arrAllItems = Split(Object.GetROProperty("all items"), ";")

       For ix = LBound(arrAllItems) To UBound(arrAllItems)

              'If RegExp pattern matches list item, we're done!

              If oRegExp.Test(arrAllItems(ix)) Then

                     Object.Select "#" & ix

                     Set oRegExp = Nothing

                     Exit Function

              End If

       Next

 

       'Select Item #1 by default

       Object.Select "#0"

End Function

RegisterUserFunc "WebList", "RegexSelectQTP", "RegexSelectQTP"

 

使用的例子：

Browser("").Page("").WebList("").RegexSelectQTP "London - Heathrow" 'Select London-Heathrow

Browser("").Page("").WebList("").RegexSelectQTP "London - Heath.*"  'Select London-Heathrow

Browser("").Page("").WebList("").RegexSelectQTP "London - /D+"      'Select London-Heathrow

 

 

方法2：

 

Function RegexSelectDOM(Object, sPattern)

       Dim oRegExp, oOptions, ix

 

       'Create RegExp Object

       Set oRegExp = New RegExp

       oRegExp.IgnoreCase = False

       oRegExp.Pattern = sPattern

 

       'DOM options

       Set oOptions = Object.Object.Options

       For ix = 0 to oOptions.Length - 1

              'If RegExp pattern matches list item, we're done!

              If oRegExp.Test(oOptions(ix).Text) Then

                     Object.Select "#" & ix

                     Set oRegExp = Nothing

                     Exit Function

              End If

       Next

 

       'Select Item #1 by default

       Object.Select "#0"

End Function

RegisterUserFunc "WebList", "RegexSelectDOM", "RegexSelectDOM"

 

使用的例子：

 

 

 

方法3：

这种方法并没有使用正则表达式，而是使用了VBS中的InStr和Mid方法

Public Function VBSSelect(Object, sString)

       Dim sAllItems, varLocation, varEnd, varBeginning

 

       'Retrieve Object's all_items property

       sAllItems = Object.GetROProperty("all items")

 

       'Verify if the supplied string is found in list's all_items property

       varLocation = InStr(1, sAllItems, sString)

       'If found:

       If varLocation > 0 Then

        varEnd = InStr(varLocation, sAllItems, ";")

              If varEnd = 0 Then varEnd = Len(sAllItems) + 1

              varBeginning = InStrRev(sAllItems, ";", varLocation)

              Object.Select "" & Mid(sAllItems, varBeginning + 1, varEnd - varBeginning - 1)

              Exit Function

       End If

 

       'Select Item #1 by default

       Object.Select "#0"

End Function

RegisterUserFunc "WebList", "VBSSelect", "VBSSelect"

 

使用的例子：

Browser("").Page("").WebList("").VBSSelect "London - Heathrow" 'Select London-Heathrow

Browser("").Page("").WebList("").VBSSelect "London - Heath"    'Select London-Heathrow

Browser("").Page("").WebList("").VBSSelect "London - "         'Select London-Heathrow

 

 

三种方法的执行效率比较：

Run Mode	Normal	Fast
RegexSelectQTP	0.44 s	0.38 s
RegexSelectDOM	0.45 s	0.40 s
VBSSelect	0.39 s	0.35 s

 

 

 

参考：

http://relevantcodes.com/regular-expressions-with-select-method-listbox/