How to show text files records in a listview

In this blog we will know how to show text files records in a listview.

Imports System.IO

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Id As String

Dim Name As String

Dim Gender As String

Dim Address As String

Try

Dim sr As StreamReader

Dim fs As FileStream

fs = New FileStream(("C:\temp\a.txt"), FileMode.OpenOrCreate)

sr = New StreamReader(fs)

Dim itm As Object

itm = sr.ReadLine

While Not itm = Nothing

Dim split As String() = itm.Split(New [Char]() {" "})

Id = split(0)

Name = split(1)

Gender = split(2)

Address = split(3)

ListView1.Items.Add(Id)

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(Name)

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(Gender)

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(Address)

itm = sr.ReadLine

End While

sr.Close()

fs.Close()

ListView1.Columns.Add("Id", 70, HorizontalAlignment.Center)

ListView1.Columns.Add("Name", 70, HorizontalAlignment.Center)

ListView1.Columns.Add("Gender", 70, HorizontalAlignment.Center)

ListView1.Columns.Add("Address", 70, HorizontalAlignment.Center)

ListView1.View = View.Details

ListView1.GridLines = True

ListView1.BackColor = Color.Aqua

ListView1.ForeColor = Color.Blue

Catch ex As System.Exception

System.Windows.Forms.MessageBox.Show(ex.Message, "Load Tool Data Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

End Class