Πίνακας περιεχομένων
Περιγραφή εισαγωγής γραμμής
Διαβάζει μια μεμονωμένη γραμμή από ένα διαδοχικό αρχείο Άνοιγμα και το εκχωρεί σε μια συμβολοσειρά.
Σύνταξη εισόδου γραμμής
| 1 | Είσοδος γραμμής #FileNumber, VarName |
Η δήλωση εισαγωγής γραμμής περιέχει 2 ορίσματα:
Αριθμός φακέλου: Οποιοσδήποτε έγκυρος αριθμός αρχείου.
VarName: Έγκυρο όνομα μεταβλητής ή μεταβλητής συμβολοσειράς.
Παραδείγματα δήλωσης εισόδου γραμμής Excel VBA
Για να δοκιμάσετε τη δήλωση εισόδου γραμμής, δημιουργήστε ένα αρχείο κειμένου "test.txt" στη μονάδα δίσκου D. (D: \ test.txt) Ας υποθέσουμε ότι το περιεχόμενο του αρχείου είναι το ακόλουθο.
| 123 | αλφάβητο1 2 3xy z |
Εκτελέστε τον ακόλουθο κώδικα.
| 12345678910111213 | Sub LineInput_Example ()Dim strLine As StringDim strContent As StringΆνοιγμα "D: \ test.txt" Για είσοδο ως #1 'Άνοιγμα αρχείου.Κάνετε Ενώ δεν είναι EOF (1) 'Βρόχος μέχρι το τέλος του αρχείου.Γραμμή εισαγωγής #1, strLine 'Read line in variable.strContent = strContent & strLineΒρόχοςΚλείσιμο #1 'Κλείσιμο αρχείου.MsgBox strContentΤέλος υπο |
Στη συνέχεια, το αποτέλεσμα θα είναι το ακόλουθο.
