Display text files records in a listview

Satyapriyanayak
Posted by Satyapriyanayak under VB.NET category on | Points: 40 | Views : 976
a.txt file

ID Name Gender Address
001 Phanny F Cambodia

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

Comments or Responses

Login to post response