EOF функциясы

Ескерту : Егер Microsoft Jet Expression қауіптілігі ықтимал өрнектің есептелуіне жол бермейтін құмсалғыш режимінде іске қосылғанда, осы бөлімдегі функция, әдіс, нысан немесе сипат доғарылады. Құмсалғыш режимі туралы толық ақпарат алу үшін Анықтамадағы "құмсалғыш режимін" іздеңіз.

Кездейсоқ немесе тізбектелген Енгізуге ашылған файлдың соңына жеткен кезде, Шын деген Логикалық мәні бар бүтін сан деректер түріды қайтарады.

Синтаксис

EOF(файл_нөмірі)

Қажет етілетін файл_нөмірінің аргументі қандай-да болсын дұрыс файл нөмірі бар Бүтін сан болады.

Түсініктемелер

Файлдың соңынан өтіп енгізуді алу әрекетінен туындайтын қатеден аулақ болу үшін, EOF функциясын қолданыңыз.

Файлдың соңына жеткенінше дейін, EOF функциясы Жалған нәтижесін қайтарады. Random немесе Binary қатынауына ашылған файлдарға келсек, соңғы орындалған Алу операторы бүкіл жазбаны оқи алмайтын болғанынша дейін, EOF функциясы Жалған нәтижесін қайтарады.

Екілік қатынауға ашылған файлдарға келсек, EOF функциясы Шын нәтижесін қайтарғанға дейін Енгізу функциясын қолдану арқылы файлды оқу әрекетін жасау қате тудырады. Екілік файлдарды Енгізу мүмкіндігін пайдаланып оқыған кезде, EOF функциясының орнына LOF және Loc функцияларын қолданыңыз немесе EOF функциясын қолданған кезде Алу операторын қолданыңыз. Шығысқа ашылған файлдарға келсек, EOF функциясы Шын нәтижесін қайтарады.

Мысал

Ескерту : Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (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 Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×