Les fichier et listebox

Bonjour,

je voulais lire a chaque fois 32 ligne de mon fichier texte et afficher a chaque fois dans liste box

c'a marche pas
voici mon code
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim sr As StreamReader
Dim strLine As String

':020000040000FA
':00000001FF
sr = New StreamReader("C:\fichier.txt")
strLine = sr.ReadLine

Do While Not strLine Is Nothing

Dim i As Integer = 1
For i = 1 To (i + 31)
strLine = sr.ReadLine
Console.WriteLine(strLine)
ListBox1.Items.Add(strLine)

Next i
Console.ReadLine()
Loop

sr.Close()

End Sub

5 réponses

  1. Modérateur
    Bonjour,

    Dire « Ça ne marche pas » ou « Il y a une erreur », cela n'avance en rien.
    Donnez le comportement observé et/ou le message d'erreur !

    Sinon :
    For i = 1 To (i + 31)
    à remplacer par :
    For i = 1 To 31
    0
    1. je récupérer les ligne
      mais le problemme que les lignes n'affiche pas dans ma liste box malgres j'utilise
      ListBox1.Items.Add(strLine)
      la listebox reste vide
      0
      1. Modérateur
        Ta syntaxe est bonne (toujours un doute sur la boucle mais passons), sauf si ta listbox est nommée différemment...
        Vérifie cela.

        0
        1. listebox et nommée juste
          si je clique sure mon bouton il réserve un espace dans ma liste et rien afficher
          0
          1. elle affiche un exception ArgummentNullException n'a pas été gerer
            0
            1. Modérateur
              AS tu essayé For i = 1 To 31?
              0
            2. non le meme probleme
              l'exeption au niveau de l'instruction ListBox1.Items.Add(strLine)
              0
            3. Modérateur
              ArgummentNullException veut dire que dans ta liste, tu as entré, au moins, une valeur Null.

              Donc, vérifie ta boucle, si strLine = sr.ReadLine contient bien systématiquement quelque chose.

              Qui plus est, pourquoi une double boucle :
              Do While Not strLine Is Nothing
              '
              '
              For i = 1 To (i + 31)
              0