הפונקציה EOF

חשוב: מאמר זה תורגם בתרגום מכונה, ראה כתב ויתור. תוכל למצוא את הגרסה באנגלית של המאמר כאן לעיונך.

הערה: הפונקציה, שיטת, אובייקט או מאפיין המתוארים בנושא זה אינה זמינה אם שירות Microsoft Jet ביטוי פועל במצב ארגז חול, המונעת להערכה של ביטויים העשויים להיות לא בטוחים. לקבלת מידע נוסף אודות מצב ארגז חול, חפש "מצב sandbox" בעזרה.

החזרת מספר שלם המכיל את הערך בוליאניTrue כאשר לסוף קובץ הנפתח עבור אקראי או ברצף קלט הגיעה.

תחביר

EOF ( filenumber )

הנדרש filenumberארגומנט הוא מספר שלם המכיל כל חוקי מספר קובץ.

הערות

השתמש בפונקציה EOF כדי להימנע מהשגיאה שנוצרו על-ידי מנסה לקבל קלט מעבר לסוף של קובץ.

הפונקציה EOF מחזירה False עד לסוף הקובץ הגיעה. עם קבצים שנפתחו לגישה אקראית או בינארית , הפונקציה EOF מחזירה False עד תחילת המשפט האחרונה אין אפשרות לקרוא רשומה שלמה.

עם קבצים שנפתחו לגישה בינארית , ניסיון לקרוא את הקובץ באמצעות הפונקציה Input עד EOF מחזירה את הערך True גורם לשגיאה. השתמש בפונקציות LOF ו- Loc במקום EOF בעת קריאת קבצים בינאריים באמצעות Input, או להשתמש לקבל בעת שימוש בפונקציה 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.

×