Примечание
Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".
Возвращает строку, содержащую знаки из файла, открытого в режиме Input или Binary.
Синтаксис
Input(number, [# ] filenumber)
Функция Input имеет следующие аргументы:
| Аргумент | Описание |
|---|---|
| Номер | — обязательный аргумент. Любое допустимое числовое выражение, указывающее количество возвращаемых символов. |
| номер_файла | — обязательный аргумент. Любой допустимый номер файла. |
Замечания
Данные, считываемые функцией Input, обычно записываются в файл с помощью оператора Print# или Put. Эту функцию следует использовать только с файлами, открытыми в режиме Input или Binary.
В отличие от инструкции Input #, функция Input возвращает все считанные знаки, включая запятые, возвраты каретки, переходы на новую строку, кавычки и начальные пробелы.
Если файлы открыты в режиме Binary, попытка считывать файл с помощью функции Input до тех пор, пока функция EOF не возвратит значение Истина, приведет к ошибке. Следует использовать функции LOF и Loc вместо EOF при чтении двоичных файлов с помощью функции Input либо использовать функцию Get при вызове функции EOF.
Примечание
Для байтов данных, содержащихся в текстовых файлах, применяется функция InputB. При использовании InputBчисло указывает количество возвращаемых байтов, а не число возвращаемых символов.
Пример
Примечание
В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В данном примере функция Input используется для чтения знаков из файла по одному с выводом в окне Проверка. В этом примере предполагается, что TESTFILE это текстовый файл с несколькими строками примеров данных.
Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.