un seul mot....

Question

salut,

je voudrai un progamme qui extrait d'un texte tous les mot

d'une longueur donnée (5 lettres par exemple)  et que chaque mot soit extrait une seule fois meme s'il present
plusieur fois dans n'importe quel ordre. azert=aerzt

merci

cs_lataupeben · Answer

c' est long a faire ca 
tu prend les caractere un par un 
des que tu as un espace 
tu prend les lettre une par une et tu les assemble dans une 
variable j'usqua l' espace suivant 
tu traites la longueur de ta variable
si elle a cinq caractere tu la met dans une listbox 
en verifiant qu'il es pas deja marqué

besion d'aide????

cs_jcq · Answer

Moi je l'aurais fait avec un split avec delimiter un espace. et ensuite avec le tableau recupéré, c juste un tri.

Bart-Rennes

cs_lataupeben · Answer

moi je débute donc je fais du simple 
et a la fin ca devient compliqué mais ca marche

pcpunch · Answer

C'est pas trés compliquer a faire , tréve de parlote voila un exemple qui extrait les mots de 5 lettres de la variable texte et les affiche dans une listbox si il y est pas déja!!!

Dim Texte As String
Dim Existe As Boolean
Private Sub Form_Load()
Texte = "azert azert maman maman loire dites zonzon abcde bcdea"
End Sub

Private Sub Command1_Click()
Existe = False
Dim Tableau() As String
Tableau = Split(Texte, " ")

For i = 0 To UBound(Tableau)
    If Len(Tableau(i)) = 5 Then
        For a = 0 To List1.ListCount - 1            If Tableau(i) List1.List(a) Then Existe True: Exit For
        Next a
    If Not Existe Then List1.AddItem (Tableau(i))
    Existe = False
    End If
Next i
End Sub

cs_lataupeben · Answer

c'est que j' avais fait 
mais sans le split 
c'est plus dur 
tu peux expliquer ce que ca fait

Renfield · Answer

Split permet de decouper une chaine de caractere, en specifiant un separateur (ici, un espace).

Les sous chaines sont placées dans un tableau.

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

cs_lataupeben · Answer

merci

cs_lataupeben · Answer

ah probleme
texte=abcde/bcdef/efghi
dim tbll() as string
texte=split(texte,"/")

tbll(2) n'existe pas pourquoi

cs_lataupeben · Answer

merde c'est 
tbll=split(texte,"/")
mais ca change rien au probleme

Renfield · Answer

Ton code est faux...


texte = "abcde / bcdef / efghi"
Dim tbll() As String
tbll = Split(texte, "/")


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

cs_lataupeben · Answer

mais l' erreur vien pas de la 
elle vient de ma connerie 
c t un exemple qui marche 
mais si la variable n' est pas bonne au debut et ben ca marche pas

Un seul mot....

11 réponses

Discussions similaires