QTP: Working With SiebList (Revised)

'--------------------------------------------------------
' Name: Function GetSiebListRecords
'
' Remarks: N/A
'
' Purpose: Retrieve the number of records (rows) from a Siebel List
'    using short-cut keys ctrl+shift+3
'    
' Arguments:
'    sBrowserTitle: Title of the Siebel Browser
'
' Return: Integer
'
' Author: Anshoo Arora, Relevant Codes
'
' Date: 03/17/2010
'
' References: N/A
'--------------------------------------------------------
Function GetSiebListRecords(sBrowserTitle)
    Dim oWScript, oRegExp, oMatches, sText
 
    GetSiebListRecords = -1
 
    Window("hwnd:=" & Browser("title:=" & sBrowserTitle).Object.HWND).Activate
 
    Set oWScript = CreateObject("WScript.Shell")
    oWScript.SendKeys "^+3"
 
    With Browser("opentitle:=SiebWebPopupWindow")
        While Not .Exist(0)
            Wait(2)
        Wend
 
        sText = .WebElement("innertext:=.*records.*", "index:=1").GetROProperty("innertext")
 
        Window("hwnd:=" & .Object.HWND).Close
    End With
 
    Set oRegExp = New RegExp
    oRegExp.Global = False
    oRegExp.Pattern = "\d+"
 
    Set oMatches = oRegExp.Execute(sText)
 
    If oMatches.Count > 0 Then GetSiebListRecords = CInt(oMatches(0))
 
    Set oWScript = Nothing
    Set oRegExp = Nothing
    Set oMatches = Nothing
End Function

'--------------------------------------------------------
' Name: Function GetSiebListRecords
'
' Remarks: N/A
'
' Purpose: Retrieve the number of records (rows) from a Siebel List
'    using RecordCounter
'    
' Arguments:
'    oSiebApplet: Reference to the SiebApplet Hierarchy
'    sUINameSiebList: UIName of SiebList
'
' Return: Integer
'
' Author: Anshoo Arora, Relevant Codes
'
' Date: 03/17/2010
'
' References: N/A
'--------------------------------------------------------
Function GetSiebListRecords(oSiebApplet, sUINameSiebList)
    Dim iCnt
 
    If InStr(1, sUINameSiebList, "uiname") <> 0 Then
        sUINameSiebList = Trim(Split(sUINameSiebList, ":=")(1))
    End If
 
    iCnt = oSiebApplet.RecordCounter
 
    Do
        If Not InStr(1, iCnt, "+") <> 0 Then
            Exit Do
        Else
            oSiebApplet.SiebList("uiname:=" & sUINameSiebList).NextRowSet
            iCnt = oSiebApplet.RecordCounter
        End If
    Loop
 
    If InStr(1, iCnt, "of") <> 0 Then
        iCnt = CInt(Trim(Split(iCnt, "of")(1)))
    End If
 
    GetSiebListRecords = iCnt
End Function

'--------------------------------------------------------
' Name: Function FindSiebListRow
'
' Remarks: N/A
'
' Purpose: Find the Row from the provided Column (sColumnName) where
'    the given String (sText) exists.
'    
' Arguments:
'    oSiebApplet: Reference to the SiebApplet Hierarchy
'    sUINameSiebList: UIName of SiebList
'    sBrowserTitle: Title of the Siebel Browser
'    sColumnName: Name of the SiebList Column
'    sText: String to be searched
'
' Return: Integer
'
' Dependencies: Function GetSiebListRecords()
'
' Author: Anshoo Arora, Relevant Codes
'
' Date: 03/17/2010
'
' References: N/A
'--------------------------------------------------------
Function FindSiebListRow(oSiebApplet, sUINameSiebList, sBrowserTitle, sColumnName, sText)
    Dim iRows, iRow, sData
 
    If InStr(1, sUINameSiebList, "uiname") <> 0 Then
        sUINameSiebList = Trim(Split(sUINameSiebList, ":=")(1))
    End If
 
    'DEPENDANCY: GetSiebListRecords
    iRows = GetSiebListRecords(sBrowserTitle)
 
    With oSiebApplet.SiebList("uiname:=" & sUINameSiebList)
        .FirstRowSet
 
        For iRow = 0 to iRows - 1
            .ActivateRow iRow
 
            sData = Trim(.GetCellText(sColumnName, iRow))
 
            If CStr(sData) = CStr(sText) Then
                FindSiebListRow = iRow
                Exit Function
            End If
        Next
    End With
End Function