הערה
הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם Microsoft Jet Expression Service פועל במצב ארגז חול (Sandbox), דבר שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש "מצב ארגז חול" בעזרה.
החזרת מספר שלם המכיל את הערך הבוליאני True כאשר הגעת לסוף קובץ שנפתח עבור קלטאקראי או רציף.
תחביר
EOF(filenumber)
ארגומנט מספר הקובץהנדרש הוא מספר שלם המכיל מספר קובץ חוקי כלשהו.
הערות
השתמש ב - EOF כדי להימנע מהשגיאה שנוצרת על-ידי ניסיון לקבל קלט מעבר לסוף הקובץ.
הפונקציה EOF מחזירה False עד שמגיעים לסוף הקובץ. בקבצים שנפתחים עבור גישה אקראית או בינארית , הפונקציה EOF מחזירה False עד למשפט Get האחרון שבוצע ולא ניתן לקרוא רשומה שלמה.
כאשר קבצים פתוחים לגישה בינארית , ניסיון לקרוא את הקובץ באמצעות הפונקציה קלט עד ש - EOF מחזיר ערך True גורם לשגיאה. השתמש בפונקציות LOF ו- Loc במקום ב- EOF בעת קריאת קבצים בינאריים עם קלט, או השתמש ב - 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