Function GetRowWithText(Obj, ByVal Text, StartFromRow, RegExpression)
bReg = LCase(RegExpression)
Set oDOM = Obj.Object
If bReg Then
Set oReg = new RegExp
oReg.Pattern = Text
oReg.Global = True
oReg.IgnoreCase = True
Else
Text = UCase(Trim(Text))
End if
Dim iColStart, iRowStart
If IsNull(StartFromRow) Then
iStartRow = 0
Else
iStartRow = StartFromRow - 1
End If
Dim i,j
For i = iStartRow to oDOM.rows.length - 1
Dim rowText
'Get the text of the row
rowText = Trim(UCase(oDOM.rows(i).innerText))
If Not bReg then
If Text = cellText Then
GetRowWithText = i + 1
oDOM.rows(i).scrollIntoView
Exit Function
End If
Else
'Check if the rowText matched the pattern
If (oReg.test(rowText)) Then
GetRowWithText = i + 1
oDOM.rows(i).scrollIntoView
Exit Function
End if
End if
Next
'Nothing found lets exit
GetRowWithText = -1
End Function
RegisterUserFunc "WebTable","GetRowWithText","GetRowWithText"
Msgbox Browser("Browser").Page("Page").WebTable("Book").GetRowWithText(".*QuickTest Professional Unplugged(.|\s)*2nd.*", 2, True)