Discussion :

[cazteam]

Salut, j'ai un fichier texte dans lequel je dois lire chaque 5 minutes 5000 lignes de ce fichier. J'arrive à lire le fichier via un StreamReader, mais je n'arrive pas à lire un nombre spécifique de ligne.

[Jean-Marie Grave]

Bonjour Monsieur.

Vous décrivez un état de fait, mais vous ne demandez rien. Je me ferai un plaisir de vous aider, si bien sûr vous me le demandez expressément.

Cordialement.

[cazteam]

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   Using IstreamToDisplay As New StreamReader("C:\LOG\Log.txt")
            Do Until i <= 4999
                Temp(i) = IstreamToDisplay.ReadLine
                i += 1
                If IstreamToDisplay.EndOfStream Then
                    Exit Do
                End If
            Loop
            IstreamToDisplay.Close()
end using

Je crois avoir trouvé une solution mais je ne pense pas qu'elle soit optimale

[rv26t]

Bonjour,
Hum, tu ne rentres même pas dans ta boucle Do Until puisque dés le départ i est inférieur a 4999.
A+, Hervé.

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
while i <= 4999
 
 
end while

[cazteam]

Bonjour,
Hum, tu ne rentres même pas dans ta boucle Do Until puisque dés le départ i est inférieur a 4999.
A+, Hervé.

Erreur !!!!
Je n'avais pas vu ce point

[rv26t]

Erreur !!!!
Je n'avais pas vu ce point

Ca arrive,

maintenant si tu veux garder le principe du Do Until, tu peux faire

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Do Until i > 4999
 
Loop

mais pour la compréhension, il me semble que c'est moins intuitif que le While proposé par Pol63.