Забележка: Функцията, методът, обекта или свойството, описани в тази тема, е забранена, ако услугата Microsoft Jet Expression се изпълнява в ограничителен режим, което не позволява оценка на потенциално опасни изрази. За повече информация относно режима на таксуване, потърсете "режим на таксуване" в "Помощ".
Връща цяло число, съдържащо стойността от булевTRUE , когато е достигнат краят на файл, отворен за случаен или последователен вход .
Синтаксис
EOF ( filenumber )
Изискваното filenumberаргумент е цяло число , съдържащо всички валидни номер на файл.
Забележки
Използвайте EOF , за да избегнете възникналата грешка, като се опитвате да получите въвеждане в края на файла.
Функцията EOF връща FALSE , докато не бъде достигнат краят на файла. Докато файловете са отворени за произволен или Двоичн достъп, EOF връща FALSE , докато последната изпълнена команда get не може да прочете цял запис.
При отваряне на файлове за двоичния достъп се опитвате да прочетете файла с помощта на функцията за въвеждане , докато 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