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 :
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.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
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
Partager