Забележка: Функцията, методът, обекта или свойството, описани в тази тема, е забранена, ако услугата 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.

Нуждаете се от още помощ?

Разширете уменията си
Преглед на обучението
Получавайте първи новите функции
Присъединете се към Microsoft приобщени

Беше ли полезна тази информация?

Доколко сте доволни от качеството на превода?
Какво е повлияло на вашия потребителски опит?

Благодарим ви за обратната връзка!

×