Забележка
Функцията, методът, обектът или свойството, описани в тази тема, са забранени, ако услугата за изрази Microsoft Jet се изпълнява в ограничителен режим, което пречи на изчисляването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща низ, съдържащ знаци от файл, отворен във входен или двоичен режим.
Синтаксис
Input(число;[# ] номер на файл)
Синтаксисът на функцията Input има следните аргументи:
| Аргумент | Описание |
|---|---|
| число | Задължително. Всеки валиден числов израз, задаващ броя на знаците за връщане. |
| номер на файл | Задължително. Всеки валиден номер на файл. |
Забележки
Данните, прочетени с функцията Input , обикновено се записват във файл с Print # или Put. Използвайте тази функция само с файлове, отворени във входен или двоичен режим.
За разлика от командата Input # , функцията Input връща всички знаци, които чете, включително запетаи, знак за нов ред, нов ред, кавички и интервали.
При файлове, отворени за двоичен достъп, опит за четене на файла с помощта на функцията Input , докато EOF не върне True , генерира грешка. Използвайте функциите LOF и Loc вместо EOF , когато четете двоични файлове с входни данни, или използвайте Get , когато използвате функцията EOF .
Забележка
Използвайте функцията InputB за байтове данни, съдържащи се в текстови файлове. При InputBчисло указва броя байтове, които да бъдат върнати, а не броя знаци за връщане.
Пример
Забележка
Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (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.