IBM Lotus Symphony


Eof Function [Runtime]

يحدد ما اذا كان تم الوصول لنهاية الملف بواسطة مؤشر الملف.

الصيغة:

Eof (intexpression As Integer)

القيمة المرتجعة:

Bool

المعاملات:

Intexpression: أي تعبير رقمي يقوم بالتقييم للرقم الخاص بملف مفتوح.

استخدم EOF لتفادي الأخطاء عند محاولة الحصول على مدخلات بعد نهاية الملف. عند استخدام عبارة Input أو Get للقراءة من ملف، سيتقدم مؤشر الملف بعدد البابت التي تم قراءتها. عند الوصول الى نهاية الملف، ستقوم EOF بارجاع القيمة "True" ‏(-1)‏.

أكواد الخطأ

5 استدعاء غير صحيح للاجراء

52 اسم أو رقم ملف غير صحيح

مثال:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg as String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "First line of text"

Print #iNumber, "Another line of text"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

While not eof(iNumber)

Line Input #iNumber, sLine

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumber

Msgbox sMsg

End Sub


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية