Keskustelu: Ohjelmointikysymykset: VB.NET: Virhe tiedoston luvussa(vb)

Mikä tossa mättää?

Dim rivi(200) As String

Open App.Path & "\code.txt" For Input As #1
    For i = 1 To EOF(1)
        Input #1, riv
        rivi(i) = riv
    Next i
Close #1
MsgBox rivi(1) 'Tulosta ensimmäinen rivi

EOF(1) on Boolen tyyppinen muuttuja, joka on tosi, kun tiedosto on luettu loppuun. Alussa se on siis 0.
Käytä Do-luuppia

Do Until EOF(1)
       Input #1, riv
       rivi(i) = riv
Loop

sedän koodiin yks korjaus,

Do Until EOF(1)
    i = i + 1
    Input #1, riv
    rivi(i) = riv
Loop

niin ja yksinkertaisempaa olisi:

Do Until EOF(1)
    i = i + 1
    Input #1, rivi(i)
Loop

Eikö VB:ssä ole i += 1?
tai i++?

Joo asia selvä!

juhis, se on kai vasta .netissä... ei ainakaan vb:ssä :(

ei ole, sehän on selvästi c ja c++ kielissä vain. (ei missään nimessä vb:issä, älkää vain sekoittako)

Joo, vasta VB.NETissä on nämä näppärät lyhennykset.