Importer un fichier CSV sans considérer la première ligne [Résolu]
Ghazalati
Modérateur Dernière intervention
14 février 2019
- 21 févr. 2014 à 12:26
- Messages postés
- 7
- Date d'inscription
- lundi 4 juin 2012
- Dernière intervention
- 21 février 2014
- Messages postés
- 24522
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
A voir également:
- Vb.net csv
- Vb.net csv to datagridview - Meilleures réponses
- Csv to datagridview vb.net - Meilleures réponses
- Visual Basic / VB.NET : Split amélioré (pour fichiers csv du style 001,"youpi,&cc - Guide
- Visual Basic / VB.NET : Exportation csv->sql - CodeS SourceS - Guide
- Visual Basic / VB.NET : Exporter une datatable au format csv - CodeS SourceS - Guide
- Visual Basic / VB.NET : [access vba] exporter sql vers fichier plat (csv, txt ou autre) - CodeS Sour - Guide
- Visual Basic / VB.NET : Vbscript permettant de passer un fichier excel en csv - CodeS SourceS - Guide
5 réponses
- Messages postés
- 7
- Date d'inscription
- lundi 4 juin 2012
- 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
--
- Messages postés
- 24522
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
Bonjour,
Tu as essayé de lire la première ligne PUIS d'entrer dans ta boucle ?
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
- Messages postés
- 24522
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
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.
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.
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.