Visse linier fra en ini-fil til en listbox

Søgningen efter filen ER på plads, så det er "kun" at hive det rigtige data ud af ini filen...

Hej.

Jeg undrer mig jævnligt over, at så mange har problemer med at læse fra ascii-filer.  Det er - synes jeg - elementært, men det er måske fordi min fortid er DOS og GW-basic.

Dim linie as string, a as Integer

a = 0
Open "dinfil.ini" For Input as #1
  Do while EOF(1) = False
    Line Input #1, linie
    if a = 1 then list1.AddItem linie
    if linie = "[gruppe 2]" then a =1
  Loop
Close #1

a kan også være en Booleen og du kan teste på True eller False, det ville man
gøre 'i gamle dage' hvor RAM-hukommelsen var 64 Kb.

M.v.h.  Jørn

Hej Jørn

Tak for hurtig hjælp. Det virker perfekt!

Jeg har aldrig brugt fil I/O særlig meget, så derfor sidder det ikke på ryggraden. :-)

Mvh
Systemnissen

Hej. 
Tak for point.  Hvis der er flere grupper end 2, må du jo sætte a = 0 ved læsning af [gruppe 3] eller bedre, forlade læsning med en 'Exit Do' eller 'Exit Sub'.

M.v.h.  Jørn