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

Повертає ціле число, яке містить значення Логічне значенняTrue , коли в кінці файлу, відкритого для випадкового або послідовного вхідного , було досягнуто.

Синтаксис

EOF ( filemenber )

Обов'язковийаргумент – це ціле число , яке міститиме будь-яке дійсне номер файлу.

Примітки

Щоб уникнути помилки під час спроби отримати введені дані за минулий кінець файлу, використовуйте EOF .

Функція EOF повертає значення FALSE , доки до кінця файлу не було досягнуто. Якщо файли відкрито для випадкового або бінарного доступу, функція EOF повертає значення FALSE , доки не буде виконано останню програму Get , не вдалося прочитати весь запис.

Коли файли, відкриті для бінарного доступу, намагаються прочитати файл за допомогою функції " Вхідні ", доки не буде створено помилку " істина ". Використовуйте функції LOF і locзамість того, щоб під час читання двійкових файлів вводити дані, а також використовувати функцію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

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

Отримуйте нові функції раніше за інших
Приєднатися до оцінювачів Microsoft Office

Чи були ці відомості корисні?

Наскільки ви задоволені якістю перекладу?
Що вплинуло на ваші враження?

Дякуємо за ваш відгук!

×