Count Specific lines in a text file (that start with a number) - vb.net

Question

As a part of an application that i am building in VB.net, i am trying to import multiple txt files and be able to count how many lines of that file start with a specific number (for example 1) and show it in a message box.
Here is my code so far:
OpenFileDialog1.DefaultExt = "txt"
OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
For Each File In OpenFileDialog1.FileNames
My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
For Each fileName In OpenFileDialog1.FileNames
For Each line As String In System.IO.File.ReadLines(fileName)
Dim Linecount = line.count
If line.StartsWith("1") Then
MsgBox(LineCount)
End If
Next
Next
Next
The above code does not work as it gives me wrong number of lines. In my txt file i have only one line that starts with "1".

Answer 1

You are just showing the number of characters in each line here:
For Each line As String In System.IO.File.ReadLines(fileName)
Dim Linecount = line.Count ' Number of characters
You could use LINQ to get the number of lines that start with one:
Dim lineWithOne = File.ReadLines(fileName).Count(Function(l) l.StartsWith("1"))
If you don't want or can't use LINQ, this is the classic way:
Dim lineWithOne = 0
For Each line As String In System.IO.File.ReadLines(fileName)
If line.StartsWith("1") Then lineWithOne += 1
Next