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

**vinceago** · 27/08/2018, 13h01

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** · 27/08/2018, 13h30

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** · 27/08/2018, 13h50

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** · 27/08/2018, 15h20

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** · 27/08/2018, 15h46

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** · 27/08/2018, 16h17

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

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

**vinceago** · 27/08/2018, 16h59

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 ?

**ProgElecT** · 27/08/2018, 17h30

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

**vinceago** · 28/08/2018, 10h12

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"

**vinceago** · 28/08/2018, 10h46

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

Code :

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

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

**ProgElecT** · 28/08/2018, 13h13

Salut

Peux tu mettre ton fichier en pièce jointe ?

**vinceago** · 28/08/2018, 13h19

Le voici

**ProgElecT** · 28/08/2018, 13h21

Je regarde et revient te dire quoi

**ProgElecT** · 28/08/2018, 14h12

Re

Sur un form, 1 CommandButton et 1 TextBox et ce

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

**vinceago** · 28/08/2018, 14h38

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

**vinceago** · 28/08/2018, 14h39

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

**ProgElecT** · 28/08/2018, 18h05

Ben me revoilà
Déjà, c'est

, si cela fonctionne aussi chez toi.

Pour la petite modification, revenir au Instr()

Code :

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

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

**vinceago** · 29/08/2018, 10h11

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'

**l_autodidacte** · 03/09/2018, 12h04

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.

**vinceago** · 03/09/2018, 13h27

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

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

VB 6 et antérieur

Discussions similaires

Partager

Partager