VB獲取命令行參數列表

VB中準確的獲得命令行參數列表的方法，

支持引號括起來的帶空格的參數

 

 Private Sub Form_Load() 'GUI下測試 'cmd = "-a " & Chr(34) & "c:/a 1.txt" & Chr(34) & " " & Chr(34) & "d:/b c.txt" & Chr(34) 'cmd = "-r " & Chr(34) & "c:/123/a.txt" & Chr(34) & " " & "c:/123/b.txt" cmd = Trim(Command) If cmd = "" Then '語法不正確 - 參數爲空 '參數爲空的具體處理。。。。。。 Unload Me ' 不加載窗口，即不顯示 Exit Sub End If 'Args 爲得到的參數數組 Args = GetCommandLine(cmd) ' 調試 MsgBox ("Debug-Command:" & cmd) MsgBox ("Debug-ArgCount:" & UBound(Args) + 1) For I = 0 To UBound(Args) MsgBox (I & ":" & Args(I)) Next I '對參數數組Args中的參數根據需要進行校驗 '...... Unload Me ' 不加載窗口，即不顯示 End Sub ' 獲得命令行參數(最多3個參數)，並將命令行參數以 Variant 類型之數組返回。 Function GetCommandLine(ByVal CmdLine As String) '聲明變量。 Dim CmdLnLen, FirstFile, SecondFile, StartPos, StrLeft '取得命令行參數。 CmdLine = Trim(CmdLine) CmdLnLen = Len(CmdLine) '取得引號中的字符串，最多兩對引號 FirstArr = GetStrBetweenQuotes(CmdLine) If FirstArr(0) = "RetCode0" Or FirstArr(0) = "RetCode1" Then GetCommandLine = StrSplit(CmdLine, " ") Exit Function Else FirstFile = FirstArr(0) '取第二對引號中的字符串 StartPos = FirstArr(1) StrLeft = Mid(CmdLine, StartPos + 1) SecondArr = GetStrBetweenQuotes(StrLeft) If SecondArr(0) = "RetCode1" Then GetCommandLine = StrSplit(CmdLine, " ") Exit Function ElseIf SecondArr(0) = "RetCode0" Then '沒有第二對引號，SecondFile就是第二次處理的字符串 SecondFile = Trim(StrLeft) Else SecondFile = SecondArr(0) End If End If '將引號中的字符串替換掉 temp = Replace(CmdLine, FirstFile, "*1") 'MsgBox ("Debug-temp:" & temp) temp = Replace(temp, SecondFile, "*2") 'MsgBox ("Debug-temp:" & temp) '到此，已經不存在引號中含有空格的情況，但仍有可能有引號 temp = Replace(CmdLine, Chr(34), "") '去掉引號 ArgArray = StrSplit(temp, " ") For I = 0 To UBound(ArgArray) ArgArray(I) = Replace(ArgArray(I), "*1", FirstFile) '還原 ArgArray(I) = Replace(ArgArray(I), "*2", SecondFile) '還原 Next I GetCommandLine = ArgArray End Function '取得一對引號中的字符串,返回一個長度爲2數組， '數組中第一個元素是引號中的字符串，第二個元素是第二個引號的位置 Private Function GetStrBetweenQuotes(ByVal src As String) As Variant Dim ResultArray(1) quote = Chr(34) FirstQuotePos = InStr(1, src, quote) 'MsgBox ("Debug-src:" & src & ",FirstQuotePos:" & FirstQuotePos) If FirstQuotePos = 0 Then '沒有引號，退出 ResultArray(0) = "RetCode0" GetStrBetweenQuotes = ResultArray() Exit Function Else '有引號，說明文件路徑中有空格 SecondQuotePos = InStr(FirstQuotePos + 1, src, quote) 'MsgBox ("Debug-src:" & src & ",SecondQuotePos:" & SecondQuotePos) If SecondQuotePos = 0 Then '沒有第二個引號，語法不正確，引號必須成對出現 ResultArray(0) = "RetCode1" GetStrBetweenQuotes = ResultArray() Exit Function Else '有第二個引號，取出第一對引號中的數據 FirstFile = Mid(src, FirstQuotePos, SecondQuotePos - FirstQuotePos + 1) End If End If ResultArray(0) = FirstFile ResultArray(1) = SecondQuotePos 'MsgBox ("Debug-ResultArray(0)(FirstFile):" & ResultArray(0) & ",ResultArray(1):" & ResultArray(1)) GetStrBetweenQuotes = ResultArray() End Function '分割參數字符串爲參數數組 Private Function StrSplit(ByVal src As String, ByVal delimiter As String) As Variant src = Trim(src) Arr = Split(src, delimiter) Dim result As String For I = 0 To UBound(Arr) j = Arr(I) If j <> "" Or j <> " " Then If result <> "" Then result = result & "," & j Else result = j End If End If Next I StrSplit = Split(result, ",") End Function