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

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


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

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

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