Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Записать данные.

Закрыть файл.

Чтобы открыть файл, Вы можете использовать любой из двух методов: метод OpenAsTextStream объекта File или метод OpenTextFile объекта FileSystemObject.

Чтобы записать данные в открытый текстовый файл, используйте методы Write или WriteLine объекта TextStream. Единственое различие между Write и WriteLine - то, что WriteLine добавляет символы newline к концу строки. Если Вы хотите добавлять newline к текстовому файлу, используйте метод WriteBlankLines.

Чтобы закрыть открытый файл, используйте метод Close объекта TextStream.

Sub Create_File()

Dim fso, txtfile

Set fso = CreateObject("Scripting.FileSystemObject")

Set txtfile = fso.CreateTextFile("c:testfile.txt", True)

'Запись линии

txtfile.Write ("This is a test. ")

'Запись линии с символом newline

txtfile.WriteLine("Testing 1, 2, 3.")

'Запись трех символов newline в файл

txtfile.WriteBlankLines(3)

txtfile.Close

End Sub

Чтение файлов File System Objects

Чтобы читать данные из текстового файла, используйте методы Read, ReadLine или ReadAll объекта TextStream:

Чтение определенного числа символов из файла - Read

Чтение всей линии (но не, включая, символ newline) - ReadLine

Чтение всего содержания текстового файла - ReadAll

Если Вы используете метод Read или ReadLine, и Вы хотите перейти к специфической части данных, Вы можете использовать метод Skip или SkipLine. Полученный в результате использования этих методов текст может быть сохранен в символьной переменной и анализироваться Left, Right и Mid. Обратите внимание, что константа vbNewLine содержит символ или символы (в зависимости от операционной системы) чтобы продвинуть курсор к началу следующей линии (возврат каретки). Знайте, что концы некоторых символьных переменных могут иметь такие непечатаемые символы.

Sub Read_Files()

Dim fso As New FileSystemObject, txtfile

Рекомендуем скачать другие рефераты по теме: товар реферат, доклад по обж.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки