VBS循环简单的查询

Question

HELO请帮助这是代码

Option Explicit 

Dim iim1, i, s , shell 
dim iret 
dim myname, mypath 
dim pos 


'initialize iMacros instance 
set iim1= CreateObject ("iMacros") 

'i = iim1.iimOpen ("-fx", false) 'Use open Firefox instance if available 
i = iim1.iimOpen ("-fx", true) 'Always open new instance 

pos = 2 

Do while pos < 10 

iret = iim1.iimSet("loopVar",Cstr(pos)) 
iret = iim1.iimPlay("ecc2.iim") 

set shell=createobject("wscript.shell") 
shell.Run "%comspec% /c C:\Users\SDFL\Desktop\dc1.bat" 

pos = pos + 1 
loop 

行

iret = iim1.iimPlay("ecc2.iim") 

我想它来检查iret < 0后。如果是的话，我希望它具有相同的Pos值在循环中重复步骤

iret = iim1.iimSet("loopVar",Cstr(pos)) 
iret = iim1.iimPlay("ecc2.iim") 

直到iret > 0，而不会干扰主循环，如果iret > 0我希望它移动到代码的下一行。

所以这是一个循环内循环如何做到这一点？请注意价值，例如Pos如果Pos的值为iret < 0时的值为6，则重复步骤pos = 6，如果iret > 0然后向前移动到下一行代码，则在最后一步pos = 7并且整个代码继续。

我希望你得到它

请给出代码感谢

ADDED

>>pos = 2 

iret = iim1.iimSet("loopVar",Cstr(pos)) 
iret = iim1.iimPlay("ecc2.iim") 

Do 

iret = iim1.iimSet("loopVar",Cstr(pos)) 
iret = iim1.iimPlay("ecc2.iim") 
iret = Rnd() > .5 
WScript.Echo pos, CStr(iret) 
Loop Until iret 


set shell=createobject("wscript.shell") 
shell.Run "%comspec% /c C:\Users\SDFL\Desktop\dc1.bat" 

pos = pos + 1 

Answer 1

如果你想要一个内环，只需添加一个内部循环：

pos = 2 

Do while pos < 10 
    Do 
    iret = iim1.iimSet("loopVar",Cstr(pos)) 
    iret = iim1.iimPlay("ecc2.iim") 
    Loop Until iret > 0 

    set shell=createobject("wscript.shell") 
    shell.Run "%comspec% /c C:\Users\SDFL\Desktop\dc1.bat" 

    pos = pos + 1 
loop 

当然，因为你的外循环只是迭代一系列数字，所以你最好使用For循环。而且我会在循环外部创建WScript.Shell对象，因此您不会浪费系统资源（重新）反复创建对象。

set shell=createobject("wscript.shell") 

For pos = 2 To 9 
    Do 
    iret = iim1.iimSet("loopVar",Cstr(pos)) 
    iret = iim1.iimPlay("ecc2.iim") 
    Loop Until iret > 0 

    shell.Run "%comspec% /c C:\Users\SDFL\Desktop\dc1.bat" 
Next 

Answer 2

首选遍历一个数值范围的方法是For，不While：

>> For pos = 2 To 9 
>>  WScript.Echo "pos", pos 
>> Next 
>> 
pos 2 
pos 3 
pos 4 
pos 5 
pos 6 
pos 7 
pos 8 
pos 9 

要重复一个动作至少一次，直到某些条件fullfilled，使用Do ... Loop Until：

>> For pos = 2 To 9 
>>  Do 
>>  ret = Rnd() > .5 
>>  WScript.Echo pos, CStr(ret) 
>>  Loop Until ret 
>> Next 
>> 
2 True 
3 True 
4 True 
5 False 
5 False 
5 True 
6 False 
6 True 
7 True 
8 True 
9 False 
9 False 
9 True 

有可能应该上限（？计数器/定时器）的Do环路aviod无尽的环圈。

加了：

在我的示例中，循环控制布尔变量ret设为True（=请停止循环）如果Rnd()返回一个值> 0.5的功能。给定一个函数.iimSet()，返回一些表示成功或失败的数字，你肯定可以自己计算出什么数字（..- 1,0,0 + 1 ..）来比较如何（=，<，>，< =>，= =）用该返回值在成功的情况下停止循环。提示：仔细检查你的测试 “IRET < 0” 与 “IRET> 0” WRT .iimSet()提供0