Avatar billede mihl Nybegynder
19. juli 2008 - 19:21 Der er 9 kommentarer og
1 løsning

komma separeret fil

Jeg har en fil der ser nogenlude sådan her ud:

text1;text2;text3;text4;text5;text6;text7
test1;test2;test3;test4;test5;test6;test7
asd;asd;asd23;adse3;24asd;4132;asdasd34

Jeg har brug for at kunne finde den 2, 4 og 7 værdi i hver linje...
Hjælp?
Avatar billede arne_v Ekspert
19. juli 2008 - 19:41 #1
Using sr As New StreamReader("C:\csv.csv")
                Dim line As String
                line = sr.ReadLine()
                While line IsNot Nothing
                    Dim parts As String() = line.Split(";"C)
                    ' goer noget med parts(1), parts(3), parts(6)
                    line = sr.ReadLine()
                End While
            End Using
Avatar billede arne_v Ekspert
19. juli 2008 - 19:41 #2
sorry - du mener i VB6 ?  (min kode er VB.NET)
Avatar billede mihl Nybegynder
19. juli 2008 - 19:54 #3
VB6 - ja :)
Avatar billede mihl Nybegynder
19. juli 2008 - 19:56 #4
Og, den skal helst ikke læse 1. linje :) Bare lige for at være lidt besværlig
Avatar billede arne_v Ekspert
19. juli 2008 - 19:57 #5
utestet:

    Open f For Input As #1
    Do While Not EOF(1)
        Line Input #1, linestr
        parts = Split(linestr, " ")
        ' goer noget med parts(1), parts(3), parts(6)
    Loop
    Close #1
Avatar billede arne_v Ekspert
19. juli 2008 - 19:58 #6
skippe første linie er nemt

bare læse den og lad være med at gøre noget ved den

    Open f For Input As #1
    Line Input #1, linestr
    Do While Not EOF(1)
        Line Input #1, linestr
        parts = Split(linestr, " ")
        ' goer noget med parts(1), parts(3), parts(6)
    Loop
    Close #1
Avatar billede mihl Nybegynder
19. juli 2008 - 20:02 #7
Nysgerrig - hvad fik den til at hoppe 1. linje over?
Avatar billede arne_v Ekspert
19. juli 2008 - 20:04 #8
Open f For Input As #1
    Line Input #1, linestr ' læser 1. linie og gør ikke noget med den
    Do While Not EOF(1)
        Line Input #1, linestr ' læser alle efterfølgende linier og gør faktisk noget ved dem
        parts = Split(linestr, " ")
        ' goer noget med parts(1), parts(3), parts(6)
    Loop
    Close #1
Avatar billede mihl Nybegynder
19. juli 2008 - 20:50 #9
Super... det virker 100%... Smid et svar :)
Avatar billede arne_v Ekspert
19. juli 2008 - 20:55 #10
svar
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
Kurser inden for grundlæggende programmering

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