Объект TextStream. Чтение и запись файла

Методы CreateTextFile() и OpenTextFile() возвращают объект TextStream, с помощью которого производится дальнейшая работа с файлом. Объект TextStream содержит следующие методы:

Dim fso As New FileSystemObject
Dim f As TextStream
Set f = fso.OpenTextFile(ThisWorkbook.Path & "\file1.txt", _
                         ForWriting, True)
f.Write "Строка" ' Записываем строку в файл
f.Close          ' Закрываем файл
Dim fso As New FileSystemObject
Dim f As TextStream
Set f = fso.OpenTextFile(ThisWorkbook.Path & "\file1.txt", _
                         ForAppending)
f.WriteBlankLines 1
f.Close          ' Закрываем файл
Dim fso As New FileSystemObject
Dim f As TextStream
Set f = fso.OpenTextFile(ThisWorkbook.Path & "\file1.txt", _
                         ForAppending)
f.WriteLine "Строка3"
f.Close          ' Закрываем файл
Dim fso As New FileSystemObject
Dim f As TextStream
Set f = fso.OpenTextFile(ThisWorkbook.Path & "\file1.txt", _
                         ForReading)
Debug.Print f.Read(7) ' Строка1
f.Close               ' Закрываем файл
Dim fso As New FileSystemObject
Dim f As TextStream
Set f = fso.OpenTextFile(ThisWorkbook.Path & "\file1.txt", _
                         ForReading)
Debug.Print f.ReadLine() ' Строка1
Debug.Print f.ReadLine() ' Строка2
f.Close                  ' Закрываем файл
Dim fso As New FileSystemObject
Dim f As TextStream
Set f = fso.OpenTextFile(ThisWorkbook.Path & "\file1.txt", _
                         ForReading)
Debug.Print f.ReadAll()
' Строка1
' Строка2
' Строка3
'
f.Close                  ' Закрываем файл
Dim fso As New FileSystemObject
Dim f As TextStream
Set f = fso.OpenTextFile(ThisWorkbook.Path & "\file1.txt", _
                         ForReading)
f.Skip 9              ' Пропускаем 9 символов
Debug.Print f.Read(7) ' Строка2
f.Close               ' Закрываем файл
Dim fso As New FileSystemObject
Dim f As TextStream
Set f = fso.OpenTextFile(ThisWorkbook.Path & "\file1.txt", _
                         ForReading)
f.SkipLine            ' Пропускаем 1 строку
Debug.Print f.Read(7) ' Строка2
f.Close               ' Закрываем файл

Объект TextStream содержит следующие свойства (все свойства доступны только для чтения):

Dim fso As New FileSystemObject
Dim f As TextStream
Set f = fso.OpenTextFile(ThisWorkbook.Path & "\file1.txt", _
                         ForReading)
Do While Not f.AtEndOfStream
    Debug.Print f.ReadLine()
Loop
f.Close               ' Закрываем файл
Предыдущая статья Все статьи Следующая статья