Забележка: Функцията, методът, обектът или свойството, описани в тази тема, се забраняват, ако услугата microsoft Jet Expression се изпълнява в ограничителен режим, което предотвратява оценяването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща стойност от тип Integer, съдържаща стойността на булевTrue , когато е достигнат краят на файл, отворен за случайно или последователно въвеждане .
Синтаксис
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
