Import CSV fil

Hej dyr.

Mig bekendt er der ingen smutveje men kun cool kode.  Men når det er en øvelse er det vel også det bedste.

Du skal lave en løkke, der bliver ved at køre så længe der forekommer kommaer i den indlæste tekststreng.  Når du læser fra en fil med \"Line Input\" læses frem til næste CR, altså linieskift.  En kommafil med mening må have lige mange felter i hver linie, ellers kan den næppe bruges til noget af nogle andre programmer.
Den del hvor brugeren vælger fil kan udformes på forskellig måde.  Du kan tilknytte kontrollen for standarddialogboks til åbning af filer: mscomm32.ocx, fortsæt evt. spørgsmålet om dette er et problem.

Løkken kunne se sådan ud, jeg angiver ikke Dim af variable, det kan du vel, men der skal være et todimensionelt array; eller skriver du efterhånden til liste eller lign?

  Open sti\\filename for input as #1
    Do while EOF(1)=false
      line input #1, string
igen:       
        k=instr(sting,\",\")
        data(x,y)=left$(string,k-1)
        string=mid$(string,k+1)
        if instr(string,\",\")>0 then
          y=y+1
          goto igen
        end if
      x=x+1
    Loop
  close #1

Hvis csv-filen indeholder tekst vil der ofte være \" om teksten, så må du søge på \",\" med instr, eller fjerne anførselstegn i en ekstra runde.  Hvis csv-filen kun indeholser tal har du ikke dette problem.  Opfat ovenstående som en skitse.

M.v.h.  Jørn   

PS. I Danmark er separatoren \";\" ikke \",\", men det burde ikke volde problemer at ændre koden...

Det komplicerer sagen hvis tekster inden i anførselstegn i sig selv indeholder enten kommaer eller anførselstegn. Kommaer i tekster må ikke opfattes som separatorer, anførselstegn i tekster er normalt \'escapet\' på den ene eller anden måde, afhængig af, hvilket program der har genereret csv-filen.

Mvh
Jesper Naur

damn det ser ikke nemt ud for en newbie, måske det er for stor en mundfuld.
Det er POPBeamer (en pop3 connector til exchange der har genereret csv filerne)

Ville det hjælpe hvis jeg postede lidt af indholdet fra en csv fil?

csv-filer? er det tekst-filer?

vis det er så kunne du jo også bruge noget som dette her:   
filnavn = InputBox$(\"Skriv navnet på filen: HUSK max 8 tegn\", \"max 8\")
    Open filnavn For Input As #1
    txtvindue = Input$(FileLen(filnavn), #1)
    lblfilåben = filnavn
    Close #1

undskyld sådan:

    filnavn = InputBox$(\"Skriv navnet på filen: HUSK max 8 tegn\", \"Tekstbeskyttelse 2.0\")
    Open filnavn For Input As #1
    txtvindue = Input$(FileLen(filnavn), #1)
    Close #1

csv = comma separated values. Ja, rene tekstfiler.
Eks:
1;5;1;;7;33;1;5,2;12,1;3,1415;0;
etc

så kan han/hun jo bare bruge min ovenstående kode.

/jsc

Under forudsætning af, at filen kun indeholder en enkelt linie (dette er kun sjældent opfyldt).

ja det er rigtigt!

/jsc

==>Badedyr

Prøv alligevel min kode!

/jsc

Har I aldrig hørt om Commondialog til at finde filnavne?

>>johs j.  Er det en kommentar til jsc  01-03-2001  22:39 ?  Eller sådan i bred almindelighed?
I mit svar højere oppe skriver jeg bl.a.: Den del hvor brugeren vælger fil kan udformes på forskellig måde.  Du kan tilknytte kontrollen for standarddialogboks til åbning af filer: mscomm32.ocx, fortsæt evt. spørgsmålet om dette er et problem.

M.v.h.  Jørn

>>Jørn
Undskyld. Det så jeg ikke.
mvh
Johs

>>Johs j.  Godt ord igen!    m.v.h.  Jørn

Undskyld den lange svartid. Jeg kan se at det ikke er noget jeg skal gå igang med at lave nu. Mine evner rækker ikke så vidt - endnu! Men jeg gemmer Joern\'s svar til senere brug!
Tak for hjælpen alle sammen!