Enlever les espaces dans la lecture d'une ligne d'un fichier

Version imprimable

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 :

Citation:

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:

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

27/08/2018, 13h30
ProgElecT

Salut

Pas sûr d'avoir tout compris mais .....
:fleche:Trim(LeString) supprimes les espaces à droite et à gauche
:fleche:LTrim(LeString) supprimes les espaces à gauche
:fleche:RTrim(LeString) supprimes les espaces à droite
:fleche:Replace(LeString," ","") supprimes tous les les espaces
27/08/2018, 13h50
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 ?

Donc au final

Code:

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:

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

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

Code:

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 :

Citation:

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,

27/08/2018, 16h17
ProgElecT

Citation:

Envoyé par vinceago

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

Citation:

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à.
27/08/2018, 16h59
vinceago

J'ai fais l'essai, j'ai supprimé la ligne voulue et je l'ai remplacé en la saisissant avec des espaces clavier et ça fonctionne.

Donc, les espaces du fichier d'origine ne sont pas des espaces ASCII.....

Merci pour ton aide.

Maintenant, comment faire ?
27/08/2018, 17h30
ProgElecT

1 pièce(s) jointe(s)

Ok

On sait d’où cela vient.
Je te met le projet VB6 qui te permettra de vérifier la ligne avec ces pseudo espace Pièce jointe 407066
Depuis le programme, dans la boite du bas tu y colles la ligne incriminée, tu places le curseur sur le premier caractère et tu cliques sur la flèche de droite, tu auras les indications de positions et du code ascii du caractère en cour de sélection.
le code ascii trouvé serra à mettre en paramètre dans le Replace.
28/08/2018, 10h12
vinceago

Bonjour,

j'ai ouvert le fichier sous wordpad, j'ai copié la ligne et lorsque je le colle dans l'outil, je n'ai que la première lettre et le premier espace, il ne colle pas le reste.

Sinon le premier espace affiche "chr(13)-->13"

J'ai tenté le Replace avec chr(13) mais sans succès.
Pour info, l'ouverture du fichier se fait par :
Code:

1 2 3 4 ' Ouverture du fichier en entrée CodeFichier = FreeFile 'Open StringModele For Input As CodeFichier Open StringModele For Binary As CodeFichier

28/08/2018, 13h13
ProgElecT

Salut

Peux tu mettre ton fichier en pièce jointe ?
28/08/2018, 13h19
vinceago

1 pièce(s) jointe(s)

Le voici
28/08/2018, 13h21
ProgElecT

Je regarde et revient te dire quoi :D

Re

Sur un form, 1 CommandButton et 1 TextBox et ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Command1_Click()
Dim CodeFichier As Integer, StringModele As String, ContenuFichier As String
' Ouverture du fichier en entrée
CodeFichier = FreeFile
StringModele = "C:\PersoFrancis\Provisoire\carriere\carriere.gql"
Open StringModele For Binary As #CodeFichier
ContenuFichier = Input(FileLen(StringModele), #CodeFichier)
Close #CodeFichier
'variables intermediaires à 1 indice, servant à construire le tableau "MonTableau" a 2 indices
Dim DecoupeContenuParLigne() As String
Dim TextArechercher As String
Dim recuperecherche As String
Dim T As Integer
TextArechercher = "DC020603 12"
 
DecoupeContenuParLigne = Split(ContenuFichier, Chr(13))
 
For T = LBound(DecoupeContenuParLigne) To UBound(DecoupeContenuParLigne)
    If DecoupeContenuParLigne(T) = TextArechercher Then
        recuperecherche = DecoupeContenuParLigne(T + 1)
        Exit For
    End If
 
Next T
Text1.Text = Replace(recuperecherche, Chr(0), "")
End Sub

On peut faire sûrement mieux, mais pour l'instant je n'ai pas le temps de continuer plus.

28/08/2018, 14h38
vinceago

Un grand merci, ça a l'air de fonctionner, il faut que je met bien au propre le code et fasse des tests sur plusieurs fichiers..

si je peux abuser, la recherche est "TextArechercher = "DC020603 12", le chiffre 12, dont je ne sais pas quoi il sert, peut être différent suivant le fichier à traiter, je ne voudrais faire la recherche uniquement "DC020603".

Je te ferai un retour lorsque mon code sera solide....
28/08/2018, 14h39
vinceago

Je viens de me relire mais trop tard, je n'ai pas ecris très français......

Ben me revoilà
Déjà, c'est :ccool:, si cela fonctionne aussi chez toi.

Pour la petite modification, revenir au Instr()

Code:

1
2
3
4
5
6
7
8
9
10
11
 TextArechercher = "DC020603"     ' "DC020603 12"
 
DecoupeContenuParLigne = Split(ContenuFichier, Chr(13))
 
For T = LBound(DecoupeContenuParLigne) To UBound(DecoupeContenuParLigne)
    ' If DecoupeContenuParLigne(T) = TextArechercher Then '<------------- modification de la condition
    If instr(DecoupeContenuParLigne(T),TextArechercher) > 0 Then
        recuperecherche = DecoupeContenuParLigne(T + 1)
        Exit For
    End If
 Next T

29/08/2018, 10h11
vinceago

Bonjour et encore merci,

une dernière chose car pourquoi faire simple lorsque l'on peut faire compliquer, les différents fichiers que je serais amené à ouvrir ont tous la balise 'DC020603' mais, il y a des exceptions, il arrive que la balise à rechercher soit '8C020603'.
Ce qui fait que le texte à rechercher serait '(8/D)C020603'
03/09/2018, 12h04
l_autodidacte

Salut;
Sans empiéter sur ce qu'a fait ProgElecT(Salut), tu peux placer un TextBox appelé txtRecherche(par exemple) sur l'objet Form et là tu tapes le mot à rechercher.
Dans le code tu mets :TextArechercher = txtRecherche.Text.
Si le mot à rechercher correspond très souvent à "DC020603", tu peux le mettre en dur dans le TextBox au moment de la création.
03/09/2018, 13h27
vinceago

Bonjour et merci.

je vais clôturer cette discussion car je suis allé jusqu'au bout de mes modifications sur mon projet mais je mets de côté ta solution, qui pourra sûrement me servir.

Cordialement