Перейти до основного
Підтримка
Вхід
Вхід за допомогою облікового запису Microsoft
Увійдіть або створіть обліковий запис.
Вітаємо,
Виберіть інший обліковий запис.
У вас є кілька облікових записів
Виберіть обліковий запис, за допомогою якого потрібно ввійти.

Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо 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

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

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

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

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

Чи ця інформація була корисною?

Наскільки ви задоволені якістю мови?
Що вплинуло на ваші враження?
Натиснувши кнопку "Надіслати", ви надасте свій відгук для покращення продуктів і служб Microsoft. Ваш ІТ-адміністратор зможе збирати ці дані. Декларація про конфіденційність.

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

×