End Sub

Сейчас, когда запустим программу, мы увидем, что в Text2 данные вывелись в очень достойном виде, но это потому, что мы используем для считывания оператор Input #. Если же открыть файл " Запись" в блокноте или считать файл с помощью оператора Line Input, то увидим несколько иную картину, вот такую:

15,"пятнадцать"

#TRUE#,#2004-07-20#

Поэтому делать текстовые файлы для чтения их в других приложения бессмысленно. Но использовать операторы Write# - Input# внутри программы для работы с собственными данными очень удобно.

Добавление данных в текстовой файл.

Чтобы добавить новые данные в текстовой файл и при этом не стирать имеющихся там, надо просто открыть файл с ключевым словом Append. Новые данные будут записываться в конец файла. Быстренько разберем это на примере. Для этого положим на форму последнюю кнопку Command7 и в ней напишем код:

Private Sub Command7_Click()

Text2.Text = ""

MyText = ""

F = FreeFile

Открываем файл для дабавления

Open App.Path & "\Запись.txt" For Append As #F

Print #F, Spc(15); "Я добавляю этот текст снова и снова"

Close #F

Считаем записанный текст в Text2

F = FreeFile

Open App.Path & "\Запись.txt" For Input As #F

Do Until EOF(F)

Line Input #F, MyText

Text2.Text = Text2.Text & MyText & vbCrLf

Loop

Дата добавления: 2015-07-19