kaixin100 发表于 2007-12-4 16:52:25

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

我在做测试的时候录制到如下代码：
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:58

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:18

回复 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:41

注意你的这一句:

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

kaixin100 发表于 2007-12-7 18:35:01

回复 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:41

TreeView Click, "ObjectIndex=1;\;ItemText="+string1 , "Location=Button"
注：+号的前面有“ ，你的写法是不一样的，呵呵，你写在”里面当然不能通过。

kaixin100 发表于 2007-12-10 20:22:03

谢谢各位先！
经过研究发现脚本是没有问题的
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:27

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

geniar 发表于 2007-12-12 18:04:44

恭喜啊，其实思路知道就行了，重点自己怎么去摸索．
页: [1]
查看完整版本: 如何将下面录制的代码用循环的方法修改