VB.Net Import And Export Text File To DataGridView

How To Get And Set DataGridView Data To Txt File Text Using Visual Basic .Net

In this VB.NET Tutorial we will see How To Import Records From A Text File And Display The Values Into DataGridView, and Export DataGridView Rows Data To a Txt File Using DataTable, TextWriter, StreamWriter, ReadAllLines In Visual Basic.Net   Programming Language And Visual  Studio Editor.

Project Source Code:

Imports System.IO

Public Class TXT_IMPORT_EXPORT_DGV

    Dim table1 As New DataTable()

    Dim table2 As New DataTable()

    Private Sub TXT_IMPORT_EXPORT_DGV_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' add columns to your datatable

        ' with the name of the columns and their type

        table1.Columns.Add("Id", Type.GetType("System.Int32"))

        table1.Columns.Add("First Name", Type.GetType("System.String"))

        table1.Columns.Add("Last Name", Type.GetType("System.String"))

        table1.Columns.Add("Age", Type.GetType("System.Int32"))

        ' add rows to datatable with some data

        table1.Rows.Add(1, "AAAA", "BBBB", 21)

        table1.Rows.Add(2, "CCCC", "DDDD", 33)

        table1.Rows.Add(3, "EEEE", "FFFF", 53)

        table1.Rows.Add(4, "GGGG", "HHHH", 19)

        table1.Rows.Add(5, "MMMM", "NNNN", 36)

        table1.Rows.Add(6, "RRRR", "SSSS", 63)

        ' now set the datagridview datasource equals to your datatable name

        DataGridView1.DataSource = table1

        table2.Columns.Add("Id", Type.GetType("System.Int32"))

        table2.Columns.Add("First Name", Type.GetType("System.String"))

        table2.Columns.Add("Last Name", Type.GetType("System.String"))

        table2.Columns.Add("Age", Type.GetType("System.Int32"))

        DataGridView2.DataSource = table2

    End Sub

' button export

    Private Sub ButtonExport_Click(sender As Object, e As EventArgs) Handles ButtonExport.Click

        Dim writer As New StreamWriter("C:\Users\1BestCsharp\Desktop\Table2.txt")

        For i As Integer = 0 To DataGridView1.Rows.Count - 2 Step +1

            For j As Integer = 0 To DataGridView1.Columns.Count - 1 Step +1

                ' if last column

                If j = DataGridView1.Columns.Count - 1 Then

                    writer.Write(vbTab & DataGridView1.Rows(i).Cells(j).Value.ToString())

                Else

                    writer.Write(vbTab & DataGridView1.Rows(i).Cells(j).Value.ToString() & vbTab & "|")

                End If

            Next j

            writer.WriteLine("")

        Next i

        writer.Close()

        MessageBox.Show("Data Exported")

    End Sub

    ' button import

    Private Sub ButtonImport_Click(sender As Object, e As EventArgs) Handles ButtonImport.Click

        Dim lines() As String

        Dim vals() As String

        lines = File.ReadAllLines("C:\Users\1BestCsharp\Desktop\table2.txt")

        For i As Integer = 0 To lines.Length - 1 Step +1

            vals = lines(i).ToString().Split("|")

            Dim row(vals.Length - 1) As String

            For j As Integer = 0 To vals.Length - 1 Step +1

                row(j) = vals(j).Trim()

            Next j

            table2.Rows.Add(row)

        Next i

    End Sub

End Class

OutPut:

---

More VB.NET

➜ VB.Net Courses

➜ VB.Net Projects