txt-fil skal indlæses løbende i listbox...how?

Hej.

Du kan anvende en timer, der med et valgt interval genindlæser filen.
Men er du sikker på tekstboks er det bedste, ville en liste ikke være at foretrække?
Hvor længe skal processen køre, jeg mener man kan jo ikke overskue 1000 værdier!

Private Sub Timer1_Timer()
  Open dinsti & "\dinfil.txt" For Input As #1
        Do While EOF(1) = False
          Text1.Text = Input(FileLen(dinsti & "\dinfil.txt"), 1)
        Loop
  Close #1
End Sub

M.v.h.  Jørn

Det er noget i den retning, men jeg får kun en linje med fejl og ikke alle.

joern: Han foreslår jo selv en listbox, og ikke en textbox :o)

Et lidt andet forslag

  Open "C:\Fil.txt" For Input As #Filnummer
  i = 0 
  list1.clear
  while not eof(filnummer)
    Line Input #Filnummer, list(i)
    i = i+1
  loop 
  Close #Filnummer

Måske skal der stå:

  list1.clear
  Open "C:\Fil.txt" For Input As #Filnummer
  while not eof(filnummer)
    Line Input #Filnummer, dummy
    list1.additem dummy
  loop
  Close #Filnummer

Har ikke VB på denne PC, kan derfor ikke tjekke. Men er ret sikker på at ovenstående virker...

Hej.

Av, det havde jeg fejllæst.  Hvis tekstboks bruges skal 'multiline' være true og der skal være lodret scroll.  >>Martin, den sidste må fungere, den skal så blot stå i en timer's sub.  Vi venter på skovs.

M.v.h.  Jørn

Lige præcis hva jeg skulle bruge... jeg takker :-)

Hej.

Tak for point.  Jeg læser næsten altid tekst-filer én linie ad gangen, derfor bruger jeg også 'End Of File', men når der læses i ét hug, kan den og 'Loop' faktisk godt undværes.

M.v.h.  Jørn

Det var sålidt. Jeg ville også have givet moth en smule points, men jeg rodede lidt med pointene, så måske en anden gang. Tak skal i begge have.

Ingen årsag

(sjovt udtryk i øvrigt)