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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 031 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

Commenter la réponse de Lordryck

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.