51Testing软件测试论坛

标题: 请教：如何参数化webedit对象名 [打印本页]

作者: renshaohai 时间: 2007-10-15 17:26
标题: 请教：如何参数化webedit对象名
请教各位大虾：如何参数化webedit对象名。
想让下面的“'循环代码”重复执行，直到intLoopCounter =10，想要参数化执行不同的对象，可是执行的结果是“Browser("节目信息新增").Page("节目信息新增").WebButton("增加一行").Click”每次都是循环执行，但“Browser("节目信息新增").Page("节目信息新增").WebEdit("multiWebEdit").Set  intLoopCounter”每次都是在上一次写入的WebEdit中重复执行。所以行数可以增加至11，可是内容每次都是在第一行叠加写入。请问该如何改写才能得到想要的结果？

dim intLoopCounter
set intLoopCounter =0
Do until  intLoopCounter=10
   intLoopCounter=intLoopCounter+1

Set  multiWebEdit = Description.Create()

multiWebEdit("name").value = "multi_" & intLoopCounter
'循环代码
Browser("节目信息新增").Page("节目信息新增").WebButton("增加一行").Click
Browser("节目信息新增").Page("节目信息新增").WebEdit("multiWebEdit").Set  intLoopCounter

End If
loop

作者: jackymail 时间: 2007-10-15 17:46
修改：
Browser("节目信息新增").Page("节目信息新增").WebEdit("multiWebEdit").Set  intLoopCounter
成
Browser("节目信息新增").Page("节目信息新增").WebEdit(multiWebEdit).Set  intLoopCounter

或者
dim intLoopCounter
set intLoopCounter =0
Do until  intLoopCounter=10
   intLoopCounter=intLoopCounter+1

'循环代码
Browser("节目信息新增").Page("节目信息新增").WebButton("增加一行").Click
Browser("节目信息新增").Page("节目信息新增").WebEdit("name:=multi_"&intLoopCounter).Set  intLoopCounter
      End If
loop

[ 本帖最后由 jackymail 于 2007-10-15 17:55 编辑 ]

作者: renshaohai 时间: 2007-10-15 17:50
请问jackymail,能不能具体的说明或者举个例子呢？因为还是不太明白。我也查看下资料先。

作者: jackymail 时间: 2007-10-15 17:52

原帖由 renshaohai 于 2007-10-15 17:50 发表
请问jackymail,能不能具体的说明或者举个例子呢？因为还是不太明白。我也查看下资料先。

我刚开始没注意看，以为你用的对象库，看到你的有""了，我修改了第一次回复，你试试看。

作者: renshaohai 时间: 2007-10-15 18:16
奇怪啊，去掉了""，应该可以了啊理论上。怎么这次报错说找不到对象WebEdit 了呢？怎么对象的名字变成WebEdit ？

作者: jackymail 时间: 2007-10-15 18:22
应该还是你的描述属性写得有问题。

作者: renshaohai 时间: 2007-10-16 15:01
头痛！jackymail！
如图，要做的功能是点击“增加一行”后，程序就会多出一行，在一般录制时第一个对象的名称叫multi，而第二个的名字叫“multi_2”，以后按照规则递增。如果是在对象探测器里查看，结果是每行的对象名称都叫“multi”，其他的属性上也只是坐标的位置不同。现在想让程序循环执行，参数化对象名。可总是提示找不到对象。

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