|
Jsem sice začátečník a nevím jak tento způsob zatěžuje paměť a procesor, ale postupoval bych následovně:
Dim pocet_radku As Integer = 0
Dim soubor As New IO.StreamReader("soubor.txt")
While Not soubor.EndOfStream
If soubor.ReadLine.StartsWith(";") = False Then
pocet_radku += 1
End If
End While
MsgBox("Počet řádků je: " & pocet_radku)
Doporučuju si přečíst seriál pro začátečníky, obzvláště pak díl č. 8, který se touto problematikou zabývá.
|