Satura rādītājs
Šī apmācība parādīs, kā izmantot FileSystemObject metodi OpenTextFile.
Atveriet teksta failu
Šajā nodarbībā tiek izmantots FileSystemObject. Lai to izmantotu, jums būs jāiestata atsauce uz VB skripta izpildes laika bibliotēku. Plašāku informāciju skatiet šeit.
Jūs varat atvērt lasīšanai esošu teksta failu:
| 1 | Iestatīt FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
un pēc tam ielīmējiet tā saturu pašreizējās darblapas pirmajā šūnā, piemēram:
| 12345678910 | Sub FSOReadFromTextFile ()Dim FSO kā jauns FileSystemObjectIestatīt FSO = CreateObject ("Scripting.FileSystemObject")Iestatīt FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1). Diapazons ("A1"). Vērtība = TextStringBeigu apakš |
Papildinformāciju par režīmu ForReading skatiet šeit.
ForWriting režīmā jūs varat aizstāt esoša faila saturu ar jauniem datiem, bet jūs nevarat lasīt no faila.
| 123456789 | Sub FSOWriteToTextFile ()Dim FSO kā jauns FileSystemObjectIestatīt FSO = CreateObject ("Scripting.FileSystemObject")Iestatīt FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "testa līnija"FileToWrite.CloseBeigu apakš |
Papildinformāciju par ForWriting režīmu skatiet šeit.
ForAppending režīmā varat rakstīt līdz faila beigām. Jūs nevarat lasīt no šī faila.
| 123456789 | Sub FSOAppendToTextFile ()Dim FSO kā jauns FileSystemObjectIestatīt FSO = CreateObject ("Scripting.FileSystemObject")Iestatīt FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "pievienots saturs"FileToAppend.CloseBeigu apakš |
