Выбрать строку в текстовом файле - VB
Формулировка задачи:
Форумчане простите меня!
Я никак не могу вспомнить как в текстовом файле выбрать строку.
например:
Нужно чтоб из option.txt он выбрал какуюнибудь строку(например 3ю)
Решение задачи: «Выбрать строку в текстовом файле»
textual
Листинг программы
Private Function v(fold As String, num) As String On Error GoTo 1 Dim F As Long Dim k As Integer, MyText As String F = FreeFile k = 0: v = "" Open fold For Input As #F Do Until EOF(F) k = k + 1 Line Input #F, MyText If k = num Then v = "номер строки: " & num & " значение:" & MyText Exit Do Else v = "номер строки: " & num & " значение: пусто " End If Loop Close #F Exit Function 1 v = "Error" End Function Private Sub Command1_Click() MsgBox v("D:\d\прп.txt", 3) '(путь,номер строки) 'или 'Dim stroka As String 'stroka = v("D:\d\прп.txt", 3) 'или 'Text1.Text = v("D:\d\прп.txt", 3) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д