Enlever tabulation

jeremy4920 Messages postés 28 Date d'inscription lundi 17 mai 2004 Statut Membre Dernière intervention 22 juin 2004 - 10 juin 2004 à 09:54
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 10 juin 2004 à 16:13
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

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
10 juin 2004 à 10:28
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.
0
jeremy4920 Messages postés 28 Date d'inscription lundi 17 mai 2004 Statut Membre Dernière intervention 22 juin 2004
10 juin 2004 à 10:37
merci beaucoup
0
jeremy4920 Messages postés 28 Date d'inscription lundi 17 mai 2004 Statut Membre Dernière intervention 22 juin 2004
10 juin 2004 à 10:44
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?
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
10 juin 2004 à 11:00
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
jeremy4920 Messages postés 28 Date d'inscription lundi 17 mai 2004 Statut Membre Dernière intervention 22 juin 2004
10 juin 2004 à 12:39
commen on peu remplacer 4 ou 5 tabulation a la suite par une seule?
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
10 juin 2004 à 16:13
machaine = replace$(machaine,string$(4,vbtab),vbtab)

Christophe R.
0