Функция Input

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

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

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

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

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

' В данном примере функция 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 ' закрываем файл