Sérarer les mots d'une chaine de caractères

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 152 fois - Téléchargée 34 fois

Contenu du snippet

1- où il y a le premier commentaire, marquer l'objet d'où vient le texte
2- où il y a le 2ième et le 3ième commentaire, marquez la liste qui va recevoir les mots un à un

Ce qui est formidable avec ma source, c'est qu'elle se fiche complètement des espaces de trops. Si tu marque exemple " la maison est bleu", le programme dira quand même que tu as 4 mots.

Source / Exemple :


Dim lelen, position, buf, carac, stri
stri = Text1.Text 'à mettre l'objet désiré(source)
lelen = Len(stri)
For position = 1 To lelen
carac = Mid$(stri, position, 1)
buf = buf & LTrim(carac)
If carac = " " Then
If LTrim(buf) = Empty Then
buf = ""
Else
List1.AddItem LTrim(buf) 'à mettre l'objet désiré (destination)
buf = ""
End If
End If
If position = lelen Then
If LTrim(buf) = Empty Then
buf = ""
Else
List1.AddItem LTrim(buf) 'à mettre l'objet désiré(distination)
buf = ""
End If
End If
Next

Conclusion :


sa ma pris 30 min pour faire ça

A voir également

Ajouter un commentaire Commentaires
Messages postés
6
Date d'inscription
mercredi 7 mai 2003
Statut
Membre
Dernière intervention
9 février 2008

Dim TestArray() As String
TestArray() = Split("someone@example.com", "@")
MsgBox TestArray(0)
MsgBox TestArray(1)
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
30
Et quand il y a des virgules dans les phrases, le split ne marche plus
La méthode de gabchampagne est pas mal mais il faudrai ajouter aussi quand le caractère est ", "
Mais on peut le faire aussi avec points, les point virgule ...

Bonne prog
Utilisateur anonyme
Certes, nous sommes tous là pour apprendre. Je reconnais que j'étais un poil sarcastique dans mon premier commentaire... Il est vrai que si tu connaissais Split, tu n'aurais certainement pas posté ta source... :-)
Sur ce bonne prog à tous !
Messages postés
216
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
5 mai 2004

j'avoue que je ne savait pas que split existait.
Utilisateur anonyme
En effet... Cette solution, peut-être ?

Dim LesMots() As String
LesMots Split(MonTexte, " ") 'ou LesMots Split(MonTexte)
For I = 0 To UBound(LesMots)
If LesMots(I) <> "" Then List1.AddItem LesMots(I)
Next I
Afficher les 9 commentaires

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.