Командная строка и её парсинг

[Tok]

Как ловить командную строку я знаю - Command, но как осуществить парсинг ее, если я хочу передавать проге кучу данных?

То есть, как порезать строчку на нужные команды?

Я хочу, например передавать координаты окна через командную строку:

myprog.exe -x=200 -y=550

ну или хотябы так (пробел, как разделитель):

myprog.exe /200 550


Подскажите Плизз!

[Leon_]

Я делаю вот так:

Код: Выделить всё

    'Get application command line
    Dim sCmdLine()  As String
    nArgCount = ParseArgString(Command$(), sCmdLine())


Где ParseArgString

Код: Выделить всё

Public Function ParseArgString(ByVal sArgString As String, ByRef sArgArray() As String) As Long
    'parse command line arguments
    Dim sArg    As String
    Dim nCount  As Long
    Dim i       As Long
   
    sArg = Trim(sArgString)
   
    If (Len(sArg) > 0) Then
        Do
            i = InStr(1, sArg, Chr$(32))    'find [Space]
            If (i = 0) Then i = Len(sArg)
           
            ReDim Preserve sArgArray(0 To nCount) As String
            sArgArray(nCount) = Trim(Left$(sArg, i))
            sArg = Trim(Right$(sArg, Len(sArg) - i))
           
            nCount = nCount + 1
        Loop While (Len(sArg) > 0)
    End If
   
    ParseArgString = nCount
End Function

Помогло?

[Ruslan Demidow]

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
    Dim WordsArray() As String
    Dim SplitChar As String
    SplitChar = Chr(32)
    WordsArray() = Split(Command$, SplitChar)
    MsgBox "Количество аргументов: " & UBound(WordsArray())
End Sub


Потом можно простым перебором в цикле всех элементов массива, обработать каждый параметр.

[Leon_]

2Ruslan Demidow:
Да, так лучше. Воспользуюсь

[tyomitch]

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
    Dim WordsArray() As String
    Dim SplitChar As String
    SplitChar = Chr(32)
    WordsArray() = Split(Command$, SplitChar)
    MsgBox "Количество аргументов: " & UBound(WordsArray())
End Sub


Потом можно простым перебором в цикле всех элементов массива, обработать каждый параметр.

Пробел у Split - разделитель по умолчанию, т.е. можно просто

Код: Выделить всё

WordsArray() = Split(Command$)

[Ruslan Demidow]

Не знал.. Учту.
Спасибо.

[Tok]

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
    Dim WordsArray() As String
    Dim SplitChar As String
    SplitChar = Chr(32)
    WordsArray() = Split(Command$, SplitChar)
    MsgBox "Количество аргументов: " & UBound(WordsArray())
End Sub


Потом можно простым перебором в цикле всех элементов массива, обработать каждый параметр.

Простите за тупость ( ), можно привести пример цикла?

[Rainbow]

Код: Выделить всё

Dim i As Long
For i = LBound(WordsArray) To UBound(WordsArray)
    MsgBox i + 1 & "'й параметр = " & WordsArray(i)
Next

[X-BOND]

Так, к слову: в PowerBasic-е есть отличная функция a$ = PARSE$(string_expr [, [ANY] string_delimiter], index&)
Я думаю на VB не составит труда написать подобную функцию с помощью Instr() и Mid$()

[alibek]

А в VB есть Split$(), зачем писать свою?

[X-BOND]

А в VB есть Split$(), зачем писать свою?

Я не совсем понял, Split$ возвращает значение или Массив? Это немного разные весчи.

[alibek]

А кто мешает писать Split$("1;2;3",";")(2)? Кроме, понятное дело, расхода памяти.

[tyomitch]

А кто мешает писать Split$("1;2;3",";")(2)? Кроме, понятное дело, расхода памяти.

Так, как в VB, даже лучше - строка рассекается только один раз, а не каждый раз, когда читается новый параметр.
Проблем с расходом памяти тоже нет - мы ведь и так всю строку хотим распарсить?

[alibek]

Я имел ввиду, что чем Split()(1), Split()(2), ... Split()(n) лучше один раз сделать S() = Split() и юзать массив, так будет и быстрее и память расходоваться будет экономнее.

[tyomitch]

Я имел ввиду, что чем Split()(1), Split()(2), ... Split()(n) лучше один раз сделать S() = Split() и юзать массив, так будет и быстрее и память расходоваться будет экономнее.

Дык я тоже!