【VB.NET】CSV形式のファイルをDataTableや配列等として取得する

Imports System.IO
Imports System.Data

Module CSVToDataTableExample
    Sub Main()
        Dim filePath As String = "C:\path\to\your\file.csv"
        Dim dt As DataTable = GetDataTableFromCSV(filePath)

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

    Function GetDataTableFromCSV(filePath As String) As DataTable
        Dim dt As New DataTable()

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

            ' データ行を読み込み
            While Not reader.EndOfStream
                Dim fields() As String = reader.ReadLine().Split(","c)
                dt.Rows.Add(fields)
            End While
        End Using

        Return dt
    End Function
End Module

Imports System.IO

Module CSVToArrayExample
    Sub Main()
        Dim filePath As String = "C:\path\to\your\file.csv"
        Dim csvArray As String(,) = GetArrayFromCSV(filePath)

        ' 配列の内容を表示（確認用）
        For i As Integer = 0 To csvArray.GetUpperBound(0)
            For j As Integer = 0 To csvArray.GetUpperBound(1)
                Console.Write(csvArray(i, j) & vbTab)
            Next
            Console.WriteLine()
        Next
    End Sub

    Function GetArrayFromCSV(filePath As String) As String(,)
        Dim lines() As String = File.ReadAllLines(filePath)
        Dim rowCount As Integer = lines.Length
        Dim columnCount As Integer = lines(0).Split(","c).Length
        Dim csvArray(rowCount - 1, columnCount - 1) As String

        For i As Integer = 0 To rowCount - 1
            Dim fields() As String = lines(i).Split(","c)
            For j As Integer = 0 To columnCount - 1
                csvArray(i, j) = fields(j)
            Next
        Next

        Return csvArray
    End Function
End Module