Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Справочники

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35717
Главная » Справочники » Функции VBA » Функции обработки системных параметров

Command

Command

Функция Command

Command

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

Возвращаемое значение

Функция возвращает параметры командной строки,указанные в строке запуска программы(в окне запуска программы или в окне свойств ярлыка в поле Объект

Пример
' Пример передачи аргументов командной строки в функцию,
' которая возвращает их в переменной типа 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
Категория
Функции обработки системных параметров

Счетчики: 1837 | Добавил: Serge_007
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!