Purger une chaine de caractere de ses espaces inutiles
0/5 (8 avis)
Vue 14 549 fois - Téléchargée 355 fois
Description
suppression dans une string de tous les espaces superflus ; par exemple : " Bonjour tout le monde ! " devient "Bonjour tout le monde !"
Il suffit ensuite de faire ce que l'on souhaite de la variable "newtext1"
Source / Exemple :
'Le text non purge est dans la variable text1
'Le text purge des espaces inutiles est dans
'la variable newtext1.
Sub purger()
newtext1 = ""
cardel = 0
For i = 1 To Len(Text1)
lettre = Right(Text1, 1)
If (lettre = " " And cardel = 0) Then
cardel = 1
ElseIf (lettre = " " And cardel = 1) Then
lettre = ""
Else
cardel = 0
End If
newtext1 = lettre & newtext1
Text1 = Left(Text1, Len(Text1) - 1)
Next
newtext1 = Trim(newtext1)
End Sub
Conclusion :
Il suffit ensuite de faire ce que l'on souhaite de la variable "newtext1"
Codes Sources
A voir également
- Purger une chaine de caractere de ses espaces inutiles
- Supprimer les espaces d'une chaine de caractere en c ✓ - Forum - C
- Vba supprimer les espaces dans une chaine de caractères - Forum - Visual Basic
- Java : Comptage de voyelles , espaces , et de consonnes dans une chaine de caractère - CodeS - Guide
- Supprimer les espaces dans une chaîne de caractère ✓ - Forum - Python
- Enlever les espaces d'une chaine de caractére ✓ - Forum - Java
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.