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