Combien de fois apparait un mot?

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

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)