begin process at 2012 02 16 17:45:34
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Texte

 > PURGER UNE CHAINE DE CARACTERE DE SES ESPACES INUTILES

PURGER UNE CHAINE DE CARACTERE DE SES ESPACES INUTILES


 Information sur la source

Note :
4 / 10 - par 6 personnes
4,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Classé sous :remplacer, espaces, replace, trim Niveau :Initié Date de création :04/10/2000 Vu / téléchargé :12 111 / 216
Auteur : JCLK

Ecrire un message privé
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

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

Source

  • '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 
'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"

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip JOUER, PAUSER, ARRETER ET FERMER UN SON AVEC MMCONTROL
COUPER, COPIER, COLLER DANS UNE RICHTEXTBOX
SAVOIR SI LA SOURIS EST AU DESSUS D'UN OBJET
ENREGISTRER LE CONTENU D'UNE TEXTBOX DANS UN FICHIER
IMPRIMER LE CONTENU D'UNE TEXTBOX
Toutes les sources de JCLK

 Sources de la même categorie

Source avec Zip Source avec une capture MASQUE DE SAISIE NUMÉRIQUE par acive
Source avec Zip Source .NET (Dotnet) COMPTEUR DE NOMBRE DE MOTS DANS UN TEXTE par alpha5
Source avec Zip Source avec une capture HM - BLOCNOTE par hassenmajor
Source .NET (Dotnet) [VB.NET] CLASS DE COLORATION SYNTAXIQUE "ON THE FLY" par huzima
Source avec Zip Source avec une capture PERSONNALISEZ VOS BOÎTES DE MESSAGE (X)HTML par medjahedScript
Toutes les sources de la catégorie Texte

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture ALTERNATIVE À LA FUNCTION VBA OU VB REPLACE (JUSQU'À 10 FOI... par vicosta
Source avec Zip OPÉRATIONS SUR LES CHAINES DE CARACTÈRE OPTIMISÉES ET ÉTENDU... par MadM@tt
Source avec Zip Source avec une capture [VB6] YMXPLORER : DOUBLE EXPLORATEUR DE FICHIERS par ym_trainz
Source avec Zip PROGRAMME POUR RENOMMER PLUSIEUR FICHIER par micbristol
TROUVER UNE CHAINE ET LA REMPLACER par rcolas

Commentaires et avis

Commentaire de erreurs404 le 07/06/2002 12:40:33

en effet c'est plus simple en faisant Replace(string, " ", "")

Commentaire de rambc le 26/08/2004 12:01:39

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

Commentaire de rambc le 26/08/2004 12:05:10

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

Commentaire de jaguar4you le 26/02/2008 23:02:11


eske on peu travailé just avec left , len ,right c si possibl aid moi c urgent c un exam plz le plusto possibl

Commentaire de fatimazahra86 le 22/04/2009 11:21:18 4/10

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

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

remplacer des tabulations par des espaces dans RichTextBox [ par julian ] Je voudrai savoir comment faire pour trouver toutes les tabulations d'un richtextbox et les remplacer par des espaces, MERCI BCP !!!!!!!! replace et variable [ par ecranbleu27 ] bjrje recupere une phrase d'un fichier texte,il y a un terme que je souhaite remplacer par unevariable en cours, comment fais-je ?EX:Text1 = Replace(T Problème de compéhension d' une requête SQL [ par orthodocs ] Bonjour,J' apprends en autodidacte VB et essaye de réaliser un programme accédanr à une base de donnée Access.Serait il possible de m' expliquer pourq Remplacer dans une chaine de caractères à partir de la fin [ par daddyel ] Bonjour,Je souhaite dans une requête de mise à jour effectuer un "replace" en partant de la fin du champ (champ de longueur variable).Ainsi remplacer ss utiliser la fonction replace [ par Miss1 ] salut j'avais déja poster un théme su ce sujet mais je n'aivais pas encore trouver de solution. Maintenant je sais comment remplacer(vb6)ur replace [ par jeanluc065 ] Bonjour,En access2002 , novice, je voudrais remplacer une chaîne de caractères par une autre.dans l'exemple ci-dessous  remplacer -aug- par /08/Malgré Update Access [ par ren7530 ] Besoin Urgent d'aideJe suis débutant et très nul !!Ajouter et Suprimer dans la base pas de problème mais pour la modif toujour la même chose "Aucune v Remplacer TRIM EN ;NET [ par popeye63 ] Bonjour, je réalise en ce moment un projet windowsform en .net et je cherche l'équivalent de la méthode trim en .net merci de votre réponse. VB6 Remplacer toute les espace par un caractère [ par JeffC1977 ] Bonjour à tous J'ai une chaîne de caractère avec plein d'espaces " 12,5636 12.36 m 1125.36 3568.23" Est-il possible de remplacer Replace et caractères spéciaux en VB6 [ par Thanos_the_yopper ] Voilà mon probleme : je voudrais remplacer dans un texte certains mots. j'utilise donc la fonction Replace. Ce que je voudrais, c'est que quand j'ai u


Nos sponsors


Sondage...

Comparez les prix


Mio - Moov V735 - GPS Europe - Ecran 7"
Entre 305€ et 375€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Renewable Energy is Within ReachPhoto Beautiful woman in a bikini meditating on the beach
Photo Tropical Location With Palm Tree and Woman Holding Umbrella 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,384 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)