Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає рядок, що містить символи з файлу, відкритого в режимі вводу або двійковому режимі.
Синтаксис
Input( number; [# ] filenumber)
Синтаксис функції Input має такі аргументи:
|
Аргумент |
Опис |
|
number |
Обов’язковий аргумент. Будь-які припустимі числовий вираз, що вказують кількість символів, які потрібно повернути. |
|
номер файлу |
— обов’язковий аргумент. Будь-які припустимі номер файлу. |
Примітки
Дані, які читаються за допомогою функції вводу , зазвичай записують у файл із параметром Print # або Put. Використовуйте цю функцію лише з файлами, відкритими в режимі вводу або двійковому режимі.
На відміну від інструкції Input # функція Input повертає всі символи, які вона читає, включно з комами, поверненням каретки, рядками, лапками та пробілами на початку.
Якщо файли відкрито для двійкового доступу, спроба прочитати файл за допомогою функції Input , доки функція EOF не поверне значення True , не створить помилку. Використовуйте функції LOF і Loc замість EOF під час читання двійкових файлів за допомогою функції Input або використовуйте функцію Get під час використання функції EOF .
Примітка.: Використовуйте функцію InputB для байтних даних, які містяться в текстових файлах. За допомогою функції InputBчисло визначає кількість байтів, які потрібно повернути, а не кількість символів, які потрібно повернути.
Приклад
Примітка.: У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.
У цьому прикладі функцію Input використано, щоб читати по одному символу з файлу та друкувати його у вікні immediate . У цьому прикладі припускається, що 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.
