COMPTEUR DE MOTS
cs_GunHack
Messages postés
7
Date d'inscription
mardi 2 septembre 2003
Statut
Membre
Dernière intervention
11 septembre 2005
-
17 janv. 2004 à 18:14
fragmatyc Messages postés 57 Date d'inscription dimanche 9 mars 2003 Statut Membre Dernière intervention 17 octobre 2009 - 27 oct. 2005 à 19:57
fragmatyc Messages postés 57 Date d'inscription dimanche 9 mars 2003 Statut Membre Dernière intervention 17 octobre 2009 - 27 oct. 2005 à 19:57
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/19588-compteur-de-mots
https://codes-sources.commentcamarche.net/source/19588-compteur-de-mots
27 oct. 2005 à 19:57
14 nov. 2004 à 15:51
25 janv. 2004 à 11:59
Ah g oublie , et puis quand on utilise for ca rend le code assez lent !
25 janv. 2004 à 11:52
18 janv. 2004 à 00:55
une chose me plait : lon = len ( texte )
combien de fois on en vois recalculer la longueur deleurs chaines.....
17 janv. 2004 à 19:39
Sinon c pas trop mal!!!
17 janv. 2004 à 19:29
il faut renvoyer le resultat a la fonction, c pareil et - compliquer!!
Y a beaucoup plus simple et plus rapide, je vien de faire ça en 2mn :
Public Function CompteMot(Txt As String)
Dim Result() As String
Dim NbPonct As Integer
Result = Split(Txt, " ")
For i = 0 To UBound(Result)
If Trim(Result(i)) "." Then NbPonct NbPonct + 1
If Trim(Result(i)) "," Then NbPonct NbPonct + 1
If Trim(Result(i)) ";" Then NbPonct NbPonct + 1
If Trim(Result(i)) "!" Then NbPonct NbPonct + 1
If Trim(Result(i)) ":" Then NbPonct NbPonct + 1
Next i
CompteMot = UBound(Result) - NbPonct
End Function
MsgBox CompteMot("Salut ! bonjour, comment ca va ?") ' renvoie 5
17 janv. 2004 à 18:14