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