Читайте также:
|
Print #F, Spc(15); "Печатаю текст";
Print #F, Spc(15); "не очень хорошо"
И наконец несколько текстов в одном операторе
Print #F, Spc(10); "10 пробелов"; Tab(30); "30-й столбец+ 10 пробелов в начале"; Spc(5); "Пять пробелов"
Close #F
Считаем записанный текст в Text2
Text2.Text = ""
MyText = ""
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
Close #F
End Sub
Теперь запишем чего-нибудь в файл с помощью оператора Write #, а потом, уже корректно считаем это оператором Input # о котором мы уже говорили. С помощью оператора Write # удобно записывать данные программы. Есть две особенности. Первое - данные разделяются разделителем (запятой), и второе - данные надо считывать в переменные того же типа, что и запись в файле (то есть число - в число, дату в дату, стоку в строку и т.п., иначе возникнет ошибка) и представляются они в файле в достаточно своеобразном виде - каждый в своем формате. Сейчас разберем это на примере. Положим еще одну кнопку Command6 на форму и в ней объявим переменные четырех разных типов.
Private Sub Command6_Click()
Dim Chislo As Long ' числовая
Dim Stroka As String ' строковая
Дата добавления: 2015-07-19; просмотров: 54 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| End Sub | | | End Sub |