begin process at 2012 02 14 01:13:26
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

J'AI BESOIN D'AIDE !!!! :)

 > 

compteur de mots dans un texte


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

compteur de mots dans un texte

mardi 7 février 2006 à 22:04:37 | compteur de mots dans un texte

omzo25

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 

mardi 7 février 2006 à 22:14:54 | Re : compteur de mots dans un texte

Orlean2


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

mardi 7 février 2006 à 23:18:58 | Re : compteur de mots dans un texte

Gobillot

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
mardi 7 février 2006 à 23:47:31 | Re : compteur de mots dans un texte

dragon

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
-------------------------------------------------

mercredi 8 février 2006 à 14:54:16 | Re : compteur de mots dans un texte

philippe laschweng 1

Réponse acceptée !
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"

Philippe
mercredi 8 février 2006 à 15:51:43 | Re : compteur de mots dans un texte

Dalida

Membre Club
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
mercredi 8 février 2006 à 15:53:53 | Re : compteur de mots dans un texte

Dalida

Membre Club
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)
mercredi 8 février 2006 à 17:07:18 | Re : compteur de mots dans un texte

Gobillot

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
mercredi 8 février 2006 à 17:26:50 | Re : compteur de mots dans un texte

philippe laschweng 1

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

mercredi 8 février 2006 à 17:28:03 | Re : compteur de mots dans un texte

econs

Administrateur CodeS-SourceS


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




1 2

Cette discussion est classée dans : texte, mot, compteur, mots, ben


Répondre à ce message

Sujets en rapport avec ce message

Lire un fichier texte mot à mot [ par akaii ] Hello,Je dois lire un fichier text et faire ressortir tous les mots pour les comparer avec deux autres mots et je n'ai pas trouvé de code équivalent, kelkun a t il un code permettant de retrouver un mot texte [ par lynsh ] je dois créer un programme permettant de retrouver et de colorer autant de fois  un mot  dans un texte (le texte pouvant etre saisi ou chargé )puis de crypter un mot de passe [ par TTHIERRY ] bonjour,je cherche comment faire pour que la saisie d'un label soit automatiquement en majuscule même si on tape en minuscule.et comment on peu mettre un bouton rechercher [ par kanabinch ] Cette fois-ci j'ai une listebox où précédemment j'ai pu enregistrer des mots dans celle-ci. (qui ont été vérifié grâce à la table ascii...)En fait mon un bouton rechercher [ par kanabinch ] Cette fois-ci j'ai une listebox où précédemment j'ai pu enregistrer des mots dans celle-ci. (qui ont été vérifié grâce à la table ascii...)En fait mon aide mot précis [ par mouadestla ] salutj'ai besoin d'aide je suis un debutantj'ai crée une zone de texte , et un boutton , ce que je veux c'est quand je clique sur le bouton il efface cacher certains mot dans textbox [ par steph42160 ] Bonjour amis développeurs,Je vous sollicite car j'ai un petit probleme qui commence a m eprendre la tête assez serieusement. Voila je m'explique j'ai EXTRAIRE TOUS LES MOTS D UN FICHIER TEXTE ET LES METTRE DANS UN TABLEAU [ par steph42160 ] Salut a tous, J'ai un problème j'aimerais extraire tous les mots d'un fichier texte 1 à 1 et ensuite les ranger dans un tableau de string afin de pouv Texte dans une chaine [ par xav0021 ] BonjourJ'arrive pas à trouver comment on peut vérifier si un mot se trouve dans une chaine de caractère.Par exemple, j'ai une phrase et mon mot c'est Rechercher un ligne dans un fichier texte [ par veler ] Bonjour tous le monde, voila, après de nombreuses recherches sur différent site web, je n'ai toujours pas de réponses à mais questions:comment cherche


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,215 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales