【VB.NET】CSVファイルの読み込みとdatatableへの格納

Imports System.IO
Imports System.Data

Module CSVToDataTableModule
    Sub Main()
        Dim filePath As String = "C:\path\to\your\file.csv"
        Dim dataTable As DataTable = ReadCSVToDataTable(filePath)

        ' DataTableの内容を表示（確認用）
        For Each row As DataRow In dataTable.Rows
            For Each item As Object In row.ItemArray
                Console.Write(item.ToString() & vbTab)
            Next
            Console.WriteLine()
        Next
    End Sub

    Function ReadCSVToDataTable(filePath As String) As DataTable
        Dim dataTable As New DataTable()

        Try
            Using reader As New StreamReader(filePath)
                ' ヘッダー行を読み込んで列を作成
                Dim headers() As String = reader.ReadLine().Split(","c)
                For Each header As String In headers
                    dataTable.Columns.Add(header.Trim())
                Next

                ' データ行を読み込んでDataTableに追加
                While Not reader.EndOfStream
                    Dim fields() As String = reader.ReadLine().Split(","c)
                    Dim row As DataRow = dataTable.NewRow()
                    For i As Integer = 0 To fields.Length - 1
                        row(i) = fields(i).Trim()
                    Next
                    dataTable.Rows.Add(row)
                End While
            End Using
        Catch ex As Exception
            Console.WriteLine("エラーが発生しました: " & ex.Message)
        End Try

        Return dataTable
    End Function
End Module