Tartalomjegyzék
Ez az oktatóanyag bemutatja a FileSystemObject OpenTextFile módszerének használatát.
Nyisson meg egy szövegfájlt
Ez a lecke a FileSystemObject objektumot használja. A használatához be kell állítania egy hivatkozást a VB script futásidejű könyvtárára. További információért lásd itt.
Meglévő szöveges fájlt nyithat meg olvasásra:
1 | Állítsa be a FileToRead = FSO.OpenTextFile fájlt ("C: \ Test \ TestFile.txt", ForReading) |
majd illessze be tartalmát az aktuális munkalap első cellájába, például:
12345678910 | Sub FSOReadFromTextFile ()Halvány FSO új fájlrendszer -objektumkéntSet FSO = CreateObject ("Scripting.FileSystemObject")Állítsa be a FileToRead = FSO.OpenTextFile fájlt ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringEnd Sub |
A ForReading mód további lehetőségeiről itt olvashat.
ForWriting módban a meglévő fájl tartalmát új adatokkal helyettesítheti, de nem tud olvasni a fájlból.
123456789 | FSOWriteToTextFile () alHalvány FSO új fájlrendszer -objektumkéntSet FSO = CreateObject ("Scripting.FileSystemObject")Állítsa be a FileToWrite = FSO.OpenTextFile fájlt ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "teszt sor"FileToWrite.CloseEnd Sub |
A ForWriting mód további lehetőségeiről itt olvashat.
ForAppending módban a fájl végére írhat. Nem tud olvasni ebből a fájlból.
123456789 | Sub FSOAppendToTextFile ()Halvány FSO új fájlrendszer -objektumkéntSet FSO = CreateObject ("Scripting.FileSystemObject")Állítsa be a FileToAppend = FSO.OpenTextFile fájlt ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "csatolt tartalom"FileToAppend.CloseEnd Sub |