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