在qtp中通过string 查找并定位列表页数和行数的VBS函数

今天写了一个qtp中的VBS函数，功能：通过传入字符串来 查找并定位在table列表中的页数和行数的。

'-----------------------------------------------------------------
'function：Find pageNo, rowNo of a string in Table
'call method：define variable pageNo,rowNo in QTP before call this function
'Input parameter: obj_SelPage: SelectPage  which is QTP WebList object
'                 obj_Table:   Table  which is  QTP WebTable object
'                 pageNo:  Return index of page which string is located in list
'                          The first index in the list is numbered 0
'                 rowNo:   Return index of row which string is located 
'                          The first index in the table is numbered 1
'                 strValue: A string which you will find in Table
'                 col:     the column of table where string will match with
'                          The first col in the table is numbered 1
'Return value: 
'                  false : not find string in table
'                  true :  find string in table
'For example in QTP：
'            ExecuteFile  "..\..\Lib\Common.vbs"
'            Dim  ipage,irow
'            value=FindStrInTab(obj_Select1,obj_Table1,ipage,irow,"jane",1)
'            If value=true then
'              msgbox  ipage
'              msgbox  irow
'           
'            End If         
'-----------------------------------------------------------------
Public Function FindStrInTab(obj_SelPage, obj_Table, byref pageNo,byref rowNo,strValue, col)
 FindStrInTab=false
 num= obj_SelPage.GetROProperty("items count")
 For i =0 to num-1
  　　If  obj_SelPage.Exist Then
   　　　obj_SelPage.Select "#"&i
  　　End If
  　　If obj_Table.Exist Then
   　　　tabNum=obj_Table.GetROProperty("rows")
  　　End If

  　　For j=2 to  tabNum
   　　　If  trim(obj_Table.GetCellData(j, col))= trim(strValue) then
    　　　pageNo=i
    　　　rowNo=j
    　　　FindStrInTab=true
    　　Exit For            
   　End if
  Next
  If  FindStrInTab=true Then
       Exit For 
  End If
　Next
End Function