Функция EOF

Забележка: Функцията, методът, обекта или свойството, описани в тази тема, е забранена, ако услугата 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

Нуждаете се от още помощ?

Разширете уменията си в Office
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

Беше ли полезна тази информация?

×