Извлечение строки из текстового файла

[кофейник]

подскажите чайнику следующую вещь.
как можно сделать, чтобы в Label1.Caption отражалась
только определенная строка из открываемого текстового файла, допустим 4 или 7 и.т.д.
Спасибо.

[GSerg]

Эх, RayShade когда-то такую кодяру написал для этого, до сих пор без умиления вспомнить не могу... Не нашёл я её, затерялось на старом форуме где-то... Поэтому

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

Dim a as string, b as integer, i as long
b=freefile
open "myfile" for input as #b
do until eof(b)
  i=i+1
  line input #b, a
  if i=DesiredLineNumber then label1.caption=a:exit do
loop
close #b

[RayShade]

Не дадим пропасть культурному наследию прошлых лет:

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

on error resume next
dim fso as new filesystemobject
dim str as textstream
dim f as file
dim st as string
dim lbl as Object
dim cnt as long
set f = fso.getfile("file.txt")
set str = f.openastextstream(forReading)
st = str.readall
cnt = 1
Do Until cnt = 3
st = Mid(st, InStr(1, st, Chr(13) & Chr(10), vbTextCompare) + 1)
cnt = cnt + 1
Loop
Set lbl = Me.Controls.Add ("VB.Label", "Label5")
if err.number <>0 then set lbl = me.controls("Label5")
lbl.Caption = Replace(Replace(Mid(st, 1, InStr(1, st, Chr(13) & Chr(10), vbTextCompare)), Chr(13), "", 1, -1, vbTextCompare), Chr(10), "", 1, -1, vbTextCompare)
if err.number = 0 then
lbl.left=1
lbl.top=1
lbl.width = textwidth(lbl.caption)
lbl.height = textheight(lbl.caption)
end if


Вышеприведенный код создает на форме Label и пишет в него 3-ю строчку из указанного файла

[кофейник]

спасибо большое! все работает! извините за поздний ответ!