incrementation dans un loop

 Bonjour à tous, je chershe à recupérer toutes les lignes d'un fichier text simple dans un tableau.
Une ligne = une case du tableau
Je fais donc :

           Dim i = 0
           Dim monTableau() As String
           Dim leStream as New StreamReader(File.OpenRead("tata.txt")
            Do
                ligne = leStream.ReadLine() ' getting the line content in this string
                monTableau(i) = leStream.ReadLine()
                i = i + 1 ' increment the counter to know which line am i reading
                ' end of loop (browsing all lines)
            Loop Until ligne = Nothing


Le probleme est qu'apre je recupére monTableau(0) qui contient la derniere ligne, comme si le i ne s'incrémentait pas dans la boucle !!!

Merci de votre aide

Flux

Bonjour

Déjà tu lis 2 lignes par boucle (2 fois ReadLine).

monTablean n'est pas dimensionné, tu peux utiliser List(Of T).

Regarde du coté de My.Computer.FileSystem.ReadAllText, puis un String.Split(..., VbCrLf).

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

Avec çà, ça devrait faire l'affaire : http://www.vbfrance.com/codes/SUPPRIMER-LIGNE-FICHIER-TEXTE-UTILISANT-COLLECTION-ARRAYLIST_34289.aspx
... à condition de modifier le code.

_____________________________________________________________
Coder et coder sont 2 choses différentes. La 1ère consiste à arriver au but coûte que coûte. La 2nde est de trouver la solution de manière élégante.

Tu peux utiliser un tableau dynamique sinon: Dim Tab() As String Dim nombreLigne As Integer Open Chemin de ton fichier .txt For Input Access Read As #1 Do While Not EOF(1) ' Bouclage jusque a la fin du fichier Line Input #1, ligne nombreLigne = nombreLigne + 1 ReDim Preserve Tab(nombreLigne) ' Redimensionnement du Tableau Tab(nombreLigne) = ligne Loop Close #1

Oups, je t'ai donné du code VB6. Autant pour moi, enfin bon je pense que pour VB.NET le principe reste le même pour les tableau dynamique. Dsl de mon intrusion sur ce forum... mon code servira à d'autre. Bonne soirée à vous.