vb.net讀csv

 Imports Microsoft.VisualBasic
Imports System.IO
Imports System.Data

Public Class BaseClass
    Public Function getDataFMText(ByVal strFileFullPath As String) As ArrayList
        Dim intFileRowNo As Integer = 0
        Dim lstFileList As New ArrayList()

        Try
            Using srFileTxt As StreamReader = New StreamReader(strFileFullPath)
                Dim strline As String
                Do
                    strline = srFileTxt.ReadLine()
                    lstFileList.Add(strline)
                    intFileRowNo = intFileRowNo + 1
                Loop Until strline Is Nothing
                srFileTxt.Close()
            End Using
        Catch exException As Exception

        End Try
        Return lstFileList
    End Function

    Public Function getDataFMCsv(ByVal strFile As String, ByVal iCol As Long) As DataTable
        Dim dt As DataTable = New DataTable()
        Dim dr As DataRow
        Dim fs As FileStream = New FileStream(strFile, FileMode.Open, FileAccess.Read)
        Dim r As StreamReader = New StreamReader(fs, System.Text.Encoding.Default)
        Dim output As String = ""
        Dim arrData As String()

        ' init datatable columns  
        For i As Integer = 0 To iCol - 1
            dt.Columns.Add(New DataColumn(i.ToString()))
        Next

        ' read file  
        r.BaseStream.Seek(0, SeekOrigin.Begin)
        While (r.Peek() > -1)
            output = r.ReadLine()
            arrData = output.Split("")
            If arrData.Length < iCol Then
                iCol = arrData.Length
            End If
            dr = dt.NewRow()
            For i As Integer = 0 To iCol - 1
                dr(i) = arrData(i)
            Next
            dt.Rows.Add(dr)
        End While
        r.Close()
        Return dt
    End Function
End Class