Indholdsfortegnelse
Denne vejledning viser, hvordan du bruger OpenTextFile -metoden i FileSystemObject.
Åbn en tekstfil
Denne lektion bruger FileSystemObject. For at kunne bruge det skal du angive en reference til VB-scriptets kørebibliotek. Se her for mere information.
Du kan åbne en eksisterende tekstfil til læsning:
| 1 | Indstil FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
og indsæt derefter dets indhold i det aktuelle regnearks første celle, f.eks .:
| 12345678910 | Sub FSOReadFromTextFile ()Dim FSO som nyt filsystemsystemIndstil FSO = CreateObject ("Scripting.FileSystemObject")Indstil FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringAfslut Sub |
For flere muligheder med Forlæsningstilstand se her.
I ForWriting -tilstand kan du erstatte en eksisterende fils indhold med nye data, men du kan ikke læse fra filen.
| 123456789 | Sub FSOWriteToTextFile ()Dim FSO som nyt filsystemsystemIndstil FSO = CreateObject ("Scripting.FileSystemObject")Indstil FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "testlinje"FileToWrite.LukAfslut Sub |
For flere muligheder med ForWriting -tilstand se her.
I tilstanden ForAppending kan du skrive til slutningen af filen. Du kan ikke læse fra denne fil.
| 123456789 | Sub FSOAppendToTextFile ()Dim FSO som nyt filsystemsystemIndstil FSO = CreateObject ("Scripting.FileSystemObject")Indstil FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "tilføjet indhold"FileToAppend.CloseAfslut Sub |
