vb.net 下的 CSV文件操作

常见CSV文件的操作

从DataTable导入到CSV
Public Function CSVToDataTable(ByVal FilePath As String) As DataTable
Try
If (System.IO.File.Exists(FilePath)) Then
Dim fi As New System.IO.FileInfo(FilePath)
'HDR=NO 第一行當數據處理
'HDR=YES(默認）第一行當列處理
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Text;HDR=NO';Data Source=" & fi.DirectoryName
Dim objConn As New System.Data.OleDb.OleDbConnection(sConnectionString)

objConn.Open()

Dim strColum As String
Dim objCmdSelect As New Data.OleDb.OleDbCommand("SELECT Distinct * FROM " & fi.Name, objConn)
Dim objAdapter As New Data.OleDb.OleDbDataAdapter
Dim dt As New DataTable

objAdapter.SelectCommand = objCmdSelect
objAdapter.Fill(dt)
objConn.Close()
Return dt
End If
Catch ex As Exception
MessageShow(ex.ToString())
Return Nothing
End Try
End Function[/code]

OK，操作完畢。