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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (gabchampagne)