Importer un fichier CSV sans considérer la première ligne [Résolu]
Ghazalati7
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 : jordane4522835
Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut
16 octobre 2018
Dernière intervention
- 21 févr. 2014 à 12:26
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
jordane4522835
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
jordane4522835
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.
