Функция

Input

Синтаксис

Input(number, [#]filenumber)
Input$(number, [#]filenumber)
InputB(number, [#]filenumber)
InputB$(number, [#]filenumber)

Функция считывает символы из файла, открытого для последовательного доступа или как двоичный файл.

Параметры

Замечания

Данные, считываемые с помощью функции Input, обычно записываются в файл с использованием оператора Print # или Put. Эта функция применима только к файлам, открытым в режиме Input или Binary. В отличие от оператора Input #, функция Input возвращает все считанные символы, в том числе запятые, символы возврата каретки, символы перевода строки, кавычки и начальные пробелы.
Для файлов, открытых для доступа в режиме Binary, попытка чтения файла с помощью функции Input при возвращении функцией EOF значения True, приводит к ошибке. При чтении двоичных файлов с помощью функции Input следует вместо функции EOF использовать функции LOF и Loc или применять с функцией EOF оператор Get. Для байтовых данных, содержащихся в текстовых файлах, пользуйтесь функцией InputB. В этом случае параметр Number указывает число байт (а не символов), которые следует вернуть.

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

'в примере функция Input используется для считывания
'данных из файла, предполагается, что MYFILE является
'текстовым файлом, который содержит несколько строк текста

Dim InputData
'открываем файл для чтения под номером 1
Open "MYFILE" For Input As #1
Do While Not EOF(1) 'проверяем не достигнут ли конец файла
  InputData = Input (1, #1) 'читаем данные
  Debug.Print InputData 'выводим данные в окно отладки
Loop
Close #1 'закрываем файл

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

Категория: Работа с файловой системой

Еще функции: CurDir, Dir, EOF, FileAttr, FileDateTime, FileLen, FreeFile, GetAttr, Input, Loc, LOF, Seek

Логин:

Пароль:

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