Поиск по строкам файла, разбивая каждую на самостоятельную единицу информации - VB

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

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

Доброго времени суток! Честно признаюсь слаб я в программировании, но все же пытаюсь состряпать что-то. Методом проб и ошибок часть кода я уже написал, но осталась вторая часть по работе с текстом и тут стопорнулся. Суть задачи такая: Имеется файл baza.txt, в которой записан номер строки и далее в строке через пробел ФИО и дата рождения. Имеется форма на которой стоит кнопка, 4шт label, и текстовое поле. Когда в текстовое поле вводится число, то при нажатии на кнопку в соответствующих label'ах появляется ФИО и дата. Как производить поиск по строкам я вроде написал, поправте если не прав:
Листинг программы
  1. Dim BFile
  2. Dim k As Integer
  3. Dim tN As String
  4. Dim N As String
  5. BFile = FreeFile
  6. Open ("C:\baza.txt") For Input As #BFile
  7. For k = 1 To 35
  8. Line Input #BFile, tN
  9. If k = Txt1.text Then N = tN
  10. Next k
  11. Close #BFile
Где-то в цикле надо вставить код, чтобы он еще и по найденной строке выбирал нужные слова, если я правильно понимаю. Но все что я находил в примерах на практике у меня не работает правильно, хотя велика вероятность в кривоте моих рук)) Прошу помочь, заранее благодарен всем за помощь!

Решение задачи: «Поиск по строкам файла, разбивая каждую на самостоятельную единицу информации»

textual
Листинг программы
  1. If k = Txt1.text Then N = tN:k=0:exit for

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


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

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

9   голосов , оценка 3.778 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы