Книга: VBA для чайников

Открытие объектов текстовых потоков

Открытие объектов текстовых потоков

Чтобы читать данные из файла или записывать их в файл, сначала нужно открыть файл как текстовый поток. В программном коде работа с текстовым потоком означает работу с объектом Text Stream. Начать эту работу можно одним из следующих трех способов.

* Открыть существующий объект File в режиме текстового потока.

* Создать новый файл и одновременно открыть его как текстовый поток.

* Открыть существующий на диске файл как текстовый поток.

В следующем примере процедуры этими тремя способами в указанном порядке открываются три отдельных объекта Text Stream, затем в один из этих объектов записываются данные, и объекты закрываются:

Sub TextStreamDemo()

Dim objFileSystem As FileSystemObject

Dim objFilel As File

Dim objTextStreaml As TextStream

Dim objTextStream2 As TextStream

Dim objTextStream3 As TextStream

Set ObjFileSystem = _

CreateObject("Scripting.FileSystemObject")

' Создание объекта File и использование его для создания объекта текстового потока

Set ObjFilel = _

objFileSystem.GetFile("С:СуществующийФайл.txt"]

Set objTextStreaml = _

objFilel.OpenAsTextStream(ForReading)

' Создание файла и открытие его как объекта _

' текстового потока

Set objTextStream2 = _

objFileSystem.CreateTextFile("C:Новый файл.txt")

' Открытие существующего файла как _

' текстовый поток

Set objTextStream3 = _

objFileSystem.OpenTextFile("C:Старыйфайл.txt")

' Запись двух строк текста в один из потоков

objTextStream2.WriteLine _

"Взвейтесь кострами, синие ночи!"

objTextStream2.WriteLine "Мы - пионеры, дети рабочих."

' Закрытие всех трех текстовых потоков

objTextStreaml.Close

objTextstream2.Close

objTextStream3.Close

End Sub

Хотя во всех трех случаях создаются объекты Text Stream, они не взаимозаменяемы. От выбранного в каждом конкретном случае способа зависит и способ доступа к данным в соответствующем файле. Подробнее об этом говорится в следующем разделе.

Каждый конкретный объект Text Stream позволяет либо читать данные из файла, либо записывать данные в файл, либо и то, и другое. Объект Text Stream позволяет выбрать для него один или несколько из трех режимов ввода-вывода. Один из этих режимов только для чтения, и есть два разных режима для записи - обычная запись (когда предполагается запись символов с самого начала текстового потока) и добавление (когда предполагается добавление символов в конец текстового потока).

Доступные для каждого конкретного объекта Text Stream режимы зависят от того, каким способом создан текстовый поток, а в случае метода OpenAsText Stream объекта File - от указанного для него режима. Вот соответствующая сводка.

Когда объект Text Stream создается из объекта File, режим ввода-вывода задается как аргумент метода OpenAsText Stream с помощью трех соответствующим образом названных констант: For Reading (для чтения), For Writing (для записи) и ForAppending (для добавления). Например, если нужно добавить текст в конец существующего файла, откройте текстовый поток с помощью следующего оператора:

Set objTS = objFile.OpenAsTextStreamfForAppending)

Открыв объект Text Stream в подходящем режиме доступа, можно начинать работу с содержимым файла. В вашем распоряжении для этого есть несколько простых методов.

Можно читать и записывать данные как отдельные символы или строки. Если только все элементы данных не равны по длине, я рекомендую построчное считывание и построчную запись. Когда читаются строки данных, вам не нужно знать длину строк, а только их номер. Сама же "строка" может состоять из любого числа символов и даже вообще не содержать ни одного символа.

В любом случае, чтобы читать данные из текстового потока, присвойте переменной значение, возвращаемое одним из подходящих методов объекта Text Stream. Следующий фрагмент программного кода подскажет вам, как это сделать:

' чтение следующей строки из файла в переменную

strНекоторыйТекст = Text Stream.ReadLine

Для чтения предусмотрены следующие методы.

Чтобы записать данные в текстовый поток, задайте текст для записи в виде строки как аргумент метода Write или WriteLine, как в следующем примере:

' запись строки

objTextStream.Write "Алло, центральная!"

' запись значения переменной с последующим символом

' перехода на новую строку

objTextStream.WriteLine strMyTwoBits

Завершив чтение текстового потока или запись в текстовый поток, всегда закрывайте объект Text Stream, чтобы освободить системные ресурсы и память и чтобы другие программы и пользователи смогли получить доступ к соответствующему файлу. Здесь нужен метод Close:

objText Stream.Close

Текстовые потоки хороши для чтения и записи относительно небольших по объему порций данных. Основная проблема состоит в том, что нельзя свободно перемещаться внутри текстового потока. Методы чтения начинают чтение данных с самого начала файла и читают его до конца. И хотя при чтении можно использовать методы Skip и Ski pLine, чтобы перепрыгнуть заданное число символов или строк, в обратном направлении перескакивать нельзя - выполнение оператора типа objText Stream. Skip (-10) порождает ошибку. к сожалению, объекты Text Stream не имеют методов или свойств, позволяющих прямо задать стартовую позицию для следующего чтения. Однако примерно то же самое можно сделать по-другому. Сначала нужно закрыть и снова открыть текстовый поток, а затем с помощью метода Skip пропустить на одну позицию меньше, чем номер нужной позиции. Например, если вы хотите прочитать 25 символов, начиная с 5-го символа в файле, соответствующую задачу выполнят следующие операторы:

objTextStream.Close

Set objTextStream = bjFile.OpenAsTextStream(ForWriting)

objTextStream.Skip(4)

objTextStream.Read(25)

При записи данных в текстовые потоки вы еще больше ограничены, чем при чтении, поскольку вообще не допускаются пропуски в файле. Каждая последующая операция записи начинается там, где закончилась предыдущая, и при этом переписывается любой текст, который может оказаться на соответствующих позициях в файле.

Поэтому, если вам нужно внести в каком-то месте файла некоторые изменения, не затрагивая при этом остальной текст, прочитайте все содержимое файла в строку, соответствующим образом измените ее, а затем замените все данные в файле новыми данными.

Оглавление книги