الدالة EOF

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

ملاحظة: يتم تعطيل الداله اسلوب الكائن او الخاصيه هو موضح في هذا الموضوع اذا Microsoft Jet Expression Service قيد التشغيل في وضع الحمايه، الذي يمنع تقييم التعبيرات قد تكون غير امنه. ل# مزيد من المعلومات حول وضع الحمايه، ابحث عن "وضع الحمايه" في "تعليمات".

ترجع هذه الداله عدد صحيح الذي يحتوي علي القيمه منطقيTrue عند نهايه ملف تم فتحها ل# صفحه عشوائي او تم الوصول الي تسلسليه الادخال .

بناء الجملة

EOF ( filenumber )

المطلوبه filenumberوسيطة عباره عن عدد صحيح الذي يحتوي علي اي صالح رقم الملف.

ملاحظات

استخدم EOF ل# تجنب الاخطاء التي يتم انشاؤها من قبل محاوله اجراء ادخال بعد نهايه ملف.

ترجع الداله EOFFalse الي ان تم الوصول الي نهايه الملف. ب# استخدام الملفات المفتوحه ل# الوصول الي عشوائي او الثنائيه ، ترجع EOFFalse الي ان الاخير الذي يتم تنفيذه الحصول علي بيان غير قابله ل# قراءه سجل ب# اكمله.

مع الملفات المفتوحه ل# الوصول الي ثنائي ، ينشئ محاوله ل# قراءه الملف ب# استخدام الداله Input حتي EOF ترجع القيمه True خطا. استخدم الدالتين LOF و Loc بدلا من EOF عند قراءه الملفات binary مع الادخال، او استخدم الحصول علي عند استخدام الداله 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

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×