Visual Basic, .NET, ASP, VBA, VBScript
 
  Справочники  
  Справочник по Windows API Справочник по Visual Basic  
     
  Функция Command  
 

Функция

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

 
     
  VBNet online (всего: 51200)  
 

Логин:

Пароль:

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


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам