Enlever tabulation

Signaler
Messages postés
28
Date d'inscription
lundi 17 mai 2004
Statut
Membre
Dernière intervention
22 juin 2004
-
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
-
j'aimerai remplacer les tabulations qui sont entre deux chaines de caractères par un espace et remplacer celle de fin de ligne par ""
ex: toto"tabulation"va"tabulation"à"tabulation"la"tabulation"mer\t\n
je veu que ca donne:
toto va à la mer""

qui pourrait m'aider?

6 réponses

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
Dim i as long
' Supprime la dernière tabulation
i = instrrev(Machaine,vbtab)
Machaine = left$(machaine,i-1) & "" & right$(machaine,i+1)
' Remplace les autres par un espace
Machaine = replace$(machaine,vbtab," ")

Christophe R.
Messages postés
28
Date d'inscription
lundi 17 mai 2004
Statut
Membre
Dernière intervention
22 juin 2004

merci beaucoup
Messages postés
28
Date d'inscription
lundi 17 mai 2004
Statut
Membre
Dernière intervention
22 juin 2004

G des chaines où il y a 3 ou 4 tabulations a la fin de ligne
j'aimerai toutes les enlever mai pas une seule tu sai comment faire?
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
Si les tabul sont bien tout à la fin de la chaine (pas d'auter car derrière) tu peux faire cela :
machaine = RTrim$(Replace$(Machaine,vbtab," "))

Cela remplace toutes les tabul par des espaces et supprime les espaces à la fin de la chaine.

Christophe R.
Messages postés
28
Date d'inscription
lundi 17 mai 2004
Statut
Membre
Dernière intervention
22 juin 2004

commen on peu remplacer 4 ou 5 tabulation a la suite par une seule?
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
machaine = replace$(machaine,string$(4,vbtab),vbtab)

Christophe R.