Compteur de mots

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 076 fois - Téléchargée 26 fois

Contenu du snippet

C mon premier code en fait ! Ce module permet de compter les mots , lettres , ponctuations dans un texte ! je sais c debile mais j'essaie de mon mieux !

Source / Exemple :


' ************************************************************
' *                                                          *
' * Module Réalisé par the GU[N]B0Y                          *
' * Module : COMPTEUR DE MOTS , LETTRES ET PONCTUATIONS .    *
' * Réalisé le 17.01.04 à 17:38                              *
' * Contact : lparoot@suidzer0.org                           *
' *                                                          *
' ************************************************************
Dim i, m, n, s, lon
Function compter(texte, resultat As TextBox)
i = 1 'initialiser i à 1
m = 0 'initialiser m à 0
n = 0 'initialiser n à 0
s = 0 'initialiser s à 0
lon = Len(texte) 'lon est la longeur de chaine de caracteres

While i <= lon
 
 While Mid(texte, i, 1) = " " And i <= lon
  i = i + 1 'Ajout de 1 à i à chaque espace trouvé
 Wend
   
   s = s + 1 'Ajout un mot chaque fois qu'il passe de la boucle si-dessus.
    
 While i <= lon And Mid(texte, i, 1) = "." Or Mid(texte, i, 1) = "," Or Mid(texte, i, 1) = "?" Or Mid(texte, i, 1) = "!"
 i = i + 1
 n = n + 1 ' Ca c'est pour compter le nombre de ponctuations.
 s = s - 1 ' Ca c'est pourque le programme ne compte pas une ponctuation comme étant un mot.
 Wend
 
 While Mid(texte, i, 1) <> " " And Mid(texte, i, 1) <> "." And Mid(texte, i, 1) <> "," And Mid(texte, i, 1) <> "?" And Mid(texte, i, 1) <> "!" And i <= lon
  i = i + 1 'Ajout de 1 à i à chaque caractere trouvé
  m = m + 1 ' Ca c'est pour compter les lettres
 Wend
 
Wend
If Mid(texte, lon, 1) = " " Then s = s - 1 'Ca c pour que le programme ne compte pas le dernier espace comme etant un mot.
resultat = s & " mot(s) et " & m & " lettre(s) et " & n & " ponctuation(s)."

End Function

A voir également

Ajouter un commentaire

Commentaires

Messages postés
57
Date d'inscription
dimanche 9 mars 2003
Statut
Membre
Dernière intervention
17 octobre 2009

Sans vouloir pété ta bulle, si tu oubli les espace ex.: Mon nom est Sylvain.Allo toi! ca renvoi 5 mots et non 6! Mais c'est bon pareil! PS.: Jai pas testé avec ta source a toi mais elle de PCPUNCH marche pas du tout! Améliore la parce que si tu met "Allo toi", bah il renvoi beaucoup plus que 2 mots!
Messages postés
1
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
14 novembre 2004

cette source n'est pas mal du tout et elle est pas con. En fait, je l'utilise pour chercher avec Google à partir d'un client. bravo et bonne continuation
Messages postés
8
Date d'inscription
mardi 2 septembre 2003
Statut
Membre
Dernière intervention
11 septembre 2005

Slt ! Tu sais g codé ainsi , pcpubch, car g po voulu utiliser la fonction split !!!
Ah g oublie , et puis quand on utilise for ca rend le code assez lent !
Messages postés
8
Date d'inscription
mardi 2 septembre 2003
Statut
Membre
Dernière intervention
11 septembre 2005

Merci pour vos commentaires ! :)
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
Pour un premier jet, c'est pas trop mal.... prends bien sur en compte les remarques de PcPunch....

une chose me plait : lon = len ( texte )

combien de fois on en vois recalculer la longueur deleurs chaines.....
Afficher les 8 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.