Problème Erreur 62

Question

Soit un fichier texte que je lis par groupes de 3 lignes.
J'utilise la procédure While Not EOF/Wend
Malheureusement, il arrive que le fichier soit vérolé et que sur les 3 dernières lignes il en manque une ou deux.
Le système génère alors une erreur 62 (lecture après la fin du fichier).
Pour remédier à ce problème, j'introduis avant la boucle un On Error Goto toto.
Quelqu'un peut-il m'expliquer pourquoi cette instruction est totalement inefficace?
Jacques13

mortalino · Answer

salut,

peut-être serait-il possible de lire tous le fichier texte d'un coup, si pas trop gros en taille, et placer le contenu dans une variable.
Seulement à partir de ce moment tu lis tes blocs de 3 lignes, tu peux par exemple faire un Split sur les saut de ligne (vbCrLf)

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

cs_jacques13 · Answer

Salut Mortalino,
Ca me paraît difficile de lire le fichier d'un coup car il peut être, suivant les cas, très gros et, bien sûr, les longueurs de ligne sont variables. (Sinon ton idée était intéressante).
Avec un traitement d'erreur, je pourrais m'en sortir! malheureusement, malgré l'instruction "On Error" le système plante. On dirait que l'erreur 62 n'est pas reconnue par On Error!
Jacques13

mortalino · Answer

Fais voir ton code avec While Wend, on pourra peut-être l'arranger afin de ne plus avoir cette erreur

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

cs_jacques13 · Answer

On Error GoTo suite5
  Open chemin$ + ".vfi" For Input As 1
    While Not EOF(1)
      Line Input #1, b$
      Line Input #1, c$
      Input #1, a$
      Traitement a$, b$, c$
    Wend
suite5::
  Close 1

Problème Erreur 62

4 réponses

Votre réponse

Discussions similaires