compter le nombre d'occurences d'un mot dans une chaine

[huître]

Bonsoir à tous ,

j'ai un exercice à faire je patauge un peu car mon programme ne fonctionne pas

donc je dois calculer le nombre d'occurence d'un mot dans un texte

alors voilà ce que j'ai fait

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'exercice 4
Public Function nboccurence(ByVal phrase As String, ByVal mot As String) As Integer
Dim res, longueur, lgmot As Integer
Dim caractere As String
res = 0
lgmot = Len(mot)
longueur = Len(phrase)
    For i = 1 To longueur
        caractere = Mid(phrase, i, 1)
    Next i
    For i = 1 To longueur
        If Mid(caractere, i, lgmot) = mot Then res = res + 1
        Next i
nboccurence = res
End Function
 
Sub principal2()
Dim chaine As String
Dim sschaine As String
Dim nb As Integer
 
chaine = InputBox("saisir une phrase")
sschaine = InputBox("saisir un mot")
 
nb = nboccurence(chaine, sschaine)
MsgBox (" la sous chaine apparait " & nb & " dans la chaine ")
 
End Sub

je ne sais pas le programme semble fonctionner pourtant je n'obtient pas le résultat escompté

voilà merci d'avance

[Philippe JOCHMANS]

Bonjour

Une autre solution qui est dans mes archives et que j'utilisais avant.

Code :

1
2
3
4
5
Public Function CompterMot(strPhrase As String, strMot As String) As Integer
    Dim strTab() As String
    strTab = Split(strPhrase, strMot)
    CompterMot = UBound(strTab())
End Function

On utilise le mot recherché comme séparateur d'un tableau.

Le problème de ton code est qu'il va trouver ton mot lorsqu'il est inclus dans un mot.

Mais peut-être que l'on s'est mal compris, un mot dans une chaine ou dans un texte ?

Ce qui est deux choses différentes, avec un exemple ce serait cool.

Philippe

[fbtsra]

Bonjour,

Sauf erreur, il me semble que le code initial ne puisse fonctionner en l'état, la première boucle étant inutile. Le code suivant fonctionne, sous réserve de la remarque précédente de Philippe quant à l'objectif recherché :

Code :

1
2
3
4
5
6
7
8
9
10
11
Public Function nboccurence(ByVal phrase As String, ByVal mot As String) As Integer
Dim res, longueur, lgmot As Integer
Dim caractere As String
res = 0
lgmot = Len(mot)
longueur = Len(phrase)
        For i = 1 To longueur
        If Mid(phrase, i, lgmot) = mot Then res = res + 1
        Next i
nboccurence = res
End Function

Bcdt

[huître]

bonsoir je te remercie de m'avoir répondu


en fait ma prof exige que j'utilise la fonction Instr dans un Do while

voilà merci d'avance .

[Philippe JOCHMANS]

Envoyé par Philippe JOCHMANS

avec un exemple ce serait cool.

[Beub']

Bonjour,

Un truc comme ça..?

Code :

1
2
3
4
5
6
7
8
i = 1
    Do While i + longueurMot < longueurPhrase
        If InStr(i, phrase, mot) <> 0 Then
            i = InStr(i, phrase, mot)
            Compteur = Compteur + 1
        End If
        i = i + 1
    Loop

[huître]

merci géniale le code