Number of lines in a textbased file 1

[Ruffnekk]

Hi,

Is there a simple way to get the number of lines in a textbased file? With simple I mean not using a streamreader to count the number of ReadLine's that do not return Nothing I just want to determine the number of lines quickly to initialize a progressbar.

Regards, Ruffnekk
---
Is it my imagination or do buffalo wings taste just like chicken?

 

[TipGiver]

If you load the text in a textbox, then:

Dim a() As String = TextBox1.Text.Split(vbCr)
MessageBox.Show("Total lines: " & a.Length)

 

[Ruffnekk]

Yeah nice one but not what I want... you see, the textfiles I need to analyze contain 100,000+ lines of comma separated values. So far the streamreader proves to be the fastest, not fast though. Maybe I could try something with the last index of a cr...

Regards, Ruffnekk
---
Is it my imagination or do buffalo wings taste just like chicken?

 

[vladk]

Dim objReader As New System.IO.StreamReader(myfile)
Dim strText As String
Dim lngLines As Long

strText = objReader.ReadToEnd()
lngLines = Split(strText, vbCrLf).Length

 

[earthandfire]

Does your ProgressBar need to report the progress in direct relation to the number of lines?

You know the size of the fiie (System.IO will give you that), you know the length of the line you have just read.

ProgressBar's maximum value = FileSize
TotalBytesRead = 0
...
...
TotalBytesRead += Length of line just read

ProgressBar's current value = TotalBytesRead


or something similar ...


Hope this helps.

 

[Ruffnekk]

Thanks a lot. Why didn't I think of that

Regards, Ruffnekk
---
Is it my imagination or do buffalo wings taste just like chicken?