Блокнот = база данных, добавление и поиск - VB

Узнай цену своей работы

Формулировка задачи:

Хотелось бы для своего удобства сделать утилиту в которую я смогу забивать данные из текст1 текст2 текст3, которые будут ссохраняться в файл, таким типом : текст1,текст2,текст3;текст1,текст2,текст3 и так до бесконечности+ приделать поиск по этим данным, пример :мне нужно найти данные, знаю только текст2, ввожу и мне показывает текст1,текст2,текст3 в виде маленькой табличке.

Решение задачи: «Блокнот = база данных, добавление и поиск»

textual
Листинг программы
Private Sub Command3_Click()
 Dim File As String, CF As String
   File = "\baseban.txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла
   Close #1
   Dim ArrayLines() As String
ArrayLines = Split(CF, vbNewLine)
 
Dim J
Dim S()  As String
 
For J = 0 To UBound(ArrayLines) - 1
S = Split(ArrayLines(J), ",")
If S(1) = Text5.Text Then
Text1.Text = S(0): Text2.Text = S(1): Text3.Text = S(3) ' трататата
Exit For
End If
Next J
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4 из 5