bonsoir,
J'utilise cette fonction pour remplir un datagridview avec des données provenant d'un fichier texte.
Le probleme est que la premiere ligne de mon texte n'est jamais prise.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Private Function remplir_dgv(ByVal NomFichier As String) Dim sLine As String Dim sr As StreamReader 'Dim drt() As String Try sr = New StreamReader(NomFichier) ' Console.WriteLine("Debut du fichier") sLine = sr.ReadLine() While Not sLine Is Nothing sLine = sr.ReadLine() Dim drt() As String = sLine.Split(",") Dgv.Rows.Add(drt) End While Catch ex As Exception Console.WriteLine(ex.Message) Finally 'FERMER le lecteur en tout etat de cause sr.Close() End Try End Function
Partager