PURGER UNE CHAINE DE CARACTERE DE SES ESPACES INUTILES
morphee
-
19 févr. 2001 à 11:58
fatimazahra86
Messages postés16Date d'inscriptionvendredi 8 juin 2007StatutMembreDernière intervention17 juin 2009
-
22 avril 2009 à 11:21
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
fatimazahra86
Messages postés16Date d'inscriptionvendredi 8 juin 2007StatutMembreDernière intervention17 juin 2009 22 avril 2009 à 11:21
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
jaguar4you
Messages postés1Date d'inscriptiondimanche 24 février 2008StatutMembreDernière intervention26 février 2008 26 févr. 2008 à 23:02
eske on peu travailé just avec left , len ,right c si possibl aid moi c urgent c un exam plz le plusto possibl
rambc
Messages postés224Date d'inscriptionmercredi 21 avril 2004StatutMembreDernière intervention29 mars 2009 26 août 2004 à 12:05
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
rambc
Messages postés224Date d'inscriptionmercredi 21 avril 2004StatutMembreDernière intervention29 mars 2009 26 août 2004 à 12:01
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
erreurs404
Messages postés117Date d'inscriptionlundi 23 octobre 2000StatutMembreDernière intervention12 août 2009 7 juin 2002 à 12:40
en effet c'est plus simple en faisant Replace(string, " ", "")
La technique suivante : Text1 = Left(Text1, Len(Text1) - 1) est pratique pour economiser une variable et un test de sortie de boucle, mais des que la chaine devient tres grande, cette affectation est tres longue, il vaut donc mieux utiliser la fonction mid() et une variable temporaire supplementaire
Il y a plus simple, il suffit d'utiliser la fct Replace() et lui dire de supprimer les espaces.Faire un trim pour effacer les espaces sur les extrémitées.
22 avril 2009 à 11:21
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
26 févr. 2008 à 23:02
26 août 2004 à 12:05
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
26 août 2004 à 12:01
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
7 juin 2002 à 12:40
7 août 2001 à 03:44
je joint un petit exemple
19 mai 2001 à 15:17
19 févr. 2001 à 11:58