Combien de fois apparait un mot?

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 527 fois - Téléchargée 46 fois

Contenu du snippet

wala un petit bou de code qui compte combien de fois un mot apparait dans un texte, c une petit fonction toute bete....
Mettez 2 textbox et un bouton. puis mettez dans le text1 le mot a chercher et dans text2 le texte dans lequel chercher ce mot et pi appuyez sur le bouton

Source / Exemple :


Private Sub Command1_Click()
mot = Text1
endroit = Text2
MsgBox "Le mot apparait " & (cherche(mot, endroit)) & " fois."
End Sub
Public Function cherche(mot, endroit) As Integer
Dim i As Integer
cherche = 0
longueur = Len(mot)
For i = 1 To Len(endroit)
If endroit = mot Then cherche = 1: Exit For
If i = 1 Then If Mid(endroit, 1, longueur + 1) = mot & " " Then cherche = cherche + 1
If i > 1 Then If Mid(endroit, i - 1, longueur + 2) = " " & mot & " " Then cherche = cherche + 1
If i > 1 Then If Mid(endroit, i - 1, longueur + 2) = " " & mot & "." Then cherche = cherche + 1
If i > 1 Then If Mid(endroit, i - 1, longueur + 2) = " " & mot & "," Then cherche = cherche + 1
If i > 1 Then If Mid(endroit, i - 1, longueur + 2) = " " & mot & "!" Then cherche = cherche + 1
If i > 1 Then If Mid(endroit, i - 1, longueur + 2) = " " & mot & "?" Then cherche = cherche + 1
If i > 2 Then If i + longueur >= Len(endroit) Then If Mid(endroit, i - 1, longueur + 1) = " " & mot Then cherche = cherche + 1
Next i

End Function

Conclusion :


Spécialement publié pour répondre au probleme de Torzak. Sinon je l'aurais jamais fait...

A voir également

Ajouter un commentaire

Commentaires

Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
1
Simple
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

fou volant13> c cool mais si mon mot est suivi par : ou / ou n'importe kel autre caractere ? fo plutot tester les lettres avant et apres ki serait comprises entre a et z... enfin bon sinon c pas mal...
lobotomy> oui mais si tu chercher "le" et ke ton texte contient "lever" ou "dégueuler" ben il compte une fois pour rien... c pas ce ke voulais faire fou volant13.
Messages postés
8
Date d'inscription
jeudi 27 décembre 2001
Statut
Membre
Dernière intervention
25 janvier 2002

c bon mais plus simple

If (InStr(1, ChaineTexte, "Lemotquetuveux") > 0) Then
pi la apres tu met +1 à la caption dun label ou à un textbox

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.