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