1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

Importer un fichier CSV sans considérer la première ligne [Résolu]

Signaler
Messages postés
7
Date d'inscription
lundi 4 juin 2012
Statut
Membre
Dernière intervention
21 février 2014
 -
Messages postés
32451
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 mai 2021
 -
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

5 réponses

Réponse 1 / 5
Messages postés
32451
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 mai 2021
 347
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 ?
Réponse 2 / 5
Messages postés
7
Date d'inscription
lundi 4 juin 2012
Statut
Membre
Dernière intervention
21 février 2014
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:\temp\"
        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


--
Réponse 3 / 5
Messages postés
7
Date d'inscription
lundi 4 juin 2012
Statut
Membre
Dernière intervention
21 février 2014
Bonjours;

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

--
Réponse 4 / 5
Messages postés
32451
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 mai 2021
 347
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

Réponse 5 / 5
Messages postés
7
Date d'inscription
lundi 4 juin 2012
Statut
Membre
Dernière intervention
21 février 2014
Merci ça marche très bien

j'ai autre autres choses je veux transposer cette table et je sais plus comment procéder ??
Signaler
Messages postés
32451
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 mai 2021
 347
Bonjour,

Pense que tu ne dois poser qu'UNE question par discussion.
Celle-ci étant résolue, peut tu clôre le sujet en cliquant sur MARQUER COMME RESOLU ( sous le titre de ta question) puis ouvrir une nouvelle discussion sur le forum si tu as une autre question.
Répondre Posez votre question