PureBasic Forums - English

Posted: **Sat Apr 03, 2010 5:47 pm**

Hello,

I am trying to populate a listicongadget from a file.

This is the code i am using:

Procedure populate_list()

  If ReadFile(0, "Landers.dat")   ; if the file could be read, we continue...
    While Eof(0) = 0           ; loop as long the 'end of file' isn't reached
      landers$ = ReadString(0)
      ; explode the string
      
      AddGadgetItem(#ListIcon_1,-1,landers$)
           
    Wend
    CloseFile(0)               ; close the previously opened file
  Else
    MessageRequester("Information","Couldn't open the file!")
  EndIf

  EndProcedure

The procedure works, but it loops endlessly, instead of stopping at the end of the file, showing the same line over and over again. Why is it doing this?

Posted: **Sat Apr 03, 2010 6:14 pm**

Your code looks fine for me, so maybe the problem is in your text file?
Just add a debug ":"+landers$+":" after reading from the file to see, what kind of data will be read from the file...

Michael

Posted: **Sat Apr 03, 2010 6:18 pm**

debug also shows a endless row of the same (single) line in the file

Posted: **Sat Apr 03, 2010 6:27 pm**

This was my mistake, i put a call to the procedure in the main loop, so it was called over and over again

works fine now

PureBasic Forums - English

[DONE] Adding items from a file to a ListIconGadget,

[DONE] Adding items from a file to a ListIconGadget,

Re: Adding items from a file to a ListIconGadget, endless lo

Re: Adding items from a file to a ListIconGadget, endless lo

Re: Adding items from a file to a ListIconGadget, endless lo