Compter les mots d' un texte

Soyez le premier à donner votre avis sur cette source.

Vue 10 570 fois - Téléchargée 610 fois

Description

ce programme est assez simple et permet de compter le nombre de mot que contient un texte .

on peut voir le nombre de ponctuation ...

il y a surement qq bugs.

NB : le programme n' est pas tres rapide et c'est plus ou moins aussi long de compter pour un texte de 10 mots et pour un de 400 mots

pour l' instant les nombre de mots est limité mais on peuxaugmenter ce nombre facilement mais alors ca prendra encore plus de temps !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
516
Date d'inscription
samedi 3 février 2001
Statut
Modérateur
Dernière intervention
24 octobre 2006
1
Je propose:

Public Function CountWord(Text As String, word As String) As Integer
CountWord = (Len(Text) - Len(Replace(Text, word, ""))) / Len(word)
End Function

:)
Messages postés
1
Date d'inscription
samedi 28 mai 2005
Statut
Membre
Dernière intervention
1 juin 2005

salut c adil du royaume du Maroc;en une phrase votre vos traveaux sont exellents et magnifiques ;)
Messages postés
235
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
9 novembre 2007

ah c vrai, ya le prob de la ponctuation.... :
jvais voir ça...
Messages postés
235
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
9 novembre 2007

hmmm c un peu barbare....

pour compter les mots ya un truc immediat et bcp plus simple ;)

NbreDeMots = (UBound(Split(Text1.Text, " ", , vbTextCompare)) +1)

c pas plus simple ça hein ?
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
et non, j'en etais sur, les backslaches ne s'affichent pas tous !! faut vraiment voir a changer ca !!

je refait un essai, en doublant les bslashes !

REG.Pattern = "[^\s""',.?!;€\$£?:%\+\-\*\/\\&#§<>\{\}\(\[\)\]]+"
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.