如何在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和D 2個查詢，但結果到同一個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