51Testing软件测试论坛

标题: msgbox循环显示的结果可以做判断么 [打印本页]

作者: jacksboy 时间: 2010-5-13 09:56
标题: 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
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，不允许创建同名的存储."

作者: TIB 时间: 2010-5-13 13:09
这样试试：

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)
a=Msgbox Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息创建存储").GetCellData(i,j)

If CSTR(a) ="qtest" Then
Reporter.ReportEvent micPass,"qtptest已存在", "数据存储中已创建qtptest，不允许创建同名的存储."
End If

next
next

作者: feiyunkai 时间: 2010-5-13 14:00
标题: 这句语法错误
a=Msgbox Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息创建存储").GetCellData(i,j)

可以修改为：
a=Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息创建存储").GetCellData(i,j)
Msgbox a

作者: TIB 时间: 2010-5-13 14:10
确实，Msgbox 是多余的

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)