Discussion :

[vinceago]

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

[ProgElecT]

Salut

Pas sûr d'avoir tout compris mais .....
Trim(LeString) supprimes les espaces à droite et à gauche
LTrim(LeString) supprimes les espaces à gauche
RTrim(LeString) supprimes les espaces à droite
Replace(LeString," ","") supprimes tous les les espaces

[vinceago]

Bonjour,

effectivement, après recherche j'ai trouvé toutes les possibilités de suppression des espaces.
J'ai essayé de l'appliquer sur le "line input" mais sans succès.
Après avoir ajouté des traces, le bout de code dans cette discussion me trouve bien la balise et apparemment, il récupère la première lettre de la ligne suivante et s'arrête car la ligne suivante comporte un espace entre chaque lettre.

Peut être faut-il supprimer les espaces avant le line input ?

[ProgElecT]

Donc au final

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
        If PositionRecherchee > 0 Then
            Line Input #CodeFichier, ligne
            ' La ligne lue contient le nom du fichier de connexion par défaut.
            'la variable ligne conient: r e g 8 7 . c o n (avec les espaces)
            ligne = Replace(ligne, " ", "")
            'la variable ligne conient: reg87.con (les espaces en moins)
            RechercheNomFichierConnexion = ligne
            Exit Do
        End If

En plus condensé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
        If PositionRecherchee > 0 Then
            Line Input #CodeFichier, ligne
            ' La ligne lue contient le nom du fichier de connexion par défaut.
            RechercheNomFichierConnexion = Replace(ligne, " ", "")
            Exit Do
        End If

[vinceago]

j'ai ajouté des traces et mis 2 fois le "Replace" au cas ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
PositionRecherchee = InStr(Ligne, "DC020603")
 
        Trace.AjouteTrace "W:\Q60\", "dq60adif.trc", "Nom de la balise (version du modele BI V10.3.2) : " & PositionRecherchee
 
        ' Lecture de la ligne suivante si la balise a été trouvée
        If PositionRecherchee > 0 Then
           Trace.AjouteTrace "W:\Q60\", "dq60adif.trc", "Ligne        : " & Ligne
           Trace.AjouteTrace "W:\Q60\", "dq60adif.trc", "#CodeFichier : " & CodeFichier
            Ligne = Replace(Ligne, " ", "")
            Line Input #CodeFichier, Ligne
            ' La ligne lue contient le nom du fichier de connexion par défaut.
            Ligne = Replace(Ligne, " ", "")
            Trace.AjouteTrace "W:\Q60\", "dq60adif.trc", "Ligne        : " & Ligne
            RechercheNomFichierConnexion = Ligne

Le résultat :

15:35:16 : Nom de la balise (version du modele BI V10.3.2) : 1
15:35:16 : Ligne : DC020603 12
15:35:16 : #CodeFichier : 1
15:35:16 : Ligne : r

La lecture de la ligne s'arrête apparemment sur le premier espace rencontré. C'est ce que j'ai depuis le début et je n'arrive pas à m'en sortir,

[ProgElecT]

........
La lecture de la ligne s'arrête apparemment sur le premier espace rencontré. C'est ce que j'ai depuis le début et je n'arrive pas à m'en sortir,

Essais, si possible de réécrire le fichiers, avec seulement les 2 lignes

DC020603 12
r e g 8 7 . c o n

Ne fais pas de copier/coller, tape le au clavier, tu seras sûr que les espaces entre les caractères sont bien des espaces de code 32 Ascii.
Si la lecture de ce fichier par ton programme donne le résultat attendu, c'est que les caractères espace du fichier source ne sont pas de code ascii 32.

J'ai un programme qui permet de vérifier chaque caractères d'un string, je pourrais te donner un coup de main si le problème vient de là.