КАК ПРОЧИТАТЬ 3-ю СТРОКУ ИЗ ТЕКСТОВОГО ФАЙЛА?

[step]

Как прочитать 3-ю строку из файла, т.е. что-бы при нажатии на кнопку, в тект бокс появлялась 3-я строка ИЗ ТЕКСТОВОГО ФАЙЛА?

[Mleha]

примитивный пример:

dim STR3 as string,i as byte
open "File.txt" for input as #1

for i=1 to 3
input #1, STR3
next i

close #1

[Sirik]

Можно с помощью FSO:

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

    Dim Fso As New FileSystemObject, FileManager
    Dim str_Read As String, Counter As Long
   
    Set FileManager = Fso.OpenTextFile("C:\date.txt", ForReading)

        Counter = 0

        Do While FileManager.AtEndOfStream <> True And Counter < 3
            str_Read = FileManager.ReadLine
            Counter = Counter + 1
         
        Loop
   
    Set FileManager = Nothing

    Text1.Text = str_Read


ЗЫ. Только не забудь подключить библиотек Runtime

[GSerg]

Ну, раз извращаемся...

open "file" for input access read as #1
text1.text=split(input$(lof(1),1),vbnewline)(2)
close #1


ЗЫ: пример выполнен в стиле "Копируем лист в Экселе" (RayShade знает ), поэтому представляет только академический интерес