Discussion :

[Elstak]

Salut,

ce post viens dans la suite d'un autre dans lequel je cherchais à récuperer une ligne d'un fichier texte. J'arrive à la récupérer et voici ce que j'obtient avec le code:

Code :

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

1
2
 
Debug.Print "<" & TextLine & ">"

Résultat : < INDICBAT>

Il y a des sortes d'espaces avant et je voudrais les supprimer

J'ai tenté avec ce code (Stlu contient la chaine) :

Code :

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

1
2
3
4
5
6
 
Do While Left(stLu, 1) = Chr(13)
    stLu = Right(stLu, Len(stLu) - 1)
    MsgBox "hu"
Loop
Debug.Print "<" & stLu & ">"

mon idée est : regarder le premier caractere de la chaine. Si c'est un espace on garde la chaine à laquelle on retire le premier caractere et on recommence.

mais ca ne fonctionne pas j'ai toujours : < INDICBAT> et je n'ai pas de msgbox "hu" qui apparait.

donc j'ai tenté d'autres possibilités comme chr(9) (tab) mais pareil... j'ai vu dans l'aide que les caracteres invisibles prenaient des valeurs de 1 à 31 alors j'ai ai toutes essayées et aucun résultat

une idee?

[jmfmarques]

si c'est "INDICBAT" qu'il te faut récupérer, tu as sa position de départ (utilisation de instr pour la déterminer ! aide en ligne ) et tu as sa longueur (len ! aide en ligne) et l'utilisation de Mid (aide en ligne) pour n'extraire que ton mot ...

[illight]

Il y a des sortes d'espaces avant et je voudrais les supprimer

C'est quoi c'est des espaces ou c'est autre chose ?
Sinon quand tu l'insère tu fais un Replace et tu remplace le caractère Espace par rien
Tu peut aussi utiliser la fonction Trim, qui te permet de supprimer les espaces d'une chaines de caractère L'aide en ligne est une très bonne aide si tu veux plus de précision

[Vesta]

Voila qui fera ton bonheur je pense...

Code :

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

1
2
stLu = Trim(stLu)
Debug.Print "<" & stLu & ">"

[Elstak]

ca commence à me gaver ces fichiers textes tout bizarres !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Open NomFic For Input As #1    ' Ouvre le fichier.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
     Line Input #1, TextLine        ' Lit la ligne dans la variable.
     If (InStr(TextLine, "INDICBAT")) > 0 Then
         Debug.Print "<" & TextLine & ">"
         Trouve = True
         Exit Do
     End If
Loop
Trim (stLu)
Debug.Print "<" & stLu & ">"

j'ai donc tenté le "Trim" et voici le résultat (avant/apres) :

< INDICBAT 2006-05-14 54904 474604>
<>

ca supprime lse espace ca c'est sur mais ca supprimer meme les infos !!

et donc pour info, jmf, non je ne veux pas que le INDICBAT je veux surtout les info derriere.

[Megaxel]

Salut Elstak,
ré-essaye avec TRIM( ). Regarde le code que tu as posté: C'est quoi, StLu ?
Très franchement, je pense que TRIM() va te plaire...

[Elstak]

Tiens salut bipbip ca faisait longtemps

jme suis un peu précipité en fait là desolé

en effet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Open NomFic For Input As #1    ' Ouvre le fichier.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
     Line Input #1, TextLine        ' Lit la ligne dans la variable.
     If (InStr(TextLine, "INDICBAT")) > 0 Then
         stLu = TextLine
         Trouve = True
         Exit Do
     End If
Loop
Debug.Print "<" & stLu & ">"
stLu = Trim(stLu)
Debug.Print "<" & stLu & ">"

ca me donne :

< INDICBAT 2006-05-14 54904 474604>
<INDICBAT 2006-05-14 54904 474604>

J'ai du virer involontaierment la ligne

Code :

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

1
2
 
stLu = TextLine

en tout cas merci à tous !!

[Megaxel]

Mézalor: ton problème est résolu!!

[Vesta]

Ca c'est pas mal lo il oublie une ligne importante MDR

Code :

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

1
2
3
 
a="Mais ou est passé a???"
msgbox "a = " & b

[Elstak]

??

[Vesta]

C'était ironique...

Je voulais dire que si forcément tu oubliais cette ligne :

Code :

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

stLu = TextLine

Ca pouvait difficilement aller avec mon exemple... LOL

[Elstak]

Ok jviens de ton comprendre

on ne se moque pas !!