Съдържание
Този урок ще покаже как да използвате метода OpenTextFile на FileSystemObject.
Отворете текстов файл
Този урок използва FileSystemObject. За да го използвате, ще трябва да зададете препратка към библиотеката по време на изпълнение на VB скрипта. Вижте тук за повече информация.
Можете да отворите съществуващ текстов файл за четене:
| 1 | Задайте FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
и след това поставете съдържанието му в първата клетка на текущия работен лист, например:
| 12345678910 | Sub FSOReadFromTextFile ()Затъмнете FSO като нов FileSystemObjectЗадайте FSO = CreateObject ("Scripting.FileSystemObject")Задайте FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringEnd Sub |
За повече опции с режим ForReading вижте тук.
В режим ForWriting можете да замените съдържанието на съществуващ файл с нови данни, но не можете да четете от файла.
| 123456789 | Sub FSOWriteToTextFile ()Затъмнете FSO като нов FileSystemObjectЗадайте FSO = CreateObject ("Scripting.FileSystemObject")Задайте FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "тестова линия"FileToWrite.CloseEnd Sub |
За повече опции с режим ForWriting вижте тук.
В режим ForAppending можете да пишете до края на файла. Не можете да четете от този файл.
| 123456789 | Sub FSOAppendToTextFile ()Затъмнете FSO като нов FileSystemObjectЗадайте FSO = CreateObject ("Scripting.FileSystemObject")Задайте FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "добавено съдържание"FileToAppend.CloseEnd Sub |
