大家作為開發領域中的一員，應該不會不知道VB.NET這一微軟.NET系列的編程語言。它的出現為開發人員帶來了方便的編程環境。下面我們將會為大家詳細介紹有關VB.NET操作CSV文件的一些操作技巧。#t#

從DataTable導入到CSV

1. Private Function ExportCsvProcess
   (ByVal FilePath As String ByVal, 
   dt As DataTable) As Boolean  
2. Dim fileStream As System.IO.FileStream  
3. Dim streamWriter As System.IO.StreamWriter  
4. Dim intRow, intCol As Integer  
5. Dim strRow As String  
6. '刪除舊CSV文件  
7. If (System.IO.File.Exists(FilePath)) Then  
8. System.IO.File.Delete(FilePath)  
9. End If  
10. Try  
11. fileStream = New FileStream(FilePath, 
    System.IO.FileMode.CreateNew, System.IO.
    FileAccess.Write)  
12. If Not dt Is Nothing Then  
13. streamWriter = New StreamWriter
    (fileStream, System.Text.Encoding.Default)  
14. strRow = "" 
15. '讀列名  
16. For intCol = 0 To dt.Columns.Count - 1  
17. strRow += dt.Columns(intCol).ColumnName  
18. If intCol < dt.Columns.Count - 1 Then  
19. strRow += ","  
20. End If  
21. Next  
22. streamWriter.WriteLine(strRow)  
23. '讀每行的值  
24. For intRow = 0 To dt.Rows.Count - 1  
25. strRow = "" 
26. For intCol = 0 To dt.Columns.Count - 1  
27. strRow += CStr(dt.Rows(intRow).Item(intCol))  
28. If intCol < dt.Columns.Count - 1 Then  
29. strRow += ","  
30. End If  
31. Next  
32. streamWriter.WriteLine(strRow)  
33. Next  
34. streamWriter.Close()  
35. End If  
36. Catch ex As Exception  
37. MessageShow(ex.ToString())  
38. Return False  
39. Finally  
40. fileStream.Close()  
41. End Try  
42. Return True  
43. End Function 

必要時可以進行特殊字符的過濾

VB.NET操作CSV文件中特殊字符的過濾

Private Function DelSpacChr
(ByVal str As String) As String  
Dim i As Integer  
Dim result As String = str 
Dim strSpac() As String = 
{"~", "!", "@", "#", "$", "%", 
"^", "&", "*", "(", ")", "`", ";", 
"'", ",", ".", "/", ":", "/,", 
"<", ">", "?"}  
For i = 0 To i < strSpac.Length 
If result.IndexOf(strSpac(i)) > -1 Then  
resultresult = result.Replace
(strSpac(i), "")  
End If  
Next  
Return result  
End Function 

下面是從CSV導入到DataTable，當然還可以像上面一樣使用文件流操作，但這里采用OLEDB類實現VB.NET操作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 

OK，VB.NET操作CSV文件完畢。