Операции чтения и записи строк для текстового файла

Последовательный (строка за строкой) доступ к текстовому файлу обеспечивает объект TextStream. Методы этого объекта позволяют читать информацию из файла и записывать ее в него. Создается объект TextStream при открытии или создании текстового файла с помощью следующих методов:

· CreateTextFile объектов FileSystemObject и Folder;

· OpenTextFile объекта FileSystemObject;

· OpenAsTextStream объекта File.

Перечисленные ранее методы позволяют открывать файл в разных режимах ввода/вывода (за это отвечает параметр Iomode ) с использованием разных форматов (в соответствии со значением параметра Format ) (см. табл. 6.2, 6.3)

Таблица 6.2. Параметр Iomode
Константа Значение Описание
ForReading Файл открывается только для чтения, записывать информацию в него нельзя
ForWriting Файл открывается для записи. Если файл с таким именем уже существовал, то при новой записи его содержимое теряется
ForAppending Файл открывается для добавления. Если файл уже существовал, то информация будет дописываться в конец этого файла
Таблица 6.3. Параметр Format
Константа Значение Описание
TristateUseDefault -2 Файл открывается в формате, используемом системой по умолчанию
TristateTrue -1 Файл открывается в формате Unicode
TristateFalse Файл открывается в формате ASCII
         

В листинге 6.10 приведен сценарий TextFile.vbs, в котором создается файл test1.txt и в него записываются строка текста. После этого файл открывается для чтения, строка считывается из него и выводится на экран.

'*******************************************************************

' Имя: TextFile.vbs

' Язык: VBScript

' Описание: Запись строк в текстовый файл и чтение из него

'*******************************************************************

Dim FSO,F,TextStream,s 'Объявляем переменные

' Инициализируем константы

Const ForReading = 1, ForWriting = 2, TristateUseDefault = -2

 

' Создаем объект FileSystemObject

Set FSO=WScript.CreateObject("Scripting.FileSystemObject")

' Создаем в текущем каталоге файл test1.txt

FSO.CreateTextFile "test1.txt"

' Создаем объект File для файла test1.txt

set F=FSO.GetFile("test1.txt")

' Создаем объект TextStream (файл открывается для записи)

Set TextStream=F.OpenAsTextStream(ForWriting, TristateUseDefault)

' Записываем в файл строку

TextStream.WriteLine "Это первая строка"

' Закрываем файл

TextStream.Close

' Открываем файл для чтения

Set TextStream=F.OpenAsTextStream(ForReading, TristateUseDefault)

' Считываем строку из файла

s=TextStream.ReadLine

' Закрываем файл

TextStream.Close

' Отображаем строку на экране

WScript.Echo "Первая строка из файла test1.txt:" & vbCrLf & vbCrLf & s

'************* Конец *********************************************

Листинг 6.10. Запись информации в текстовый файл и чтение из него (VBScript)








Дата добавления: 2018-03-01; просмотров: 411;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.005 сек.