indlæsning at data fra txt.file

Antaget at din fil er tabulatorsepareret:

Dim iFileNum as Integer
Dim larIn
Dim strIn as string
iFilenum=Freefile

Open \"dinfil.txt\" For Input As iFilenum

While Not EOF(iFilenum)
  Line Input #iFilenum, strIn \'read row
  larIn = Split(strIn, vbTab) \'split by tabs
  For i=lbound(larin) to ubound(larin)
    debug.print larIn(i);
  Next i
  debug.print \'new row :o)
Wend
Close iFilenum


/Jennemaan

Hmm jeg sidder ikk ept ved en computer med VB, mht. visning af data i min listbox??

Antaget at din fil er tabulatorsepareret:

Dim iFileNum as Integer
Dim larIn
Dim strIn as string
iFilenum=Freefile

Open \"dinfil.txt\" For Input As iFilenum

While Not EOF(iFilenum)
  Line Input #iFilenum, strIn \'read row
  dinlistbox.AddItem strIn
Wend
Close iFilenum


/Jennemaan

Mange tak Jennemaan, har du evt. kendskab til en god hjælpe side!!