| |
Пример работы с текстовой БД |
|
| |
Этот пример удачно демонстрирует организацию работы со своей текстовой базой
данных.
В один обычный бытовой текстовый файл можно записать однострочный или многострочный
текст. Если придумать оригинальный признак окончания записи, то можно вообще
будет записывать любую информацию, например файлы, содержащие все символы из
стандартной таблицы.
В нашем случае признаком конца записи является chr$(175), который в тексте не
встречается и с клавиатуры не набирается.
Итак, приступим... Запишем данные из двух текстбоксов в файл и считаем обратно...
Расположим на форме две кнопки и два поля текста
Command1 - "Чтение"
Command2 - "Запись".
Txt1 - одно поле
Txt2 - второе поле
У текстовых полей установите свойство MultiLine = true для многострочности
Dim Massiv$(0 To 100), Stroka$
'...
''''чтение данных
Private Sub Command1_Click()
Dim scet2%, dd%
On Error Resume Next
Open "text.txt" For Input As #1
Stroka = Input$(LOF(1), 1)
Close #1
'инициализация
dd = 1: e = 0: scet2 = 0
Erase Massiv
'заполнение массива Massiv()
While InStr(e + 1, Stroka, Chr$(175)) > 0
e = InStr(e + 1, Stroka, Chr$(175))
Massiv(scet2) = Mid$(Stroka, dd, e - dd)
scet2 = scet2 + 1
dd = e + 3
Wend
'вывод текста по текстбоксам
Txt1.Text = Massiv(0)
Txt2.Text = Massiv(1)
'обработка ошибок
If Err Then MsgBox "Error #" & Err.Number & " = " & Err.Description,
vbCritical
End Sub
''''запись данных
Private Sub Command2_Click()
'Обратите внимание что записываем в файл
'не текстбоксы, а массив да еще в цикле,
'во как!. Массив же изменяем в ходе
'изменения текста.
Open "text.txt" For Output As #2
Print #2, Massiv(0) & Chr$(175)
Print #2, Massiv(1) & Chr$(175)
Close #2
End Sub
'а вот и изменение массива:
Private Sub Txt1_Change()
Massiv(0) = Txt1.Text
End Sub
Private Sub Txt2_Change()
Massiv(1) = Txt2.Text
End Sub
|
|
| |
|
|
|
|