PURGER UNE CHAINE DE CARACTERE DE SES ESPACES INUTILES

Signaler
-
Messages postés
16
Date d'inscription
vendredi 8 juin 2007
Statut
Membre
Dernière intervention
17 juin 2009
-
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/431-purger-une-chaine-de-caractere-de-ses-espaces-inutiles

Messages postés
16
Date d'inscription
vendredi 8 juin 2007
Statut
Membre
Dernière intervention
17 juin 2009

slt
j'ai essaié de reutiliser votre code avec une richtext au lieu d'un textbox.
ca marche,
mais qd je lit un fichier ds le richtext la fonction ne suprime pas le dernièr espace de chaque lignes.
je vx savoir ou se trouve le pb?
c urgen
merci
Messages postés
1
Date d'inscription
dimanche 24 février 2008
Statut
Membre
Dernière intervention
26 février 2008

eske on peu travailé just avec left , len ,right c si possibl aid moi c urgent c un exam plz le plusto possibl
Messages postés
224
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
29 mars 2009

Pour éviter un bug si TexteAModifier est une suite d'espaces.


Sub EnleverDesDoublesEspaces()

Dim TexteAModifier As String
TexteAModifier = " Bonjour tout le monde ! "

Do While InStr(1, TexteAModifier, " ")
TexteAModifier = Replace(TexteAModifier, " ", " ")
Loop

If TexteAModifier = " " Then
TexteAModifier = ""
Else
If Mid(TexteAModifier, 1, 1) = " " Then
TexteAModifier = Right(TexteAModifier, Len(TexteAModifier) - 1)
End If

If Mid(TexteAModifier, Len(TexteAModifier), 1) = " " Then
TexteAModifier = Left(TexteAModifier, Len(TexteAModifier) - 1)
End If
End If

MsgBox "||" + TexteAModifier + "||"

End Sub
Messages postés
224
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
29 mars 2009

Sub EnleverDesDoublesEspaces()

Dim TexteAModifier As String
TexteAModifier = " Bonjour tout le monde ! "

Do While InStr(1, TexteAModifier, " ")
TexteAModifier = Replace(TexteAModifier, " ", " ")
Loop

If Mid(TexteAModifier, 1, 1) = " " Then
TexteAModifier = Right(TexteAModifier, Len(TexteAModifier) - 1)
End If

If Mid(TexteAModifier, Len(TexteAModifier), 1) = " " Then
TexteAModifier = Left(TexteAModifier, Len(TexteAModifier) - 1)
End If

MsgBox "||" + TexteAModifier + "||"

End Sub
Afficher les 8 commentaires