Purger une chaine de caractere de ses espaces inutiles

Soyez le premier à donner votre avis sur cette source.

Vue 14 257 fois - Téléchargée 326 fois

Description

suppression dans une string de tous les espaces superflus ; par exemple : " Bonjour tout le monde ! " devient "Bonjour tout le monde !"

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

Ajouter un commentaire

Commentaires

Commenter la réponse de morphee

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.