Выбрать строку в текстовом файле - VB

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

Форумчане простите меня! Я никак не могу вспомнить как в текстовом файле выбрать строку. например:

                    Листинг программы
                
f = FreeFile
pathx = App.Path & "\" & "option.txt"
Open pathx For Input As f
MsgBox Input(LOF(f), f) 
Close f

Нужно чтоб из 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

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

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

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

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

Похожие ответы