|
For i=1 to Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").RowCount
for j=1 to Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").ColumnCount(1)
dim a(i,j)
a=Msgbox Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").GetCellData(i,j)
if a
next
next
现在想对循环显示出来的某一列某一行的数值作判断,要是等于某个字符串,就写入结果,请问要怎么写.要把msgbox循环的到的值赋给一个数组么?谢谢
请问我这样写对不对:
For i=1 to Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").RowCount
for j=1 to Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").ColumnCount(1)
dim a(i,j)
a=Msgbox Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").GetCellData(i,j)
If a="qtest".Exist Then
Reporter.ReportEvent micPass,"qtptest已存在", "数据存储中已创建qtptest,不允许创建同名的存储."
End If
next
next
Reporter.ReportEvent micPass,"qtptest已存在", "数据存储中已创建qtptest,不允许创建同名的存储." |
|