Discussion :

[hugoclo]

bonsoir,
J'utilise cette fonction pour remplir un datagridview avec des données provenant d'un fichier texte.

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

Le probleme est que la premiere ligne de mon texte n'est jamais prise.

[Pol63]

fonctionnement normal qui correspond à ton code ...

tu fais un readline, tu rentres dans ta boucle, et tu refais un readline sans avoir traité les données de la 1ère ligne

[hugoclo]

Autant pour moi

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
 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")
 
            Do
                sLine = sr.ReadLine()
                Dim drt() As String = sLine.Split(",")
                Dgv.Rows.Add(drt)
            Loop Until sLine Is Nothing
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            'FERMER le lecteur en tout etat de cause 
            sr.Close()
        End Try
    End Function