Как считывать по выбору строки в текстовом файле?

[ala-x]

Вот код который начинает читать строки с начала(с первой строки), если попадает на запись (end) в строке текстового файла.

Код: Выделить всё

10
d = d + 1
MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
Open App.Path & "\1.txt" For Input As #MyFile 'Открываем файл 1.txt для чтения
For i = 1 To d
Line Input #MyFile, tS 'Читаем файл 1.txt построчно
If i >= d Then S = tS 'Если пятая строка, то запоминаем ее в переменную S
Next i
Close #MyFile 'Закрываем файл
Label1.Caption = S

If S = "end" Then
d = 0
GoTo 10

Вопрос такой....Как к примеру читать строку 2 или 3 ,по выбору (скажем если я записываю в текст бокс число 3---значит читаем строку 3, Если заполняю число 7 --значит читаем строку 7 в текстовом файле)и выводить эту строку в текст бокс 2? к примеру надо дать название меню ,читая определённую строку из текст файла

[Xcode]

Почему бы не использовать ini файлы?

[DeMONiZ]

Вижу свой кривой код....
Видишь эту строчку?:

Код: Выделить всё

d = d + 1

поменяй ее на такую:

Код: Выделить всё

d=2

и посмотри что будет. Или дать пояснение всему коду?

[arvitaly]

Код: Выделить всё

    10
    d = d + 1
    MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
    Open App.Path & "\1.txt" For Input As #MyFile 'Открываем файл 1.txt для чтения
    For i = 1 To d
    Line Input #MyFile, tS 'Читаем файл 1.txt построчно
    If i >= d Then S = tS 'Если пятая строка, то запоминаем ее в переменную S
    Next i
    Close #MyFile 'Закрываем файл
    Label1.Caption = S

    If S = "end" Then
    d = 0
    GoTo 10

жесть

[DeMONiZ]

Ну да сейчас бы сделал по друому...

[ala-x]

Если заменить строчку

Код: Выделить всё

d = d + 1

на строчку

Код: Выделить всё

d=2

Выполняется переход только на строку 2 , а дольше не двигается

[MIT]

Если длина строки не фиксирована и не регламетирована, то сделать этого нельзя.

[FireFenix]

Код: Выделить всё

Public Function GetLine(ByVal FileName as String, ByVal Line As Integer) As String
  Dim i As Integer
  Dim Text as String
 
  i = 0
 
  Open FileName For Input As #1

  Do Until EOF(1)
    Line Input #1, Text
   
    If i = Line Then
      Close #1
     
      Return Text
    End If
   
    i = i + 1
  Loop
 
  Close #1
 
  Return Nothing
End Function


Вызов

Код: Выделить всё

Dim Line as String

Line = GetLine("C:1.txt", 5)

If Line Is Nothing Then
  MsgBox("Не правильно указанна строка")
Else
  TextBox1.Text = Line
End If


Думаю ТС хотел что-то типа этого

P.S. VB6 нету, поэтому писал по памяти на коленке

[ala-x]

Не совсем..К примеру есть текст файл в котором список программ.
Первая запись--"Программы" её читать не нужно.Нужно читать начиная со 2-й строки.К примеру (антивирус)
и после считывания всей записи после строки end Вернуться на строчку (антивирус) т.е. не на первую запись а на вторую

[FireFenix]

Не совсем..К примеру есть текст файл в котором список программ.
Первая запись--"Программы" её читать не нужно.Нужно читать начиная со 2-й строки.К примеру (антивирус)
и после считывания всей записи после строки end Вернуться на строчку (антивирус) т.е. не на первую запись а на вторую

Если ты хранишь какие-то данные с разделами подразделами, то тебе прямая дорога к изучению XML
как сосчитать с любой указанной строки я показал

Код: Выделить всё

GetLine(Файл, Строка)


[ala-x]

Нет ты меня не понял..самый верхний код этой темы работает отлично..Вот только он читать начинает с первой строки а нужно начинать со второй .Программа автоматически считывает одну строку показывает описание закрывает читает следующую строку.В твоём примере считывание строки фиксировано.Нужно просто сменить что то в верхнем коде.Я пробовал менять d=d+1 на d=d+2 Тогда начинает читать со 2-й строки но после достижения записи end ,не возвращается на вторую строку..Проблема в этом.XML ни какого отношения к этому не имеет

[alex77755]

А если считывать в массив и разбивать на строки?

Код: Выделить всё

  Dim File As String, CF As String
   'объявим пеpеменнyю для имени файла и его cодеpжимого
   File = App.Path & "\1.txt"  '   ycтановим имя файла и пyть
   Open File For Binary As #1    'откpоем файл для чтения
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла
   Close #1    'закpыть файл
'Разбиваем на массив строк
Dim ArrayLines() as  String
ArrayLines = Split(CF, vbNewLine)

'Теперь tmp = ArrayLines(0) - первая строка, tmp$ = ArrayLines(1) - вторая, итп...

Форма1.Текст2.Text = ArrayLines(Val(Форма1.Текст1.Text))