[VB.NET]讀取CSV檔

2012-05-31

15053
0
.NET
2013-01-18

[VB.NET]讀取CSV檔

又是資料交換囉，除了常見的txt，excel，三不五時也會來個Csv檔，

直接進入Code~

Dim CsvImport As New OpenFileDialog()

        If CsvImport.ShowDialog = Windows.Forms.DialogResult.OK Then

            '先把CSV變成TXT檔，再去Parse
            My.Computer.FileSystem.CopyFile(CsvImport.FileName, CsvImport.FileName.Replace("csv", "txt"))
            Dim input = My.Computer.FileSystem.OpenTextFieldParser(CsvImport.FileName.Replace("csv", "txt"))

            '原本的CSV是用欄位隔開的不過轉成Txt後就自動用，號分隔，所以要用這行判斷
            input.SetDelimiters(",")

            '把資料讀進去ArrayList
            Dim rows As New ArrayList

            '先把第一列Title讀掉
            Dim title() As String
            title = input.ReadFields()

            While (Not input.endofdata)
                rows.Add(input.ReadFields)
            End While

       End if
 
'要抓的資料
'就像這樣rows(i)(0)=第 i 列第 1 欄的資料

以上感覺蠻簡短的，可以完成任務，不過有沒有其他怪地方要注意我還要研究一下，哈哈。

有任何建議歡迎通知我，感謝^^

回首頁