Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε τη μέθοδο OpenTextFile του FileSystemObject.
Ανοίξτε ένα αρχείο κειμένου
Αυτό το μάθημα χρησιμοποιεί το FileSystemObject. Για να το χρησιμοποιήσετε, θα πρέπει να ορίσετε μια αναφορά στη βιβλιοθήκη χρόνου εκτέλεσης σεναρίων VB. Δείτε εδώ για περισσότερες πληροφορίες.
Μπορείτε να ανοίξετε ένα υπάρχον αρχείο κειμένου για ανάγνωση:
1 | Ορισμός FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
και στη συνέχεια επικολλήστε το περιεχόμενό του στο πρώτο κελί του τρέχοντος φύλλου εργασίας, π.χ.
12345678910 | Sub FSOReadFromTextFile ()Dim FSO ως νέο FileSystemObjectΟρισμός FSO = CreateObject ("Scripting.FileSystemObject")Ορισμός FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringΤέλος υπο |
Για περισσότερες επιλογές με τη λειτουργία ForReading δείτε εδώ.
Στη λειτουργία ForWriting μπορείτε να αντικαταστήσετε το περιεχόμενο ενός υπάρχοντος αρχείου με νέα δεδομένα, αλλά δεν μπορείτε να διαβάσετε από το αρχείο.
123456789 | Υπο FSOWriteToTextFile ()Dim FSO ως νέο FileSystemObjectΟρισμός FSO = CreateObject ("Scripting.FileSystemObject")Ορισμός FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "δοκιμαστική γραμμή"FileToWrite.CloseΤέλος υπο |
Για περισσότερες επιλογές με τη λειτουργία ForWriting δείτε εδώ.
Στη λειτουργία ForAppending μπορείτε να γράψετε στο τέλος του αρχείου. Δεν μπορείτε να διαβάσετε από αυτό το αρχείο.
123456789 | Υπο FSOAppendToTextFile ()Dim FSO ως νέο FileSystemObjectΟρισμός FSO = CreateObject ("Scripting.FileSystemObject")Ορισμός FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "συνημμένο περιεχόμενο"FileToAppend.CloseΤέλος υπο |