Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

[Invité]

avec un exemple ce serait cool.

[Beub']

Bonjour,

Un truc comme ça..?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[enerjp]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

simple Et puissant, Bravo pour ce trait de génie !

[Jean-Philippe André]

Salut,

à noter qu'une version généralisée à tout un fichier est disponible dans la
http://access.developpez.com/faq/?pa...curenceFichier

Pour ceux qui cherchent des alternatives au Split, un autre exemple de fonction (mais Philippe est et reste génial )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Function NbOccurence(strInput As String, strFind as String) as Double
If strFind<>"" Then
    NbOccurence = (Len(strInput)-Len(Replace(strInput,strFind,"")))/Len(strFind)
End If
End Function