代码:
'前提是进入个人空间-日志管理
with browser("个人空间管理").Page("个人空间管理")
'step1--获取webtable对象的行数和列数
trow =.WebTable("micclass:=WebTable","html id:=articlelist").rowcount'获取行数
'msgbox trow
tcoul=.WebTable("micclass:=WebTable","html id:=articlelist").columncount(1)'获取列数
'msgbox tcoul
'step2--搜索指定的日志并做相关操作
For srow = 0 To trow-1
'遍历每行第二列的值,即日志的标题
celldata=.WebTable("micclass:=WebTable","html id:=articlelist").GetCellData(srow+1,2)
'每获得一次值,都与三个指定值比较一次
For i = 1 To 3
Select Case i
Case 1
title="日志 [2014年08月13日]"
flag=instr(celldata,title)
If flag<>0 Then
set vwebcheckbox=.WebTable("micclass:=WebTable","html id:=articlelist").ChildItem(srow+1,1,"WebCheckBox",0)
vwebcheckbox.set "on"
Set vwebcheckbox=nothing
Exit for
End If
Case 2
title="测试一"
flag=instr(celldata,title)
If flag<>0 Then
set vwebcheckbox=.WebTable("micclass:=WebTable","html id:=articlelist").ChildItem(srow+1,1,"WebCheckBox",0)
vwebcheckbox.set "on"
Set vwebcheckbox=nothing
Exit for
End If
Case 3
title="测试二"
flag=instr(celldata,title)
If flag<>0 Then
set vwebcheckbox=.WebTable("micclass:=WebTable","html id:=articlelist").ChildItem(srow+1,1,"WebCheckBox",0)
vwebcheckbox.set "on"
Set vwebcheckbox=nothing
'获取日志“测试二”的发布时间并放入测试报告中
ptime=.WebTable("micclass:=WebTable","html id:=articlelist").GetCellData(srow+1,3)
reporter.ReportEvent micPass,"测试二发布于:"&ptime&"",""
End If
End Select
Next
Next
End with
知识点:
1.获取表格行数:webtable(" ").rowcount
获取某行的列数:webtable(" ").columncount(row ),需要加参数row即行号
2.获取单元格的值:webtable(" ").getcelldata(row,column)
3.获取单元格的测试对象:set object= webtable(" ").childitem(row,column,"对象类型",index)