Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Базы данных (DAO, ADO, ODBC)  
     
  Пример работы с текстовой БД  
  Этот пример удачно демонстрирует организацию работы со своей текстовой базой данных.
В один обычный бытовой текстовый файл можно записать однострочный или многострочный текст. Если придумать оригинальный признак окончания записи, то можно вообще будет записывать любую информацию, например файлы, содержащие все символы из стандартной таблицы.
В нашем случае признаком конца записи является 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
 
     
  VBNet online (всего: 51609)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам