51Testing软件测试论坛

标题: 如何将下面录制的代码用循环的方法修改 [打印本页]

作者: kaixin100    时间: 2007-12-4 16:52
标题: 如何将下面录制的代码用循环的方法修改
我在做测试的时候录制到如下代码:
  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个工程,因为我在录制的时候要删除上百个工程,挨个录制,脚本太长了。
请高手指点。
作者: geniar    时间: 2007-12-4 19:38
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
楼主试下这个....看行不行,我没有验证啊,呵呵
作者: kaixin100    时间: 2007-12-7 16:38
标题: 回复 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

请问到底怎么回事啊?
作者: 村上舞!舞!舞    时间: 2007-12-7 18:20
标题: 注意你的这一句:
"ObjectIndex=1;\;ItemText=string1"改成"ObjectIndex=1;\;ItemText=string1" & stirng1
就可以了
作者: kaixin100    时间: 2007-12-7 18:35
标题: 回复 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

还是不行,编译都通不过,郁闷。。。
作者: geniar    时间: 2007-12-7 23:58
TreeView Click, "ObjectIndex=1;\;ItemText="+string1 , "Location=Button"
注:+号的前面有“ ,你的写法是不一样的,呵呵,你写在”里面当然不能通过。
作者: kaixin100    时间: 2007-12-10 20:22
谢谢各位先!
经过研究发现脚本是没有问题的
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之间不要有空格)啊?
谢谢各位了!!!
作者: kaixin100    时间: 2007-12-10 20:47
兄弟们,问题解决了,将string1 = "project"&str(i)改成string1 = "project"&cstr(i),就可以得到string1=project1了!!!
谢谢各位了。
作者: geniar    时间: 2007-12-12 18:04
恭喜啊,其实思路知道就行了,重点自己怎么去摸索.




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2