Загрузка CSV в DataGridView - Visual Basic .NET
Формулировка задачи:
Товарищи, нуждаюсь в вашей помощи, ломал голову, уже искал конвертер на Vb.net CSV в Xls, и пытался просто загрузить данные в DataGridView - никак не получается. Необходимо вот этот файл засунуть в DataGridView, заранее благодарен, если есть у кого интересные решения.
Решение задачи: «Загрузка CSV в DataGridView»
textual
Листинг программы
Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim TextFileReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\Users\k13\Downloads\output.csv") TextFileReader.TextFieldType = FileIO.FieldType.Delimited TextFileReader.SetDelimiters(" ") Dim TextFileTable As DataTable = Nothing Dim Column As DataColumn Dim Row As DataRow Dim UpperBound As Int32 Dim ColumnCount As Int32 Dim CurrentRow As String() While Not TextFileReader.EndOfData Try CurrentRow = TextFileReader.ReadFields() If Not CurrentRow Is Nothing Then ''# Check if DataTable has been created If TextFileTable Is Nothing Then TextFileTable = New DataTable("TextFileTable") ''# Get number of columns UpperBound = CurrentRow.GetUpperBound(0) ''# Create new DataTable For ColumnCount = 0 To UpperBound Column = New DataColumn() Column.DataType = System.Type.GetType("System.String") Column.ColumnName = "Column" & ColumnCount Column.Caption = "Column" & ColumnCount Column.ReadOnly = True Column.Unique = False TextFileTable.Columns.Add(Column) Next End If Row = TextFileTable.NewRow For ColumnCount = 0 To UpperBound Row("Column" & ColumnCount) = CurrentRow(ColumnCount).ToString Next TextFileTable.Rows.Add(Row) End If Catch ex As _ Microsoft.VisualBasic.FileIO.MalformedLineException MsgBox("Line " & ex.Message & "is not valid and will be skipped.") End Try End While TextFileReader.Dispose() DataGridView1.DataSource = TextFileTable End Sub End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д