الدالة EOF

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

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

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

بناء الجملة

EOF( filenumber )‎

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

ملاحظات

استخدم الدالة EOF لتجنب الخطأ الذي ينتج عن محاولة إجراء إدخال بعد تجاوز نهاية الملف.

تقوم الدالة EOF بإرجاع False إلى أن يتم الوصول إلى نهاية الملف. وبالنسبة للملفات التي يتم فتحها للوصول العشوائي أو الثنائي، تقوم الدالة EOF بإرجاع False إلى أن يتعذر على التعبير Get الأخير الذي يتم تنفيذه قراءة السجل بالكامل.

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

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

مشاركة Facebook Facebook Twitter Twitter البريد الإلكتروني البريد الإلكتروني

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

رائع! هل لديك أي ملاحظات أخرى؟

كيف يمكننا تحسين ذلك؟

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

×