Функция EOF

Забележка: Бихме искали да ви осигурим най-новото помощно съдържание възможно най-бързо на вашия собствен език. Тази страница е преведена чрез автоматизация и може да съдържа граматически грешки и несъответствия. Нашата цел е това съдържание да ви бъде полезно. Можете ли да ни кажете дали информацията е била полезна за вас, в дъното на тази страница? Ето статията на английски за бърза справка.

Забележка: Функция, метод, обект или свойство, описани в тази тема е забранено, ако Microsoft Jet Expression Service се изпълнява в ограничителен режим, който не позволява на оценката на потенциално опасни изрази. За повече информация за ограничителен режим потърсете "ограничителен режим" в "Помощ".

Връща цяло число, съдържащи булев стойност 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
Разширете уменията си в Office
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

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

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×