模糊查询结果核对。

从查询结果下方，显示的记录数中获取行数，然后核对每一行查询的结果是否正确。

“角色名”查询框中输入“角色”二字，模糊查询所有含“角色”二字的角色名称。

 

'获取查询结果行数
text=Browser("主页").Page("主页").Frame("Frame").WebElement("从1 到 10 条记录——总记录数为 12").GetROProperty("outertext")
num1=instr(1,text,"为")            '记录数前的字符位置
num2=instr(1,text,"条 (全部")       '记录数后的字符位置
coun=num2-num1                     '记录数字所占的位数
rows=mid(text,num1+1,coun-1)
reporter.ReportEvent  micDone ,"查询结果记录条数为"&rows,""

 

'比对查询结果是否正确。

For j=1 to rows
    i=2
    rolename=Browser("主页").Page("主页").Frame("Frame").WebTable("角色名称").GetCellData(i,2)
    pipei=instr(1,rolename,"角色")
    If pipei=0 Then
        reporter.ReportEvent  micFail,"结果有误","角色有误，pipei值为："&pipei
  else
  reporter.ReportEvent  micPass,"存在“角色”二字，查询正确","pipei值为："&pipei
    End If
 i=i+1
Next