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

Ghazalati 7 Messages postés lundi 4 juin 2012Date d'inscription 21 février 2014 Dernière intervention - 20 févr. 2014 à 11:39 - Dernière réponse : jordane45 22835 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 16 octobre 2018 Dernière intervention
- 21 févr. 2014 à 12:26
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
Afficher la suite 

Votre réponse

6 réponses

jordane45 22835 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 16 octobre 2018 Dernière intervention - 20 févr. 2014 à 11:46
0
Merci
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 ?
Commenter la réponse de jordane45
Ghazalati 7 Messages postés lundi 4 juin 2012Date d'inscription 21 février 2014 Dernière intervention - Modifié par Ghazalati le 20/02/2014 à 12:03
0
Merci
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
 


--
Commenter la réponse de Ghazalati
Ghazalati 7 Messages postés lundi 4 juin 2012Date d'inscription 21 février 2014 Dernière intervention - 21 févr. 2014 à 11:55
0
Merci
Bonjours;

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

--
Commenter la réponse de Ghazalati
jordane45 22835 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 16 octobre 2018 Dernière intervention - 21 févr. 2014 à 12:00
0
Merci
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

Commenter la réponse de jordane45
Ghazalati 7 Messages postés lundi 4 juin 2012Date d'inscription 21 février 2014 Dernière intervention - 21 févr. 2014 à 12:23
0
Merci
Merci ça marche très bien

j'ai autre autres choses je veux transposer cette table et je sais plus comment procéder ??
jordane45 22835 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 16 octobre 2018 Dernière intervention - 21 févr. 2014 à 12:26
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.
Commenter la réponse de Ghazalati

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.