VB.NET讀取EXCEL CSV檔案

以下function可以讀取EXCEL的CSV檔案格式
使用方式在每讀一行時執行此function即可得到每個欄位資料


Public Function ParseCSV(ByVal text As String) As String()

Dim pattern As String = ",(?=(?:[^""]*""[^""]*"")*(?![^""]*""))"
Dim r As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(pattern)
Dim fieldValues As String() = r.Split(text)
Dim i As Integer

For i = 0 To fieldValues.Length - 1
fieldValues(i) = fieldValues(i).Replace("""", "")
fieldValues(i) = fieldValues(i).Replace(",", "")
Next

Return fieldValues

End Function