Примітка.
Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає значення типу Integer, яке містить логічне значення True (істина), коли досягнуто кінця файлу, відкритого для випадкового або послідовного введення .
Синтаксис
EOF(номер файлу)
Обов'язковий аргумент FileNumber– це ціле число, яке містить будь-який дійсний номер файлу.
Примітки
Використовуйте EOF , щоб уникнути помилки, яка виникає при спробі отримати дані за кінець файлу.
Функція EOF повертає значення False , доки не буде досягнуто кінця файлу. Якщо файли відкриті для випадкового або двійкового доступу, EOF повертає значення False , доки остання виконана інструкція Get не зможе прочитати весь запис.
Якщо файли відкриті для бінарного доступу, спроба прочитати файл за допомогою функції Input , доки EOF не поверне значення True , призведе до помилки. Використовуйте функції LOF і Loc замість EOF для читання двійкових файлів за допомогою Input, або Get для використання функції EOF . Якщо файли відкрито для виводу, EOF завжди повертає True.
Приклад
Примітка.
У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.
У цьому прикладі функцію EOF використано, щоб виявити кінець файлу. У цьому прикладі припускається, що це MYFILE текстовий файл із кількома рядками тексту.
Dim InputData
' Open file for input.
Open "MYFILE" For Input As #1
' Check for end of file.
Do While Not EOF(1)
' Read line of data.
Line Input #1, InputData
' Print to the Immediate window.
Debug.Print InputData
Loop
' Close file.
Close #1