google搜索 站内搜索                 软件测试门户 | 软件测试培训 | 文章资料精选 | 软件测试论坛 | 测试解决方案 | 软件测试博客 | 测试招聘求职 
打印

[原创] 如何将下面录制的代码用循环的方法修改

如何将下面录制的代码用循环的方法修改


我在做测试的时候录制到如下代码:
  Window SetContext, "Caption=C/C++", ""
    TreeView Click, "ObjectIndex=1;\;ItemText=project0", "Location=Button"

    Window SetContext, "Caption=C/C++ ", ""
    TreeView Click, "ObjectIndex=1;\;ItemText=project1", "Location=Button"

    Window SetContext, "Caption=C/C++", ""
    TreeView Click, "ObjectIndex=1;\;ItemText=project2", "Location=Button"

     Window SetContext, "Caption=C/C++", ""
    TreeView Click, "ObjectIndex=1;\;ItemText=project3", "Location=Button"

它的功能是:删除4个工程:project0,project1,project2,project3,
请问高手如何用循环的方法删除4个工程,因为我在录制的时候要删除上百个工程,挨个录制,脚本太长了。
请高手指点。

TOP

Dim string1  
    For i=1 to 100 step 1
    string1 = "project"&str(i)
     Window SetContext, "Caption=C/C++", ""
     TreeView Click, "ObjectIndex=1;\;ItemText="+string1 , "Location=Button"
     Next i
楼主试下这个....看行不行,我没有验证啊,呵呵

TOP

回复 2# 的帖子


试了一下,不行啊,请问&和+怎么用啊?我把脚本修改了2次回放都不成功:
第一次:
Dim string1  
    For i=1 to 100 step 1
    string1 = "project"&str(i)
     Window SetContext, "Caption=C/C++", ""
     TreeView Click, "ObjectIndex=1;\;ItemText=+string1" , "Location=Button"
     Next i
第二次:
Dim string1  
    For i=1 to 100 step 1
    string1 = "project"&str(i)
     Window SetContext, "Caption=C/C++", ""
     TreeView Click, "ObjectIndex=1;\;ItemText=string1" , "Location=Button"
     Next i

请问到底怎么回事啊?

TOP

注意你的这一句:


"ObjectIndex=1;\;ItemText=string1"改成"ObjectIndex=1;\;ItemText=string1" & stirng1
就可以了

TOP

回复 4# 的帖子


谢谢你的提示,
是这样吗:
Dim string1  
    For i=1 to 100 step 1
    string1 = "project"&str(i)
     Window SetContext, "Caption=C/C++", ""
     TreeView Click, "ObjectIndex=1;\;ItemText=&string1" , "Location=Button"
     Next i

还是不行,编译都通不过,郁闷。。。

TOP

TreeView Click, "ObjectIndex=1;\;ItemText="+string1 , "Location=Button"
注:+号的前面有“ ,你的写法是不一样的,呵呵,你写在”里面当然不能通过。
IF (喜欢测试)
   欢迎交流
   +MSN(rainbluesoul@hotmail.com  please say from 51test)
ELSE
   +QQ
return(我的青春在哪儿)

TOP

谢谢各位先!
经过研究发现脚本是没有问题的
Dim string1  
    For i=1 to 100 step 1
    string1 = "project"&str(i)
     Window SetContext, "Caption=C/C++", ""
     TreeView Click, "ObjectIndex=1;\;ItemText="+string1 , "Location=Button"

但是问题在于 :string1 = "project"&str(i),得到的string1=project 1(注意project和1之间有一个空格),而不是string1=project1,所以回放不成功
请问怎么才能使 string1=project1(project和1之间不要有空格)啊?
谢谢各位了!!!

TOP

兄弟们,问题解决了,将string1 = "project"&str(i)改成string1 = "project"&cstr(i),就可以得到string1=project1了!!!
谢谢各位了。

TOP

恭喜啊,其实思路知道就行了,重点自己怎么去摸索.
IF (喜欢测试)
   欢迎交流
   +MSN(rainbluesoul@hotmail.com  please say from 51test)
ELSE
   +QQ
return(我的青春在哪儿)

TOP

 
当前时区 GMT+8, 现在时间是 2008-12-6 00:10Copyright(C)上海博为峰软件技术有限公司 2001-2007 电话:021-64471599-8017
当您在访问网站、论坛及博客过程中遇到问题时可发送email:webmaster@51testing.com或发送论坛短信至管理员风在吹