Open Text file and count the lines : Text File Read « File Directory « VB.Net

Open Text file and count the lines

Imports System
Imports System.Drawing
Imports System.Data
Imports System.IO
Imports System.Collections
Imports System.Windows.Forms
Imports System.Drawing.Printing

Public Class MainClass
    Shared Sub Main()
        Dim myReader As StreamReader

            myReader = File.OpenText("test.vb")
        Catch e As IOException
            Exit Sub
        End Try

        Dim lineCounter As Integer = 0
        Dim currentLine As String, currentData As String

                currentLine = myReader.ReadLine
                lineCounter = lineCounter + 1
            Catch e As EndOfStreamException
                currentData = currentData & currentLine & vbCrLf
            End Try
        Loop While currentLine <> Nothing

        Console.WriteLine("Number of lines read: " & lineCounter - 1 )

        myReader = Nothing
    End Sub
End Class


Related examples in the same category

1.Read Text File ContentRead Text File Content
2.Read Text File in a single StatementRead Text File in a single Statement
3.Text File content outputText File content output
4.Read and Write Files
5.Read Text from a File
6.Read lines from a text file
7.Open text file to read
8.Read Text from a File
9.Read line by line from a text file
10.Read Text from a File with DO Until