Compter les mots d' un texte

0/5 (6 avis)

Vue 10 655 fois - Téléchargée 629 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
cs_Warning
Messages postés
516
Date d'inscription
samedi 3 février 2001
Statut
Membre
Dernière intervention
24 octobre 2006
1
11 sept. 2006 à 20:09
Je propose:

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

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

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

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

6 sept. 2003 à 15:53
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 ?
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
6 sept. 2003 à 15:31
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.