TA的每日心情 | 开心 2015-10-19 13:26 |
---|
签到天数: 2 天 连续签到: 2 天 [LV.1]测试小兵
|
本帖最后由 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
复制代码 |
|