batch-file - 如何在 VBS 中创建循环？

Question

我有一个连接到 FoxPro 数据库的 VBS 脚本。

Dim oCN : Set oCN = CreateObject("ADODB.CONNECTION")
oCN.Open sCS
Dim oRS : Set oRS = oCN.Execute("SELECT SN_ANALSYS, SN_CRLIM, SN_CURRBAL FROM " & WScript.Arguments(0) & "_SNAME.DBF WHERE SN_ANALSYS != '' ORDER BY SN_ANALSYS ASC")
Do Until oRS.EOF
   WScript.Echo oRS.Fields(0).value, "50", oRS.Fields(1).Value
   WScript.Echo oRS.Fields(0).value, "51", oRS.Fields(2).Value
   oRS.MoveNext
Loop
oCN.Close

我通过 BAT 运行它:

C:\query.vbs A > \\share\results.txt

A用于查询 ( WScript.Arguments(0) )。但是我希望能够做到这一点:

C:\query.vbs A,D > \\share\results.txt

以便它使用 A 运行 2 个查询和 D但结果是相同的 results.txt .

Answer 1

使用 WScript.Arguments.Unnamed collection .

Dim arg

For Each arg in WScript.Arguments.Unnamed
    ' use arg in the SQL query
Next

并在不带逗号的情况下调用，以便 cmd.exe 将它们识别为单独的参数:

C:\query.vbs A D > \\share\results.txt