Забележка
Функцията, методът, обектът или свойството, описани в тази тема, са забранени, ако услугата за изрази Microsoft Jet се изпълнява в ограничителен режим, което пречи на изчисляването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща цяло число, съдържащо булева стойност True , когато е достигнат края на файл, отворен за случайно или поредно въвеждане .
Синтаксис
EOF(номер на файл)
Задължителният аргумент "номер на файл" е цяло число, съдържащо всеки валиден номер на файл.
Забележки
Използвайте EOF , за да избегнете грешката, генерирана при опит въвеждането на данни след края на файла.
Функцията EOF връща False , докато се достигне края на файла. При файлове, отворени за произволен или двоичен достъп, EOF връща False , докато последната изпълнена команда Get не може да прочете цял запис.
При файлове, отворени за двоичен достъп, опит за четене на файла с помощта на функцията Input , докато EOF не върне True , генерира грешка. Използвайте функциите LOF и Loc вместо EOF , когато четете двоични файлове с входни данни, или използвайте 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