Σημείωση: Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία παραστάσεων Microsoft Jet εκτελείται σε κατάσταση λειτουργίας φίλτρου, κάτι που αποτρέπει τον υπολογισμό πιθανώς μη ασφαλών παραστάσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, κάντε αναζήτηση για "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει έναν Ακέραιο που περιέχει την δυαδική τιμή τιμή Αληθές όταν έχει συμπληρωθεί το τέλος ενός αρχείου για τυχαία ή διαδοχική εισαγωγή .
Σύνταξη
EOF( αριθμός_αρχείου )
Ο απαιτούμενος αριθμός αρχείουόρισμα είναι ένας Ακέραιος που περιέχει οποιοδήποτε έγκυρο αριθμός αρχείου.
Παρατηρήσεις
Χρησιμοποιήστε το EOF για να αποφύγετε το σφάλμα που δημιουργείται με την προσπάθεια λήψης εισόδου μετά το τέλος ενός αρχείου.
Η συνάρτηση EOF επιστρέφει την τιμή False μέχρι να φτάσετε στο τέλος του αρχείου. Με τα αρχεία ανοιχτά για τυχαία ή δυαδική πρόσβαση, η συνάρτηση EOF επιστρέφει false μέχρι την τελευταία πρόταση get που εκτελέστηκε δεν είναι δυνατό να διαβάσει μια ολόκληρη εγγραφή.
Με τα αρχεία ανοιχτά για δυαδική πρόσβαση, μια προσπάθεια ανάγνωσης του αρχείου χρησιμοποιώντας τη συνάρτηση Input μέχρι το EOF να επιστρέψει την τιμή True δημιουργεί ένα σφάλμα. Χρησιμοποιήστε τις συναρτήσεις LOF και Loc αντί για EOF κατά την ανάγνωση δυαδικών αρχείων με την εισαγωγή ή χρησιμοποιήστε τη συνάρτηση Get when using the EOF function. Με τα αρχεία ανοιχτά για έξοδο, η συνάρτηση EOF επιστρέφει πάντα την τιμή Αληθές.
Παράδειγμα
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα 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
