Функція EOF

Увага! : Цю статтю перекладено за допомогою служби машинного перекладу; див. застереження. Версію цієї статті англійською мовою див. тут для отримання довідки.

Примітка : Функції, метод об'єкта або властивість у цьому розділі описано буде вимкнуто, якщо вираз служби Microsoft Jet працює у режимі ізольованого програмного середовища, що запобігає обчислення потенційно небезпечних виразів. Додаткові відомості про режим ізольованого програмного середовища знайдіть «режим пісочниці» у вікні довідки.

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

Синтаксис

EOF ( filenumber )

Потрібен filenumberаргумент – це до цілого числа містять будь-який дійсний номер файлу.

Примітки

Використовуйте EOF , щоб уникнути помилок, які згенерував спроби отримати вводу минулі кінці файлу.

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

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

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

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

Дякуємо за відгук! Схоже, вам може стати в нагоді допомога одного з наших спеціалістів служби підтримки Office, з яким ми вас можемо з’єднати.

×