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