Поиск в текстовом файле - VB

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

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

Подскажите пожалуйста, как организовать поиск в этой работе. Допустим, мне нужно ввести фамилию, а программа должна выдать его номер. смотреть в индивидуальном задании, остальное не нужно Да, вот само задание

Решение задачи: «Поиск в текстовом файле»

textual
Листинг программы
Private Программа As PostCard
Private number As Integer, i As Integer, RetInt As Integer, number1 As Integer, _
    b As Integer, y As Integer, NumberFile As Integer
 
Private Sub Выполнение_Click()
    Dim Family  As String
    Family = InputBox("Введите фамилию студента.", "Окно ввода")
    NumberFile = FreeFile
    Open "File.txt" For Random As #NumberFile
        number = 1
        Do While Not EOF(NumberFile)
            Get #NumberFile, number, Программа
            If LCase(Программа.Фамилия) = LCase(Family) Then
                MsgBox ("Номер записи: " & number)
                Exit Do
            End If
        Loop
        If EOF(NumberFile) Then
            MsgBox ("Запись не найдена")
        End If
    Close #NumberFile
End Sub
 
Private Sub Выполнить_Click()
    NumberFile = FreeFile
    Open "File.txt" For Random As #NumberFile
        number = 1
        Do
            Программа.Фамилия = InputBox("Введите фамилию студента.", "Окно ввода")
            Программа.Имя_и_отчество = InputBox("Введите имя и отчество студента.!", "Окно ввода")
            Программа.Год_установки = InputBox("Введите год установки студента.", "Окно ввода")
            Программа.номер_телефона = InputBox("Введите номер телефона студента.", "Окно ввода")
            Put #NumberFile, number, Программа
            If MsgBox("Продолжить ввод? Да или Нет?", vbYesNo, "Окно ввода") = vbYes Then
                number = number + 1
            Else
                Exit Do
            End If
        Loop
    Close #NumberFile
End Sub
 
Private Sub Выход_Click()
    End
End Sub

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


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

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

7   голосов , оценка 4.429 из 5
Похожие ответы