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

1. VB.Net
2. File Directory
3. Text File Read

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

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

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

        Do
            Try
                currentLine = myReader.ReadLine
                lineCounter = lineCounter + 1
            Catch e As EndOfStreamException
                Console.WriteLine(e.Message)
            Finally
                currentData = currentData & currentLine & vbCrLf
            End Try
        Loop While currentLine <> Nothing

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

        myReader.Close()
        myReader = Nothing
    End Sub
End Class




           
         
    
  

Related examples in the same category

1.	Read Text File Content
2.	Read Text File in a single Statement
3.	Text 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