Функция Input

Примечание : Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".

Возвращает строку, содержащую знаки из файла, открытого в режиме Input или Binary.

Синтаксис

Input( число, [# ] номер_файла)

Функция 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.
Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×