[VBA-E]Supprimer caractere invisible

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:

---

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:

---

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?

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

Citation:

---

Envoyé par Elstak

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 :)

Voila qui fera ton bonheur je pense...

Code:

---

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

---

:aie: ca commence à me gaver ces fichiers textes tout bizarres !

Code:

---

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.

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

Tiens salut bipbip ca faisait longtemps :D

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

en effet

Code:

---

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:

---

1 2	stLu = TextLine

---

:?

en tout cas merci à tous !! :D

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

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

Code:

---

1 2 3

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

---

??

C'était ironique...

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

Code:

---

stLu = TextLine

---

Ca pouvait difficilement aller avec mon exemple... LOL

Ok jviens de ton comprendre :lol:

on ne se moque pas !! :mouarf: