Filling listbox

[Brian]

Hi,

I want to fill a listbox with filenames from the default directory. The filenames I want to
appear will all start with "6.1"

I don't know how many there will be, so I can't use a loop, and I don't know if there will
be any there at all when I activate the listbox (which is in a dialog at the moment)

Had a search, but didn't find anything. Could do with some help...

Brian

[LarryMc]

This should help you get started:

Code Select Expand

'create your listbox here
'blah...blah

'determine your default directory
'blah blah
istring mydefaultdir="c:\\"

DEF dir:INT
DEF filename:STRING
dir = FINDOPEN(mydefaultdir+"6.1*.*")
IF(dir)
    DO
        filename = FINDNEXT(dir)
        if filename <>""
            ADDSTRING mydlg, mylistbox, filename
       endif
    UNTIL filename = ""
    FINDCLOSE dir
ENDIF

LarryMc

[Brian]

Larry,

It did get me going - and now I can't go to bed until I finish it!

Thanks,

Brian

[aurelCB]

Hi...
Is there a way to load txt file cca 100kB to Listbox on fast way?
I know that listbox need sequential inserting or adding but maybe some
have another solution.

Aurel

[aurelCB]

OK..here is what i made .
Program load txt file into Listbox.

Code Select Expand

window w1
int c
string i$,l$,filename
file file1
OPENWINDOW w1,0,0,790,400,@minbox,0,"Load from file",&main
SETWINDOWCOLOR w1,rgb(220,220,226)

CONTROL w1,@sysbutton,"Load",4,4,80,20,0,1
CONTROL w1,@LISTBOX,"",4,24,776,330,@HSCROLL,2
'SETHORIZEXTENT w1, 2, 100

SETCONTROLCOLOR w1,2,RGB(240,230,0),RGB(0,0,0)
SETFONT w1,"Courier New",9,400,0,2

WAITUNTIL w1=0
END

SUB main
SELECT @MESSAGE
'***********************************************
CASE @IDCREATE
CENTERWINDOW w1
'**********************************************
CASE @IDCLOSEWINDOW
CLOSEWINDOW w1
'**********************************************
CASE @IDCONTROL
'--------------------------------------------
IF @controlid=1
LoadToListbox()
ENDIF
'--------------------------------------------
'**********************************************
ENDSELECT
RETURN
ENDSUB

SUB LoadToListbox()
c=0
filename="archive.txt"
OPENFILE(file1,filename,"R")
WHILE EOF(file1)=0
Read(file1,i$)
INSERTSTRING w1,2,c,i$
c=c+1
WEND
CLOSEFILE file1
RETURN
ENDSUB

Hmm
I don't know why horizontal scrollbar is not visible?

[Brian]

Aurel,

You better make sure your string variable is large enough to hold a full line

Got the horizontal scrollbar working in this example, and added a bit of assembly
in there to speed things up

Brian

[aurelCB]

Hi Brian..
Thanks on help.
I made mistake in :
SETHORIZEXTENT w1, 2,100
which is not enough ,that's why i don't see horizontal scrollbar
In my case size of line is not bigger then 255 chars so ordinary string is ok
but your point is good because istring is better option.

Aurel