Выбрать строку в текстовом файле - 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