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

kaixin100

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

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

试了一下，不行啊，请问&和+怎么用啊？我把脚本修改了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

请问到底怎么回事啊？

村上舞!舞!舞

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

kaixin100

谢谢你的提示，
是这样吗：
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

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

kaixin100

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

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

geniar

恭喜啊，其实思路知道就行了，重点自己怎么去摸索．