[VB.NET] تصدير ملف نصي للداتا جريد فيو

كود :
Try

            Dim fname As String = "D:\file.txt"

            Dim fileContents = IO.File.ReadAllLines(fname).ToList

            For i = fileContents.Count - 1 To 0 Step -1

                If fileContents(i).Contains("--------") Then

                    fileContents.RemoveAt(i)

                    i -= 1

                End If

            Next

            IO.File.WriteAllLines(fname, fileContents.ToArray)

            Dim sw = System.Diagnostics.Stopwatch.StartNew()

            Using stream As System.IO.FileStream = System.IO.File.OpenRead(fname)

                Using reader As New System.IO.StreamReader(stream)

                    Dim line As String = reader.ReadLine()

                    While (line IsNot Nothing)

                        Dim columns = line.Split("|")

                        line = reader.ReadLine()

                        Dim index = Me.DataGridView1.Rows.Add()

                        Me.DataGridView1.Rows(index).SetValues(columns)

                    End While



                End Using

            End Using

            sw.Stop()

            DataGridView1.Refresh()

        Catch ex As Exception



        End Try