AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 07:08:15
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PURGER UNE CHAINE DE CARACTERE DE SES ESPACES INUTILES


Information sur la source

Catégorie :Texte Classé sous : remplacer, espaces, replace, trim Niveau : Initié Date de création : 04/10/2000 Vu / téléchargé: 10 117 / 171
Auteur : JCLK Ecrire un message privé
Note :
4 / 10 - par 5 personnes
4,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (4)
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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de erreurs404 le 07/06/2002 12:40:33

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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

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 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 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. ecrire dans fichier texte [ par Roussetj ] Bonjour,à partir de mon classeur excel initial, j'ouvre un fichier texte. Dans ce fichier texte, je voudrais remplacer certains caractères.je m'expliq


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,437 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.