2013-09-05 60 views
-1

我正在讀取CSV文件中的數據,而且我的目標是隻獲取選定的列,但目前爲止我只能循環獲取標題。有人能協助我循環,直到我得到行?如何從CSV文件中獲取行數據

進口System.IO 公共類Form1中

Private Sub btn_import_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_import.Click 
    Call csvmanagement() 

End Sub 
Structure systemstructure 

    Dim cGroupName As String 
    Dim cTransactDate As String 
    Dim cRow_ID As String 
    Dim cFullName As String 
End Structure 


Public Sub csvmanagement() 

    Dim systemspecs As New systemstructure 
    'Dim raw, column As Integer 
    Using csvparser As New FileIO.TextFieldParser _ 
    ("C:\Users\Eranji\Downloads\new.csv") 

     Dim csvalue As String() 

     csvparser.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited 
     csvparser.Delimiters = New String() {","} 

     csvalue = csvparser.ReadFields() 

     systemspecs.cGroupName = csvalue(0) 
     systemspecs.cTransactDate = csvalue(1) 
     systemspecs.cRow_ID = csvalue(2) 
     systemspecs.cFullName = csvalue(2) 

     While Not csvparser.EndOfData 

     End While 
     csvalue = csvparser.ReadFields() 

     End 

     ListBox1.Items.Add(systemspecs.cFullName & Chr(9) & systemspecs.cGroupName & Chr(9) & systemspecs.cRow_ID & systemspecs.cTransactDate) 
    End Using 

End Sub 

末級

回答

4

你只閱讀字段一次
閱讀字段是一個線
您需要循環結束

While Not MyReader.EndOfData 
    csvalue = csvparser.ReadFields() 
    ... 
End 

TextFieldParser.ReadFields

+0

你好布萊姆我需要得到的列和行...,這就足夠了......, –

+0

你好C-Pound Guru我需要得到列和行......,這就夠了。 –

+0

你試過了嗎? – Paparazzi