0/5 (8 avis)
Vue 14 549 fois - Téléchargée 355 fois
'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
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.