Функция

Command

Синтаксис

Command
Command$

Функция применяется для нахождения параметров запуска с использованием командной строки.

Параметры

Функция не имеет никаких параметров.

Замечания

Обратите внимание, что при отладке программы в среде Visual Basic функция возвращает значение командной строки, указанное в окне "Project>Properties>Make>Command Line Arguments" среды Visual Basic.
Если Visual Basic запускается с командной строки, то функция возвратит строку, которая будет указана в параметре /cmd командной строки VisualBasic.

Пример использования

'пример передачи аргументов командной строки в функцию,
'которая возвращает их в переменной типа Variant, содержащей массив
'состоящий из всех этих параметров
Function GetCommandLine(Optional MaxArgs)
  'объявляем переменные
  Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs

  'проверка наличия необязательного параметра MaxArgs
  If IsMissing(MaxArgs) Then MaxArgs = 10
    'задание корректной размерности массива
    ReDim ArgArray(MaxArgs)
    'инициализация переменных
    NumArgs = 0: InArg = False
    'получаем аргументы командной строки и
    'определяем количество символов в строке
    CmdLine = Command()
    CmdLnLen = Len(CmdLine)
    'анализ всех символов командной строки
    For I = 1 To CmdLnLen
      C = Mid(CmdLine, I, 1)
      'проверка наличия пробела или табуляции
      If (C < > " " And C < > vbTab) Then 'пробел и табуляция не обнаружены
        'проверка наличия аргумента
        If Not InArg Then 'Начало нового аргумента
        'проверка количества аргументов
          If NumArgs = MaxArgs Then Exit For
          NumArgs = NumArgs + 1
          InArg = True
        End If
        'добавляем символ к текущему аргументу
        ArgArray(NumArgs) = ArgArray(NumArgs) & C
      Else
      'если найден символ пробела или табуляции,
      'устанавливаем флаг InArg flag в False
      InArg = False
    End If
  Next I
  'меняем размер массива
  ReDim Preserve ArgArray(NumArgs)
  'возвращаем массив
  GetCommandLine = ArgArray()
End Function

Дополнительная информация

Категория: Системные функции

Еще функции: Command, CVErr, DoEvents, Environ, Error, GetAllSettings, GetSetting, IMEStatus, Shell

Логин:

Пароль:

Регистрация, забыли пароль?