Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений 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 MyCharOpen "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.LoopClose #1 ' Close file.
