aktuel linie fra txt fil

Det ved jeg da godt, men sidder på skolen, så kan det ordnes når jeg kommer hjem cirka kl. 4??

Hej.

Hvordan kan du være sikker på at det er linie 10 du skal have fat i ?  Men er du det da:

Dim dinsti, linie as String
Dim x as Integer

x=0
Open dinsti & \"\\dinfil.txt\" for Input as #1
  Do While EOF(1) = False
    Line input #1, linie
    x = x + 1
    If x = 10 then
      Text1.Text = linie
      Exit Do
  Loop
Close #1

M.v.h.  Jørn

Hej Joern

Flot kode. Der skal dog lige sættes End If ind efter Exit Do.

ea_data>>

Tak, VB er jo så flink at huske mig på det også.  Men nogle gange når jeg glemmer en \"next\" får jeg at vide at det er \"end if\" der mangler.  Det er i VB5  Træerne vokser jo ikke ind i himlen.

Når nu Kragsborg bliver lidt dygtigere skal han lære at bruge \"Instr\" til sine søgninger i tekstfiler.  Koden forudsætter jo også at der med \"linie\" mens afsnit - nemlig til næste CR+LF.

M.v.h.  Jørn