🚀 go-pugleaf

Hoi, da werkt prima maar heb nu een volgende vraag :

In m'n txtfile heb ik het volgende :

TEST1 21
TEST2 06
TEST3 21
TEST4 08

Ik wil TEST1 tot en met 4 in een combobox en de cijfers die erachterkomen
bij keuze van een TEST1/4 de cijfers gelinkt in een textveld.




"sotto" <junk@sotto.be> schreef in bericht
news:pan.2003.06.30.11.35.54.649259@sotto.be...
> On Mon, 30 Jun 2003 09:15:10 +0000, MdV wrote:
>
> > Hoi, hoe kan ik de inhoud van een txtfile (onwillekeurige hoeveelheid
> > items) importeren in een combobox ?
>
> Deze twee routines komen (lichtelijk gewijzigd) uit programming visual
basic 6.0 (microsoft
> press) geschreven door Francesco Balena en ik vind ze bijzonder handig om
>  om te gebruiken:
>
> in uw form_load zet ge bijvoorbeeld:
> call txttocombobox(Combobox1,"foobar.txt")
> en eronder of erboven:
>
> function readtextfile(filename as string) as string
>   dim fnum as integer, isopen as boolean
>   on error goto eh
>   fnum = freefile()
>   open filename for input as #fnum
>   isopen = true
>   readtextfile = input(LOF(fnum), fnum)
> eh:
>   if isopen then close #fnum
>   if err then err.reaise err.number,,err.description
> end function
>
> sub txttocombobox(cmb as combobox, filename as string)
>   dim items() as string, i as long
>   items = split(readtextfile(filename), vbcrlf)
>   for i = lbound(items) to ubound(items)
>     if len(items(i)) > 0 then cmb.additem items(i)
>   next
> end sub
>
>