Kazalo
Ta vadnica bo pokazala, kako uporabiti metodo OpenTextFile za FileSystemObject.
Odprite besedilno datoteko
Ta lekcija uporablja FileSystemObject. Če ga želite uporabiti, morate nastaviti sklic na knjižnico časa izvajanja skripta VB. Za več informacij glejte tukaj.
Za branje lahko odprete obstoječo besedilno datoteko:
1 | Nastavi FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
in nato prilepite njegovo vsebino v prvo celico trenutnega delovnega lista, npr .:
12345678910 | Pod FSOReadFromTextFile ()Zatemni FSO kot nov datotečni sistemObjektNastavite FSO = CreateObject ("Scripting.FileSystemObject")Nastavi FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringEnd Sub |
Za več možnosti z načinom ForReading glejte tukaj.
V načinu ForWriting lahko vsebino obstoječe datoteke zamenjate z novimi podatki, vendar iz datoteke ne morete brati.
123456789 | Sub FSOWriteToTextFile ()Zatemni FSO kot nov datotečni sistemObjektNastavite FSO = CreateObject ("Scripting.FileSystemObject")Nastavi FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "testna vrstica"FileToWrite.CloseEnd Sub |
Za več možnosti z načinom ForWriting glejte tukaj.
V načinu ForAppending lahko pišete na konec datoteke. Iz te datoteke ne morete brati.
123456789 | Sub FSOAppendToTextFile ()Zatemni FSO kot nov datotečni sistemObjektNastavite FSO = CreateObject ("Scripting.FileSystemObject")Nastavi FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "priložena vsebina"FileToAppend.CloseEnd Sub |