omzo25
Messages postés7Date d'inscriptionvendredi 6 janvier 2006StatutMembreDernière intervention10 juin 2007
-
7 févr. 2006 à 22:04
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018
-
4 déc. 2013 à 11:22
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
philippe laschweng 1
Messages postés278Date d'inscriptionjeudi 14 avril 2005StatutMembreDernière intervention13 avril 20132 8 févr. 2006 à 14:54
Bonjour,
La méthode de Gobillot me semble la plus simple à utiliser (une ligne de code !!!!!)
Pour répondre à la question de OZMO25, tu as simplement à placer sur ta feuille 3 zones de textes :
> TxtTextSource qui contient le texte à analyser
> TxtTextSearch qui contient le mot ou la chaîne de caractères à chercher dans la première zone de texte
> TxtNb qui te donnera le nombre d'occurence trouvé
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"
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 7 févr. 2006 à 23:18
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"
Orlean2
Messages postés50Date d'inscriptionsamedi 28 février 2004StatutMembreDernière intervention 1 décembre 2015 7 févr. 2006 à 22:14
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
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------
Vous n’avez pas trouvé la réponse que vous recherchez ?
Dalida
Messages postés6728Date d'inscriptionmardi 14 mai 2002StatutContributeurDernière intervention11 janvier 2016 8 févr. 2006 à 15:51
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 !
philippe laschweng 1
Messages postés278Date d'inscriptionjeudi 14 avril 2005StatutMembreDernière intervention13 avril 20132 8 févr. 2006 à 17:26
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