Bonjour,

Voici une partie de mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 Case "toto.asc"
     With text
 
        While Not text.Line = 6
            .SkipLine
        Wend
        '...
     End Wtih
J'ai un fichier .asc (qui j'ouvre comme un .txt)
A l'ouverture du fichier il va à la ligne 6 puis commence à lire les données.

Mais pour que le code soit plus fonctionnel je dois d'abord connaitre le nombre de ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
        While Not text.AtEndOfStream
            text.SkipLine
        Wend
Du coup j'insère cette parti de code avant la lecture des données.


Connaissez vous un moyen de revenir au début du fichier texte après avoir déterminer le nombre de ligne, pour ensuite rependre la suite du code avant la modification.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Case "toto.asc"
     With text
         While Not text.AtEndOfStream
            text.SkipLine
        Wend     
 
 
       'Revenir au début du fichier
 
        While Not text.Line = 6
            .SkipLine
        Wend
        '...
     End Wtih

Car j'ai le message d'erreur "L'entrée dépasse la fin du fin" ce qui est logique comme je suis arrivé à la fin du fichier pour compter le nombre de ligne.

En vous remerciant pour votre aide