Third party ini mampu meng-handle semua ketentuan umum dalam pembacaan file CSV.
Disamping menggunakan urutan nomor kolom untuk menentukan nilai suatu kolom, juga dapat menggunakan nama header untuk menentukan nilai suatu kolom, sehingga urutan kolom bisa tidak beraturan.
Disamping kemampuan membaca file CSV, KBCsv juga mempunyai fungsi menulis file CSV menggunakan standard umum untuk file CSV, termasuk koma, petik dua dan line baru pada suatu kolom.
Berikut ini sample aplikasi pada VB.NET menggunakan KBCsv untuk membaca file CSV
Dan berikut ini sample untuk menulis file CSV
Click link berikut ini untuk mendownload KBCsv.
Silahkan mencoba dan bila mempunyai pertanyaan tentang software, jangan ragu untuk menghubungi info@aerje.com
http://blog.aerje.com
Dim reader As CsvReader = Nothing
Try
reader = New CsvReader("book1.csv")
reader.ValueSeparator = ","c
reader.ReadHeaderRecord()
Dim record As DataRecord = reader.ReadDataRecord
While (Not record Is Nothing)
Dim strOrang1 As String = record("Orang1")
Dim strOrang2 As String = record("Orang2")
record = reader.ReadDataRecord
End While
Catch ex As Exception
MsgBox(ex.Message)
Finally
If (Not reader Is Nothing) Then
reader.Close()
End If
End Try
Try
reader = New CsvReader("book1.csv")
reader.ValueSeparator = ","c
reader.ReadHeaderRecord()
Dim record As DataRecord = reader.ReadDataRecord
While (Not record Is Nothing)
Dim strOrang1 As String = record("Orang1")
Dim strOrang2 As String = record("Orang2")
record = reader.ReadDataRecord
End While
Catch ex As Exception
MsgBox(ex.Message)
Finally
If (Not reader Is Nothing) Then
reader.Close()
End If
End Try
Dan berikut ini sample untuk menulis file CSV
Dim writer As CsvWriter = Nothing
Try
writer = New CsvWriter("data.csv")
writer.WriteHeaderRecord("Name", "Age", "Gender")
writer.WriteDataRecord("Kent1", 25, "Male " & Chr(13) & Chr(10) & "ok")
writer.WriteDataRecord("Belinda1", 26, "Ma,le")
writer.WriteDataRecord("Tempany1", 0, "Ma""le")
Finally
If (Not writer Is Nothing) Then
writer.Close()
End If
End Try
Try
writer = New CsvWriter("data.csv")
writer.WriteHeaderRecord("Name", "Age", "Gender")
writer.WriteDataRecord("Kent1", 25, "Male " & Chr(13) & Chr(10) & "ok")
writer.WriteDataRecord("Belinda1", 26, "Ma,le")
writer.WriteDataRecord("Tempany1", 0, "Ma""le")
Finally
If (Not writer Is Nothing) Then
writer.Close()
End If
End Try
Click link berikut ini untuk mendownload KBCsv.
Silahkan mencoba dan bila mempunyai pertanyaan tentang software, jangan ragu untuk menghubungi info@aerje.com
http://blog.aerje.com
No comments:
Post a Comment