Блокнот = база данных, добавление и поиск - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д