Πίνακας περιεχομένων
Περιγραφή EOF
Επιστρέφει την τιμή που υποδεικνύει εάν έχει φτάσει στο τέλος ενός αρχείου (Boolean).
Σύνταξη ΕΟΦ
Στο πρόγραμμα επεξεργασίας VBA, μπορείτε να πληκτρολογήσετε "EOF (" για να δείτε τη σύνταξη για τη συνάρτηση EOF:
Η συνάρτηση EOF περιέχει ένα όρισμα:
Αριθμός φακέλου: Οποιοσδήποτε έγκυρος αριθμός αρχείου.
Παραδείγματα της συνάρτησης Excel VBA EOF
Για να δοκιμάσετε τη λειτουργία EOF, δημιουργήστε ένα αρχείο κειμένου "test.txt" στη μονάδα δίσκου D. (D: \ test.txt) Ας υποθέσουμε ότι το περιεχόμενο του αρχείου είναι το ακόλουθο.
123 | αλφάβητο1 2 3xy z |
Εκτελέστε τον ακόλουθο κώδικα.
1234567891011 | Sub Input_Fx_Example ()Dim strContent As StringDim MyCharΆνοιγμα "D: \ test.txt" Για είσοδο ως #1 'Άνοιγμα αρχείου.Κάνετε Ενώ δεν είναι EOF (1) 'Βρόχος μέχρι το τέλος του αρχείου.MyChar = Εισαγωγή (1, #1) 'Λάβετε έναν χαρακτήρα.strContent = strContent & MyChar 'ΒρόχοςMsgBox strContentΚλείσιμο #1 'Κλείσιμο αρχείου.Τέλος υπο |
Στη συνέχεια, το αποτέλεσμα θα είναι το ακόλουθο.
Εδώ, χρησιμοποιήθηκε η συνάρτηση EOF για να προσδιοριστεί ότι έχει φτάσει στο τέλος ενός αρχείου.