1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Combien de fois apparait un mot?

Combien de fois apparait un mot?

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 159 fois - Téléchargée 49 fois

Commenter

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
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 1
8 juin 2002 à 09:50
Simple
cs_shivan Messages postés 363 Date d'inscription jeudi 20 décembre 2001 Statut Membre Dernière intervention 25 août 2003
7 janv. 2002 à 12:42
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.
lobotomy Messages postés 8 Date d'inscription jeudi 27 décembre 2001 Statut Membre Dernière intervention 25 janvier 2002
7 janv. 2002 à 03:22
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
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 (fou volant13)