在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/