VB.NET lu seulement quelques cellules pour chaque ligne du fichier csv

Question

J'ai un fichier csv qui a la structure suivante:

id,name,adress,email,age 
1,john,1 str xxxx,john@gmail.com,19 
2,mike,2 bd xxxx,mike@gmail.com,21 
3,jeana,1 str ssss,jeana@gmail.com,18 
....................... 
....................... 

Ce que je voudrais faire est de lire le fichier csv, passez la première line (contient des en-têtes) et extrait les 2ème, 3ème et 4ème données de chaque ligne et remplit une vue de données.

Ceci est le code que je utilise cependant il me apporte tout le contenu csv:

DataGridView1.ColumnCount = 4 
DataGridView1.Columns(0).Name = "ID" 
DataGridView1.Columns(1).Name = "NAME" 
DataGridView1.Columns(2).Name = "ADRESS" 
DataGridView1.Columns(3).Name = "AGE" 
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser _ 
      (openFile.FileName)//the csv path 

       'Specify that reading from a comma-delimited file' 
       MyReader.TextFieldType = FileIO.FieldType.Delimited 
       MyReader.SetDelimiters(",") 
       Dim currentRow As String() 
       While Not MyReader.EndOfData 
        Try 
      currentRow = MyReader.ReadFields() 
      With DataGridView1.Rows.Add(currentRow) 'Add new row to data gridview' 
         End With 
        Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException 
         MsgBox("Line " & ex.Message & "is not valid and will be skipped.") 
        End Try 
       End While 
      End Using 

Alors quelqu'un peut me montrer comment faire cela? Merci.

Answer 1

Il pourrait être simple à lire la première ligne et jetez-le, commencer ensuite de lire les données réelles de votre fichier

Using MyReader As New TextFieldParser(openFile.FileName) 
    MyReader.TextFieldType = FileIO.FieldType.Delimited 
    MyReader.SetDelimiters(",") 
    Dim currentRow As String() 
    ' Read the first line and do nothing with it 
    If Not MyReader.EndOfData Then 
     currentRow = MyReader.ReadFields() 
    End If 
    While Not MyReader.EndOfData 
     Try 
      ' Read again the file 
      currentRow = MyReader.ReadFields() 
      DataGridView1.Rows.Add(currentRow(1), currentRow(2),currentRow(3)) 
     Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException 
      MsgBox("Line " & ex.Message & "is not valid and will be skipped.") 
     End Try 
    End While 
End Using 

EDIT voir votre commentaire ci-dessous, j'ai changé la ligne qui ajoutent la row pour ajouter uniquement les chaînes à la position 1,2 et 3. Ceci est bien sûr différent des colonnes ajoutées à DataGridView. Il n'est pas clair si vous voulez changer ces colonnes pour contenir seulement ces 3 champs. Si vous voulez toujours la colonne ID et AGE dans la grille, vous pouvez changer le Ajouter à

DataGridView1.Rows.Add("", currentRow(1), currentRow(2),currentRow(3), "")