Средства разработки приложений

         

Чтение файлов с помощью FSO


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

ЗадачаМетод
Чтение определенного числа символов из файлаRead
Чтение строки целиком (но не включая символ новой строки)ReadLine
Чтение текстового файла целикомReadAll

Если вы используете метод Read или ReadLine и хотите перейти к определенной части файла, воспользуйтесь методами Skip или SkipLine для пропуска определенного числа символов (или, соответственно, строк).

Полученный в результате использования этих методов текст может быть сохранен в символьной переменной и обрабатываться функциями Left, Right и Mid. Обратите внимание, что константа vbNewLine содержит символ или символы (в зависимости от операционной системы) перевода курсора на следующую строку (возврат каретки). Некоторые символьные переменные могут содержать в конце эти непечатаемые символы. Sub Read_Files() Dim fso As New FileSystemObject, txtfile Dim fil1 As File, ts As TextStream Set txtfile = fso.CreateTextFile("c:\testfile.txt", True) MsgBox "Writing file" ' Запись линии Set fil1 = fso.GetFile("c:\testfile.txt") Set ts = fil1.OpenAsTextStream(ForWriting) ts.Write "Hello World" ts.Close ' Чтение содержания файла Set ts = fil1.OpenAsTextStream(ForReading) s = ts.ReadLine MsgBox s ts.Close End Sub

Содержание раздела