Bonjour,

mon besoin est de lire un fichier ligne à ligne, d'identifier une balise et, une fois celle-ci trouvé, de récupérer le contenue de la ligne suivante sans les espaces.

Un extrait du fichier :

00010600 3
80010001 1
80010601 1
DC020603 12
r e g 8 7 . c o n
DC020613 14
d e f a u t . c o n
DC020615 32
H : \ T d \ G Q L \ G Q A - R E G \ a v s a X X \
80010647 1
80010604 1
80010605 1
Le code est le suivant, dès que je trouve la balise "DC020603 ", je récupère la ligne en dessous sans les espaces, voici le bout de code qui ne fonctionne pas.
J'aimerai récupérer "reg87.con", je récupère "r"


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Do While Not EOF(CodeFichier)
 
    Line Input #CodeFichier, Ligne
 
        ' Recherche de la balise "DC020603"
        PositionRecherchee = InStr(Ligne, "DC020603")
 
        ' Lecture de la ligne suivante si la balise a été trouvée
        If PositionRecherchee > 0 Then
            Line Input #CodeFichier, Ligne
            ' La ligne lue contient le nom du fichier de connexion par défaut.
            RechercheNomFichierConnexion = Ligne
            Exit Do
        End If
 
Loop

Merci pour votre aide.

Cordialement