double arrow

Объект TextFile

В статье приводится код объекта TextFile, который можно использовать для считывания и записи ин­формации в текстовый файл (рис. 9). Модуль класса включает следующий код:

РИСУНОК 9. Пример объекта TextFile.

Private pintFreeFile As Integer

Private pvarlnfo As Variant

Public Function ReadLineText(strFileName Aa String) As String

pintFreeFile = FreeFile

Open StrFileName For Input As pintFreeFile

Line Input #pintFreeFile, pvarlnfo

ReadLineText = pvarlnfo

Close XpintFreeFile

End Function

Public Function ReadAllText(strFileName As String) As String

pintFreeFile = FreeFile

Open strFileName For Input Aa pintFreeFile

Do Until VBA.EOF(pintFreeFile)

Line Input #pintFreeFile, pvarlnfo

ReadAllText = ReadAllText & vbCrLf & pvarlnfo

Loop

Close #pintFreeFile

End Function

Public Sub WriteLineText(strFileName As String, strText Aa String)

pintFreeFile = FreeFile

Open strFileName For Append As pintFreeFile

Write #pintFreeFile, strText

Close #pintFreeFile

End Sub


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: