Keskustelu: Ohjelmointikysymykset: VB6: Tiedoston rivit (VB)

Miten lasketaan kuinka monta riviä on esim tiedosto.txt:ssä?

Ei kai siinä oikein muukaan auta kuin lukea jokainen rivi ja lisätä joka kerralla laskuria yhdellä. Tämä on testaamatonta koodia, mutta pitäisi toimia. Eof on tosi silloin, kun ollaan tiedoston lopussa. Line Input taas lukee kokonaisen rivin, vaikka siinä olisi pilkkuja.

Dim rivit As Integer, rivi As String
Open "tiedosto.txt" For Input As #1
Do Until Eof(1)
    Line Input #1, rivi
    rivit = rivit + 1
Loop
Close #1
MsgBox "Tiedostossa on " & rivit & " riviä."