compteur de mots dans un texteRésolu

Question

bonjour chers programmeurs ben mwa j mapel omar fall et suis en 2i&#232;me ann&#233;e de g&#233;nie informatk .
ben g un projet &#224; rendre et il concerne la cr&#233;ation d'une application ki va ns permettre de compter le nombre d'occurence d'un mot choisi au nivea d l'application ki aura 3 zones de texte; une zone pour la saisie du texte , une pour le choix du mot &#224; rechercher et une pour afficher le nombre d'occurrence du mot

philippe laschweng 1 · Accepted Answer

Bonjour,

La m&#233;thode de Gobillot me semble la plus simple &#224; utiliser (une ligne de code !!!!!)
Pour r&#233;pondre &#224; la question de OZMO25, tu as simplement &#224; placer sur ta feuille 3 zones de textes :
>  TxtTextSource qui contient le texte &#224; analyser
> TxtTextSearch qui contient le mot ou la cha&#238;ne de caract&#232;res &#224; chercher dans la premi&#232;re zone de texte
> TxtNb qui te donnera le nombre d'occurence trouv&#233;

Le commandButton se nomme CmdCalculate :

Private Sub CmdCalculate_Click()
    TxtNb.Text = UBound(Split(TxtTextSource.Text, TxtTextSearch.Text))
End Sub

Petit correctif (GOBILLOT)
Au passage, il y'a 5 occurences du mot "et" et 3 occurences du mot "mot"

Philippe

Orlean2 · Answer

Private Sub Command1_Click()
a$ = "les mot son separer par des espace"
a$ = a$ + " " 'tu rajout un espace a la fin de ta chaine
i = 0
Mot = 0
While InStr(i + 1, a$, " ")
Mot = Mot + 1
i = InStr(i + 1, a$, " ") + 1
Wend
Print Mot, "Mots"


End Sub
'attention au double espace tu peut les enlever avant le traitement pratiquement par la meme fonction

Gobillot · Answer

en supposant qu'il y a un espace derri&#232;re le mot

ce qui exclut les ponctuations . , ; etc ...





    Dim Str As String



    Str = "bonjour chers programmeurs ben mwa j mapel
omar fall et suis en 2i&#232;me ann&#233;e de g&#233;nie informatk ben g un projet &#224;
rendre et il concerne la cr&#233;ation d'une application ki va ns permettre
de compter le nombre d'occurence d'un mot choisi au nivea d
l'application ki aura 3 zones de texte; une zone pour la saisie du
texte , une pour le choix du mot &#224; rechercher et une pour afficher le
nombre d'occurrence du mot"



    MsgBox UBound(Split(Str, "et "))      ' = 4

    MsgBox UBound(Split(Str, "ben "))    ' = 2

    MsgBox UBound(Split(Str, "la "))      ' = 2

    MsgBox UBound(Split(Str, "mot "))    ' = 2

Daniel

cs_dragon · Answer

g&#233;nie informatique ... et tu bloque la dessus ??? anyway

je supprime les espace de trop
ensuite je convertie en tableau 
puis j'affiche la longueur du tableau + 1 &#224; cause du 0

msgbox(split(replace(texbox1.text,"  "," ")," ").lenght + 1)


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

Dalida · Answer

salut,

je n'ai encore jamais utilisé d'expressions régulières mais j'ai pensé à cela :

Dim regExp as New Regex (TxtTextSearch.Text)
' ou avec des options :
' Dim regExp as New Regex (TxtTextSearch.Text, _
' RegexOptions.IgnoreCase| RegexOptions.IgnorePatternWhitespace)

Dim matches as MatchCollection = regExp.Matches(TxtTextSource.Text)

TxtNb.Text = matches.count

il faudrait donc en premier se préoccuper de la validité de l'expression régulière puis tester le tout. comme je ne peux pas le tester en ce moment je vous fais confiance pour essayer et me tenir au courant !

à plus

Dalida · Answer

oupsss, c'est pas très VB ce que je raconte (et pourtant j'ai relu !) :

' ou avec des options :
' Dim regExp as New Regex (TxtTextSearch.Text, _
' RegexOptions.IgnoreCase Or RegexOptions.IgnorePatternWhitespace)

Gobillot · Answer

normal c'est les failles de la m&#233;thode:



mot"           pas compt&#233; parce que pas d'espace derri&#232;re 
projet        devrait pas &#234;tre compt&#233;

permettre   n'est pas le mot "et" et doit pas &#234;tre compt&#233;



Daniel

philippe laschweng 1 · Answer

C'est vrai! Avec la ligne de code qui suit cela fonctionne mais c'est &#224; confirmer (je n'ai peut &#234;tre pas test&#233; tous les cas et y'a surement des execptions).

Private Sub CmdCalculate_Click()
TxtNb.Text = UBound(Split(TxtTextSource.Text, " " & TxtTextSearch.Text)) + UBound(Split(TxtTextSource.Text, TxtTextSearch.Text & " ")) - UBound(Split(TxtTextSource.Text, " " & TxtTextSearch.Text & " "))
End Sub

econs · Answer

Pour compter le nombre d'occurence d'un mot dans une chaine de caract&#232;res, les expressions r&#233;guli&#232;res sont toutes indiqu&#233;es :






                
                '   R&#233;f&#233;rence &#224; cocher : Microsoft VB Scripts Regular Expressions 5.5    





Dim FORMAT_STRING As RegExp

Dim MATCHES, MATCH As Object



Set FORMAT_STRING= New RegExp

FORMAT_STRING.Pattern = "[a-z]{2}[A-Z]{3}[0-9]*[a-zA-Z]+[a|A]"



' Le format de chaine recherch&#233; ici est :

'
une chaine contenant, &#224; la suite, 2 lettres minuscules, 3 majuscules,

' 0
ou plusieurs chiffres , au moins une lettre et pour finir la lettre A.

' ex : "trGEV89gTEdA"



'Ensuite, tu peux faire des traitements dessus :

Set MATCHES = FORMAT_STRING.Execute(maChaineATraiter)







For Each MATCH In MATCHES

' Dans la boucle, MATCH.Value contient alors la valeur extraite de ta 

' chaine de d&#233;part et ayant le bon format

' Tu
fais donc les traitements que tu veux ici. 

' Du genre, afficher les &#233;l&#233;ments trouv&#233;s.

    MsgBox MATCH.Value

Next

MsgBox MATCHES.Count ' Retourne le nombre d'&#233;l&#233;ments trouv&#233;s.





-----------------------------------



Si le mot que tu recherches est toto, il suffira de dire :

FORMAT_STRING.Pattern = "toto"



Si tu veux tenir compte des majuscules (toTo, TOto, totO, ...), tu peux faire :

FORMAT_STRING.Pattern = "[t|T]{1}[o|O]{1}[t|T]{1}[o|O]{1}"






Manu

omzo25 · Answer

bon merci philip j tt de suite m'en aller le tester

omzo25 · Answer

slt ben g u a tester ton code et cela c montrer bon ben mon otre problem est colorier le mot recherch&#233; dans le texte

62 · Answer

et en code java ca donne quoi? j'essaye de trouver les mots et leur occurence à partir d'un document HTML

Compteur de mots dans un texte

12 réponses

Discussions similaires