Importer un fichier CSV sans considérer la première ligne [Résolu]
Ghazalati
Modérateur Dernière intervention
13 décembre 2018
- 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
- 23607
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
A voir également:
- Visual basic csv
- Vb.net csv - Meilleures réponses
- Csv vb - Meilleures réponses
- Importer un fichier CSV dans différentes tables ✓ - Forum - PHP
- Importer un fichier csv de grand taille ✓ - Forum - PHP
- PHP : Import fichiers csv dans une base de données - CodeS SourceS - Guide
- SQL : Importation de fichier text (csv) rapidement - CodeS SourceS - Guide
- Importation fichier CSV et stockage des données ✓ - Forum - VB.NET
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
- 23607
- 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
- 23607
- 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.