使用for循环访问命令提示符

Question

我想在命令行中调用函数Christian.exe来处理一系列索引为“ reentrant_008.sif”的文件（8是示例数字）。

"Christian.exe reentrant_00" & num & ".sif reentrant_00" & num & ".pgm" 0 2000是需要输入命令提示符以使程序执行的文本（num是任意数字）

大约有400个文件，因此我想创建一个vbs代码，为每个文件调用命令提示符，直到所有文件都被访问为止，这是我的代码：

For
Dim cmdpath
num = CStr(i)

Set wshShell = WScript.CreateObject ("WSCript.shell")

If i < 10 Then
    cmdpath = "Christian.exe reentrant_00" & num & ".sif reentrant_00" & num & ".pgm" 0 2000
Else

    If i < 100 Then
        cmdpath = "Christian.exe reentrant_0" & num & ".sif reentrant_0" & num & ".pgm" 0 2000
    Else
        cmdpath = "Christian.exe reentrant_" & num & ".sif reentrant_" & num & ".pgm" 0 2000
    End If

End If

wshshell.run cmdpath

Next

问题在于，每个文件都会被调用一个新的命令提示符，这使我的计算机运行缓慢。 如何确保仅调用一个寻址所有文件的命令窗口？

Answer 1

如果查看Run的文档 ，将看到两个选项参数[intWindowStyle], [bWaitOnReturn] 。 如果您希望EXE在执行脚本之前等待，请将您的调用更改为此

wshshell.run cmdpath, 0, True

其中0将隐藏窗口， True将等待程序完成后再继续执行脚本。 根据您的需要，您可以更改号码或删除号码。

wshshell.run cmdpath,, True

Answer 2

由于您用vbscript和powershell标记了问题，因此我添加了PowerShell解决方案：

foreach ($i in 1..400) {
  $num = "{0:d3}" -f $i
  & Christian.exe "reentrant_${num}.sif" "reentrant_${num}.pgm" 0 2000
}

&是呼叫运营商。 我建议您在PowerShell中运行外部命令时都使用它，因为否则，当您首次尝试从变量运行命令时，会感到惊讶：

$christian = "Christian.exe"
$christian ...          # <-- throws an error, because $christian contains a
                        #     string, which is NOT automagically interpreted
                        #     as a command by PowerShell
& $christian ...        # <-- works

-f是格式化操作符，它允许您创建格式化的字符串输出。 由于您的命令行仅因输入和输出文件的零填充而不同，因此最好使用预先填充的数字字符串来构建文件名。

我建议也使用VBScript进行预填充：

For i = 1 To 400
  num = Right("000" & i, 3)
  cmdpath = "Christian.exe reentrant_" & num & ".sif reentrant_" & num & _
            ".pgm" 0 2000
  wshshell.run cmdpath, 0, True
Next