Avatar billede overchord Nybegynder
12. november 2003 - 13:48 Der er 3 kommentarer og
2 løsninger

Import af asc fil hvor header info skal droppes

Hejsa

Jeg har en raekke asc filer som jeg skal have importeret.
Mit hoved-problemt ligger i at faa importen til at spring over de foerste tre linjer i filen - resten virker fint hvis jeg fjerner headeren manuelt.

jeg bruger koden i retning af:

FreeF = FreeFile()

Open flnm For Input As FreeF

While Not EOF(FreeF)

input #freef, Var1, Var2,Var3 .........

herefter laver jeg en insert into sql som koerer uden probs

wend

jeg har forsoegt mig med at indsaette en input-linje foer while not EOF, men den ender med at laese hele filen ind i den foerste variabel istedet...
Har ogsa forsoegt med line ipnut - men det lader heller ikke til at virke.

Men mit spoergsmaal er kort og godt hvordan faar jeg importen til at springe over de to eller tre  foerste linjer i en text-fil samtidigt med at while-loopet kan koere?
Avatar billede fynbohans Nybegynder
12. november 2003 - 14:27 #1
Du kan f.eks. i dit loop tælle linjer(Linjeskift = vbCrLf)og gøre det du skal
gøre, når antal linjer er >3.
Avatar billede terry Ekspert
12. november 2003 - 14:29 #2
FreeF = FreeFile()


Open flnm For Input As FreeF

DIM i as integer

i = 0
While Not EOF(FreeF)

i = i+1
input #freef, Var1, Var2,Var3 .........

If i > 3 Then

herefter laver jeg en insert into sql som koerer uden probs

End if

wend
Avatar billede overchord Nybegynder
12. november 2003 - 14:55 #3
Takker - det var da en glimrende ide :-)

Deler point da fynbohans var foerst med ideen, men terry var lidt mere udfoerlig.

Nu har jeg et nyt problem i at linje to indeholder nogle column-headers som jeg ikke har brug for, men naar den laeser igennem linjen stopper den resten af filen i en enkelt variabel omkring tredje kolonne til trods for at der er line-breaks senere i dokumentet - nogen ideer?
Ellers maa jeg oprette et nyt spg.
Avatar billede terry Ekspert
12. november 2003 - 15:44 #4
Not quite sure what you mean here!

If i = 2 Then

    enenkeltvariabel = Mid(........)

End if
Avatar billede overchord Nybegynder
12. november 2003 - 15:59 #5
Jeg endte med at lave en hel anden leosning hvor jeg stripper headers udenfor access.
Problemet var at i linje to var der column headers for resten af filen e.g Sample  Station  Latitude  Longitude ...osv

Hver gang jeg proevede at laese linjen blev hele linjen + resten af filen smidt ind i den foerste variabel og jeg faar error 62 past end of file.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester