Innholdsfortegnelse
Denne opplæringen vil demonstrere hvordan du bruker OpenTextFile -metoden til FileSystemObject.
Åpne en tekstfil
Denne leksjonen bruker FileSystemObject. For å bruke det, må du angi en referanse til VB-skriptets kjøretidsbibliotek. Se her for mer informasjon.
Du kan åpne en eksisterende tekstfil for lesing:
1 | Sett FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
og lim deretter innholdet i det gjeldende regnearkets første celle, f.eks .:
12345678910 | Sub FSOReadFromTextFile ()Dim FSO som nytt filsystemobjektSett FSO = CreateObject ("Scripting.FileSystemObject")Sett FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringSlutt Sub |
For flere alternativer med ForReading -modus, se her.
I ForWriting -modus kan du erstatte innholdet i en eksisterende fil med nye data, men du kan ikke lese fra filen.
123456789 | Sub FSOWriteToTextFile ()Dim FSO som nytt filsystemobjektSett FSO = CreateObject ("Scripting.FileSystemObject")Sett FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "testlinje"FileToWrite.LukkSlutt Sub |
For flere alternativer med ForWriting -modus, se her.
I ForAppending -modus kan du skrive til slutten av filen. Du kan ikke lese fra denne filen.
123456789 | Sub FSOAppendToTextFile ()Dim FSO som nytt filsystemobjektSett FSO = CreateObject ("Scripting.FileSystemObject")Sett FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "vedlagt innhold"FileToAppend.CloseSlutt Sub |