Сообщество Чайников

Вопрос

Как открыть/сохранить в файле текстовую переменную?

Ответ

'Открыть
Public Function LoadTextFile(Path As String) As String
   Dim strFile As String
       
   Open Path For Binary As #1
   strFile = Space$(LOF(1))
   Get 1, , strFile
   Close #1
   LoadTextFile = strFile
End Function

'Закрыть
Public Function SaveTextFile(Path As String, Text As String)
     Open Path For Output As #1
     Print #1, Text
     Close #1
End Function


Артем Кривокрисенко