Combobox og kommasepareret fil

HVis du har VB 6.0

Skriv følgende.

Dim Tekst as string
Dim Felter() as string
Dim Antal as long

Open \"c:\\filen.csv\" for input as #1
tekst=input(lof(1),1)
close#1

Felter() = split(tekst,\",\")
Antal = Ubound(Felter()) + 1

Sådan nu har du hvor mange felter der ialt i variablen Antal.

Det først felt er nu Felter(0)
Og felt 2 er nu Felter(1)
Og felt 3 er nu Felter(2)

Osv...


/Mix

Jeg kan desværre ikke bruge Split i VBA

Hej


Hmm jeg har ikke testet denne function, men prøv om se om den ikke virker så du kan bruge koderne oven over ..

/Mix


function Split(StrText as string, StrSplitText as string)

Dim Antal as long
Dim Nr as Long
Dim Count as integer
Dim Bogstav as string
Dim Temp() as string

Antal = len(StrText)
redim Preserve Temp(count) as string

For Nr = 1 to Antal

  bogstav = mid$(StrText,nr,1)

if bogstav = StrSplitText then
  Nr = nr + 1
  if nr = antal then exit for
  Count = count +1
  redim Preserve Temp(count) as string
  bogstav = mid$(StrText,nr,1)
End if

Temp(count) = Temp(count) & bogstav

doevents

Next Nr

Split = Temp()

Exit Function