Avatar billede faroe Nybegynder
19. februar 2003 - 19:46 Der er 4 kommentarer

Tel linjer i en tekst fil

Vordan teller man vår mange lnjer der er i en tekst fil, det er ca 200.000 linjer i filen, 

Den metode tager for lang tid.

While Not rs.EOF
linje!!!!! + 1
Wend
Avatar billede sjap Praktikant
19. februar 2003 - 20:28 #1
Jeg ved ikke om denne her er ligeså langsom - jeg har ikke så mange linier

Open FilNavn For Input As #1
Do Until EOF(1)
    Line Input #1, strInputLine
    LineCount = LineCount + 1
Loop
Avatar billede faroe Nybegynder
19. februar 2003 - 20:33 #2
Når der er 200.000 linjer so er den lige langsom :( . det må være en anden funktion til dette???.
Avatar billede fynbohans Nybegynder
19. februar 2003 - 23:14 #3
200.000 linjer er mange, men følgende var måske et forsøg værd
- er ikke afprøvet! -
Hent hele filen (Text) og mål den (x1)

x1 = Len(Text)
Text = Replace(Text,vbCrLf,"")
x2 = Len(Text)

Linjer = (x1 - x2)/2
Avatar billede nih Novice
19. februar 2003 - 23:33 #4
eller hvad med at linke filen som en tabel og lave en foresp med select count
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