Applies ToAccess за Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Забележка: Функцията, методът, обектът или свойството, описани в тази тема, се забраняват, ако услугата microsoft Jet Expression се изпълнява в ограничителен режим, което предотвратява оценяването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.

Връща стойност от тип String, съдържаща знаци от файл, отворен във входен или двоичен режим.

Синтаксис

Input( число; [# ] filenumber)

Синтаксисът на функцията Input има следните аргументи:

Аргумент

Описание

число

Задължително. Всеки валиден числов израз, задаващ броя на знаците за връщане.

filenumber

Задължително. Всеки валиден номер на файл.

Забележки

Данните, прочетени с функцията Input, обикновено се записват във файл с Печат # или Постави. Използвайте тази функция само с файлове, отворени във входен или двоичен режим.

За разлика от командата Input # , функцията Input връща всички знаци, които чете, включително запетаи, знаци за нов абзац, редове, кавички и водещи интервали.

При файлове, отворени за двоичен достъп, опит за прочитане на файла с помощта на функцията Input , докато EOF не върне True генерира грешка. Използвайте функциите LOF и Loc вместо EOF , когато четете двоични файлове с Input, или използвайте Get , когато използвате функцията EOF .

Забележка:  Използвайте функцията InputB за байтове данни, които се съдържат в текстови файлове. С InputBчислото задава броя байтове, които да бъдат върнати, а не броя на знаците, които да бъдат върнати.

Пример

Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (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.

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

Искате ли още опции?

Разгледайте ползите от абонамента, прегледайте курсовете за обучение, научете как да защитите устройството си и още.

Общностите ви помагат да задавате и отговаряте на въпроси, да давате обратна връзка и да получавате информация от експерти с богати знания.