Compteur de mots

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_GunHack)