Lang L: none (table-of-contents)
See õpetus näitab, kuidas kasutada FileSystemObjecti meetodit OpenTextFile.
Avage tekstifail
See õppetund kasutab FileSystemObject. Selle kasutamiseks peate määrama viite VB skripti käitusajale. Lisateavet leiate siit.
Lugemiseks saate avada olemasoleva tekstifaili.
1 | Määra FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
ja seejärel kleepige selle sisu praeguse töölehe esimesse lahtrisse, nt:
12345678910 | Alam FSOReadFromTextFile ()Dim FSO uue failisüsteemi objektinaMäära FSO = CreateObject ("Scripting.FileSystemObject")Määra FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.ClosThisWorkbook.Sheets (1) .Range ("A1"). Väärtus = TextStringEnd Sub |
Lisateavet režiimi ForReading kohta leiate siit.
ForWriting -režiimis saate olemasoleva faili sisu asendada uute andmetega, kuid te ei saa failist lugeda.
123456789 | Alam FSOWriteToTextFile ()Dim FSO uue failisüsteemi objektinaMäära FSO = CreateObject ("Scripting.FileSystemObject")Määra FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "testjoon"FileToWrite.SulgeEnd Sub |
Lisateavet ForWriting -režiimi kohta leiate siit.
ForAppending režiimis saate kirjutada faili lõppu. Te ei saa sellest failist lugeda.
123456789 | Alam FSOAppendToTextFile ()Dim FSO uue failisüsteemi objektinaMäära FSO = CreateObject ("Scripting.FileSystemObject")Määra FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "lisatud sisu"FileToAppend.CoseEnd Sub |