compteur de mots dans un texte

bonjour chers programmeurs ben mwa j mapel omar fall et suis en 2ième année de génie informatk .
ben g un projet à rendre et il concerne la cré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 à rechercher et une pour afficher le nombre d'occurrence du mot 

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

en supposant qu'il y a un espace derriè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ème année de génie informatk ben g un projet à rendre et il concerne la cré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 à 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

gé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 à 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
-------------------------------------------------

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

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)

normal c'est les failles de la méthode:

mot"           pas compté parce que pas d'espace derrière
projet        devrait pas être compté
permettre   n'est pas le mot "et" et doit pas être compté

Daniel

C'est vrai! Avec la ligne de code qui suit cela fonctionne mais c'est à confirmer (je n'ai peut être pas testé 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

Pour compter le nombre d'occurence d'un mot dans une chaine de caractères, les expressions régulières sont toutes indiquées :


' Référence à 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é ici est :
' une chaine contenant, à 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épart et ayant le bon format
' Tu fais donc les traitements que tu veux ici.
' Du genre, afficher les éléments trouvés.
    MsgBox MATCH.Value
Next
MsgBox MATCHES.Count ' Retourne le nombre d'éléments trouvé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