Purger une chaine de caractere de ses espaces inutiles
Soyez le premier à donner votre avis sur cette source.
Vue 14 440 fois - Téléchargée 349 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
- 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
- Extraire d'une chaine de caractère des sous-chaine séparé par des espaces ✓ - Forum - VB.NET
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
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
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
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.