日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

大家作為開發(fā)領(lǐng)域中的一員，應該不會不知道VB.NET這一微軟.NET系列的編程語言。它的出現(xiàn)為開發(fā)人員帶來了方便的編程環(huán)境。下面我們將會為大家詳細介紹有關(guān)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類實現(xiàn)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 第一行當數(shù)據(jù)處理   
  
  
  
'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文件完畢。

新聞標題：VB.NET操作CSV文件實際代碼編寫
新聞來源：http://www.dlmjj.cn/article/djsggih.html