Слишком сложно? Тогда запросите консультацию специалиста!
Наша компания занимается тем, что помогает студентам выполнять различные учебные работы на заказ. Вы можете ознакомиться с перечнем выполняемых работ, а так же с их стоимостью на странице с ценами.
В статье приводится код объекта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
