Applies ToAccess для Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".

Повертає ціле число, яке містить Логічне значення значення 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    

Потрібна додаткова довідка?

Потрібні додаткові параметри?

Ознайомтеся з перевагами передплати, перегляньте навчальні курси, дізнайтесь, як захистити свій пристрій тощо.

Спільноти допомагають ставити запитання й відповідати на них, надавати відгуки та дізнаватися думки висококваліфікованих експертів.