UFT Function to check the presence of an item in a WebTable

'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Function Name                    : SearchItemInWebTable(ByVal TestObject, ByVal SearchText, ByVal SearchTextInColumn, ByVal ExpectedResult)
'Function Description             : Function to validate the presence of an item in a webtable
'Data Parameters                  : TestObject:- Specify the WebTable. eg: Browser("-----").Page("-----").WebTable("-----")
'                                   SearchText:- Specify the text to search in the WebTable. eg: "Cruises"
'                                   SearchTextInColumn:- Specify the column in which text is to be searched as long. eg: 2
'                                   ExpectedResult:- Specify TRUE or FALSE, TRUE if the item should exist in the webtable and FALSE if it should not
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Function SearchItemInWebTable(ByVal TestObject, ByVal SearchText, ByVal SearchTextInColumn, ByVal ExpectedResult)
   'in case of any errors
   On Error Resume Next
   'checking whether the object exist
   ObjectExist = TestObject.Exist(10)
   If ObjectExist Then
    'setting MatchFound as false
    MatchFound = FALSE
    'finding the total number of rows in the webtable
    TotalRows = TestObject.RowCount
    'looping in the webtable until a match is found
    For CRow = 1 to TotalRows
     'checking whether Searched Text is found
     If SearchText = Trim(TestObject.GetCellData(CRow, SearchTextInColumn)) Then
      'setting MatchFound as true
      MatchFound = TRUE
      Exit For
     End If
    Next
    If ExpectedResult Then   
     'in case a match is found
     If MatchFound Then
      'reporting pass if specified item is found in the webtable
    Reporter.ReportEvent micPass, "Specified Item Found", "Specified item " & SearchText & " is present in the web table."
    'setting function value
    SearchItemInWebTable = TRUE
    'in case match is not found
     ElseIf Not MatchFound Then
    'reporting error if specified item is not found in the webtable
    Reporter.ReportEvent micFail, "Cannot Find Specified Item", "Cannot find the specified item " & SearchText & " in the web table."
    'setting function value
    SearchItemInWebTable = FALSE
     End If
    ElseIf Not ExpectedResult Then
     'in case a match is found
     If MatchFound Then
      'reporting error if specified item is found in the webtable
    Reporter.ReportEvent micFail, "Specified Item Found", "Specified item " & SearchText & " is present in the web table contrary to what was expected."
    'setting function value
    SearchItemInWebTable = FALSE
    'in case match is not found
     ElseIf Not MatchFound Then
    'reporting error if specified item is not found in the webtable
    Reporter.ReportEvent micPass, "Cannot Find Specified Item", "Cannot find the specified item " & SearchText & " in the web table as expected."
    'setting function value
    SearchItemInWebTable = TRUE
     End If             
    End If
   ElseIf Not ObjectExist Then
   'reporting error if the specified object is not found
  Reporter.ReportEvent micFail, "Cannot Find The Object", "Object specified in function call cannot be found."
   End If
End Function

'setting the web table as the test object for the function
Set MyWebTable = Browser("QTP Function to Click").Page("QTP Function to Click").WebTable("Sl. No")
'calling the function to check whether student Mahesh is present in the web table
Call SearchItemInWebTable(MyWebTable, "Mahesh", 2, TRUE)
'calling the function to validate the absence of student Basheer in the web table
Call SearchItemInWebTable(MyWebTable, "Basheer", 2, FALSE)
'calling the function to check whether student Basheer is present in the web table
Call SearchItemInWebTable(MyWebTable, "Basheer", 2, TRUE)
'calling the function to validate the absence of student Mahesh in the web table
Call SearchItemInWebTable(MyWebTable, "Mahesh", 2, FALSE)
'alternate usage of the function. Function returns TRUE or FALSE for the condition
FoundPassedStudent = SearchItemInWebTable(MyWebTable, "Mahesh", 2, TRUE)
'custom error reporting
If FoundPassedStudent Then
 Reporter.ReportEvent micPass, "Found Passed Student", "Student Mahesh was found in the table of passed students."
End If