SUPPRIMER LES ESPACES INUTILES D'UNE PHRASE
The MIT
-
20 sept. 2001 à 23:08
wanyans Messages postés 1 Date d'inscription lundi 14 décembre 2009 Statut Membre Dernière intervention 24 juin 2011 - 24 juin 2011 à 18:57
wanyans Messages postés 1 Date d'inscription lundi 14 décembre 2009 Statut Membre Dernière intervention 24 juin 2011 - 24 juin 2011 à 18:57
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8700-supprimer-les-espaces-inutiles-d-une-phrase
https://codes-sources.commentcamarche.net/source/8700-supprimer-les-espaces-inutiles-d-une-phrase
24 juin 2011 à 18:57
14 avril 2011 à 19:30
30 avril 2002 à 15:33
Public Function DelAllSpace(Chaine)
Dim ChaineCopy, i, NbrCarToEnd, Part1, Part2
ChaineCopy = LTrim(Chaine)
ChaineCopy = RTrim(ChaineCopy)
i = InStr(1, ChaineCopy, " ")
While i <> 0
NbrCarToEnd = Len(ChaineCopy) - (i - 1)
Part1 = Mid(ChaineCopy, 1, i - 1)
Part2 = Mid(ChaineCopy, i + 1, NbrCarToEnd)
ChaineCopy = Part1 & Part2
i = InStr(1, ChaineCopy, " ")
Wend
DelAllSpace = ChaineCopy
End Function
Et voila !
2 nov. 2001 à 17:24
Les boucles sont ce qu'il y a de plus lent! TheMit a raison.
Je t'envoie un mail avec un fichier attaché pour te montrer un truc avec les expressions régulieres.
30 sept. 2001 à 18:23
30 sept. 2001 à 18:22
30 sept. 2001 à 18:20
20 sept. 2001 à 23:08
faites un replace avec la regex suivante : /s(2,*)
En RegEx, Le /s represente les separateurs de texte , le (2,*) specifie la portée donc , on recherche les séparateurs de plus de 2 elements.
ainsi il suffit de remplacer le elements matchés par un simple espace et le tour est joué tres rapidement.