添加表格检查点的问题

ciciyxs · 发表于 2011-3-16 19:54:42

一个歌曲名称的查询，输入“爱”，点击查询后就会出现查询结果，并以列表的形式列出。
怎样去检查该查询结果列表中的数据--歌曲名称是不是都含有“爱”这个字。

使用的关键字驱动能实现吗？还是要自己写脚本？
想了很久也想不到解决方法，求大虾们指点一下！！

shingo0109 · 发表于 2011-3-16 20:51:45

LZ可以把歌曲名称取出来后，用Instr函数进行比较，如果大于0的话就表示含有"爱"字

ciciyxs · 发表于 2011-3-17 09:43:02

LS的能不能再讲清楚一点实现步骤？
俺是菜鸟，不是太懂！！

kavensyw · 发表于 2011-3-18 17:49:59

本帖最后由 kavensyw 于 2011-3-18 17:53 编辑

Dim rownCount,findFlag,cellData,difNumber
'获取行数
rownCount=Browser("Service Desk").Page("Service Desk").WbfGrid("ctl00_cphContent_sgvTicketList").RowCount
findFlag=FALSE
difNumber=0
For i=2 to rownCount
'从第2行（第一行标题行）开始查找获取单元格内容，这里假设歌曲名称在第4列
cellData=Browser("Service Desk").Page("Service Desk").WbfGrid("ctl00_cphContent_sgvTicketList").GetCellData(i,4)
'如果获取的字符串包含"爱"，则findFlag=True
If InStr(cellData,"爱")=0 Then
findFlag=TRUE
difNumber=difNumber+1
End If
Next
If findFlag Then
msgbox "发现不包含爱。一共： "&difNumber&"处"
ELSE
msgbox "所有行都包含爱"
End If

复制代码

ciciyxs · 发表于 2011-3-22 10:15:26

非常感激上面的大虾！！！

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 添加表格检查点的问题