ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة تعبير Microsoft Jet قيد التشغيل في وضع بيئة الاختبار المعزولة، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع بيئة الاختبار المعزولة، ابحث عن "وضع بيئة الاختبار المعزولة" في التعليمات.
إرجاع عدد صحيح يحتوي على قيمة منطقيTrue عند الوصول إلى نهاية ملف تم فتحه للإدخلالعشوائي أو التسلسلي.
بناء الجملة
EOF( filenumber )
وسيطة عدد الملفات المطلوب هو عدد صحيح يحتوي على أي رقم الملف صالح .
ملاحظات
استخدم EOF لتجنب الخطأ الذي تم إنشاؤه عن طريق محاولة الحصول على إدخال بعد نهاية الملف.
ترجع الدالة EOFFalse حتى يتم الوصول إلى نهاية الملف. مع فتح الملفات للوصول العشوائي أو الثنائي ، تقوم EOF بإرجاع False حتى يتعذر على عبارة Get المنفذة الأخيرة قراءة سجل بأكمله.
مع فتح الملفات للوصول الثنائي ، تؤدي محاولة القراءة عبر الملف باستخدام دالة الإدخال حتى ترجع EOFTrue إلى حدوث خطأ. استخدم الدالتين 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
