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
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
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
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
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.