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

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

Ця інформація корисна?

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

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

×