Importer un fichier CSV sans considérer la première ligneRésolu

Question

Bonjour, 

je veux importer un fichier CSV dans ma Windows forme (datagridview) sans considérer la première ligne (l'entête du fichier) 

(je travail avec VB 2010 et VB.net)
merci d'avance

jordane45 · Answer

Bonjour,

Tout dépend du code que tu as mis en place pour faire cet import.

Peux tu nous montrer le code que tu utilises actuellement de façon à ce qu'on essaie de te l'adapter à tes besoins ?

Ghazalati · Answer

OK

Private Sub Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouvrir.Click
        Dim fName As String = ""
        OpenFileDialog1.InitialDirectory = "c:	emp"
        OpenFileDialog1.Filter = "CSV files (*.csv)|*.csv"
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = False
        If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            fName = OpenFileDialog1.FileName
        End If

Me.TextBox1.Text = fName
        Dim TextLine As String = ""
        Dim SplitLine() As String

If System.IO.File.Exists(fName) = True Then
            Dim objReader As New System.IO.StreamReader(fName)
            Do While objReader.Peek() <> -1
                TextLine = objReader.ReadLine()
                SplitLine = Split(TextLine, ",")
                Me.DataGridView1.Rows.Add(SplitLine)
            Loop
        Else
            MsgBox("File does not exist")
        End If

End Sub
 
 
--

Ghazalati · Answer

Bonjours;

Y-a-t-il personne qui sait m'aider à résoudre ce problème??
 
--

jordane45 · Answer

Bonjour,
Tu as essayé de lire la première ligne PUIS d'entrer dans ta boucle ?

If System.IO.File.Exists(fName) = True Then
            Dim objReader As New System.IO.StreamReader(fName)
           FirstLine = objReader.ReadLine()
          Do While objReader.Peek() <> -1
                TextLine = objReader.ReadLine()
                SplitLine = Split(TextLine, ",")
                Me.DataGridView1.Rows.Add(SplitLine)
            Loop
        Else
            MsgBox("File does not exist")
        End If

Ghazalati · Answer

Merci ça marche très bien  
 
j'ai autre autres choses je veux transposer cette table et je sais plus comment procéder ??

Importer un fichier CSV sans considérer la première ligne

5 réponses

Votre réponse