Получение всех параметров командной строки

Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String

Function ParamStr(index As Integer) As String
Dim str As String
Dim PStr() As String
Dim i As Integer
Dim c As Integer
Dim openQ As Boolean
str = GetCommandLine
c = 0
ReDim PStr(c)
For i = 1 To Len(str)
PStr(c) = PStr(c) + Mid(str, i, 1)
If Mid(str, i, 1) = Chr(34) And openQ = False Then openQ = True Else If Mid(str, i, 1) = Chr(34) And openQ = True Then openQ = False
If Mid(str, i, 1) = " " And openQ = False Then
c = c + 1
ReDim Preserve PStr(c)
End If
Next i
If (index > c) Then ParamStr = "" Else ParamStr = deleteQ(PStr(index))
End Function

'эта функция удаляет кавычки из строки
Function deleteQ(str As String) As String
For i = 1 To Len(str)
If Mid(str, i, 1) <> Chr(34) Then deleteQ = deleteQ + Mid(str, i, 1)
Next i
End Function

Private Sub Command1_Click()
MsgBox ParamStr(1)
MsgBox ParamStr(2)
MsgBox ParamStr(3)
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Получение всех параметров командной строки", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!