Функция Input

Input(Number, [#]FileNumber)
Input$(Number, [#]FileNumber)
InputB(Number, [#]FileNumber)
InputB$(Number, [#]FileNumber)

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

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

Возвращает значение типа String, содержащее символы или байты из файла, открытого в режиме Input или Binary

Параметры
Часть Описание
Number Обязательный. Любое действительное числовое выражение, указывающее число возвращаемых символов или байтов
FileNumber Обязательный. Любой действительный номер файла

Примечания

Данные, считываемые с помощью функции Input, обычно записываются в файл с использованием оператора Print # или Put. Эта функция применима только к файлам, открытым в режиме Input или Binary

В отличие от оператора Input #, функция Input возвращает все считанные символы, в том числе запятые, символы возврата каретки, символы перевода строки, кавычки и начальные пробелы

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

Замечание Для байтовых данных, содержащихся в текстовых файлах, пользуйтесь функцией InputB. В этом случае параметр Number указывает число байт (а не символов), которые следует вернуть

Пример
' В данном примере функция Input
' применяется для последовательного чтения символов
' из файла и вывода их в окно Immediate
' Предполагается, что текстовый файл TESTFILE существует
' и содержит несколько строк данных для примера
Dim MyChar
Open "TESTFILE" For Input As #1   ' открываем файл
Do While Not EOF(1)   ' цикл до конца файла
   MyChar = Input(1, #1)   ' читаем один символ
   Debug.Print MyChar   ' выводим в окно Immediate
Loop
Close #1   ' закрываем файл
Категория
Функции работы с файлами