Discussion :

[cirtey]

Bonjour;
Je cherche à créer un petit programme sous vb6 pour calculer le nombre d'occurences d'un mot dans une phrase.
Lorsque je tente d'exécuter mon programme, j'ai le message suivant:
"Erreur de compilation, qualificateur incorrect."
Phrase dans la boucle for est alors pointé par le débogeur (phrase.length).
Pouvez-vous m'aider à déterminer la source d'erreur? Merci d'avance.

Voici le code:

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
29
 
Private Sub cmdRechercher_Click()
 
Dim motrecherche As String
Dim phraseorigine As String
Dim phrase() As String
Dim nbrmotrecherche As Integer
Dim i As Integer
 
motrecherche = txtRecherche.Text
phraseorigine = lblTexte.Caption
phrase() = Split(phraseorigine)
nbrmotrecherche = 0
 
If motrecherche <> "" Then
  For i = 0 To phrase.length - 1
      If phrase(i) = motrecherche Then
          nbrmotrecherche = nbrmotrecherche + 1
      End If
  Next i
 
  txtOccurence = CStr(nbrmotrecherche)
 
Else
    MsgBox "La chaîne ne peut être vide.", vbInformation, "Comptage des mots."
 
End If
 
End Sub

[OhMonBato]

ubound(Phrase) pas phrase.length

[zazaraignée]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Function NbrOccurences(psPhrase As String, psMot As String) As Integer
    Dim laPhrase() As String
    Dim liI As Integer
    Dim liCount As Integer
    liCount = 0
    laPhrase = Split(psPhrase)
    For liI = 0 To UBound(laPhrase)
        If UCase(laPhrase(liI)) = UCase(psMot) Then liCount = liCount + 1
    Next
    NbrOccurences = liCount
End Function

[avigeilpro]

Code :

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

1
2
3
4
5
6
7
8
 
Public Function NbrOccurences(Phrase As String, Mot As String) As Integer
 
Phrase = UCase(Phrase)
Mot = UCase(Mot)
NbrOccurences = (Len(Phrase)-Len(Replace(Phrase,Mot,""))) div Len(Mot)
 
End Function

Je ne suis pas chez moi mais je pense que cela devrait fonctionner.
Explications :
On enlève toutes les occurences de Mot dans Phrase.
On prend la longueur de la phase de départ moins la longueur de la phrase
d'arrivée, (donc la longueur de tout ce qui à été enlevé) et on divise par la taille de la chaine recherchée (on compte le nombre de fois que la chaine à été enlevée)

Défaut :
Voici une phrase : "on va prendre l'avion sinon nous allons le rater"
Si on recherche le mot "on", on en trouve 4 :
"on va prendre l'avion sinon nous allons le rater"
Je pense que ca peut être réctifié mais faut plancher un peu dessus, perso je n'ai pas le temps, désolé

[cirtey]

Salut;
j'ai retouché un peu le code, cela marche. Mais maintenant je souhaite que des mots rentrent dans l'occurence même s'ils ne sont pas à la forme correcte (pluriel / singulier, ' ou pas).
La phrase "Le silence de ces espaces infinis m'effraie." est en caption du label (lblTexte.Caption).
Ex:
Lorsque je demande effraie j'ai 0. Hors je souhaite avoir 1
Lorsque je fais silences j'ai 0. Hors je souhaite avoir 1

Je pense que la fonction inStr peut résoudre le problème. Je vais tester.

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
Private Sub cmdRechercher_Click()
 
Dim motrecherche As String
Dim phraseorigine As String
Dim phrase() As String
Dim nbrmotrecherche As Integer
Dim i As Integer
 
motrecherche = txtRecherche.Text
phraseorigine = lblTexte.Caption ' "Le silence de ces espaces infinis m'effraie."
phrase() = Split(phraseorigine)
nbrmotrecherche = 0
 
If motrecherche <> "" Then
  For i = 0 To (UBound(phrase))
      If phrase(i) = motrecherche Then
          nbrmotrecherche = nbrmotrecherche + 1
      End If
  Next i
 
  txtOccurence = CStr(nbrmotrecherche)
 
Else
    MsgBox "La chaîne ne peut être vide.", vbInformation, "Comptage des mots."
 
End If
 
End Sub

[cirtey]

Merci les gars.

Voici une autre manière que j'ai trouvé pour tenir compte des "." et des " ' ".
Biensûr ce n'est que pour le cas d'une phrase fixe extraite d'un label par exemple.

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
29
30
 
Option Explicit
 
Private Sub cmdQuitter_Click()
End
End Sub
 
Private Sub cmdRechercher_Click()
Dim strMot As String
Dim intMot As Integer
Dim intPos As Integer
 
    strMot = Me.lblTexte.Caption
    intPos = 0
    intMot = -1
    'Pour annuler le dernier incrément du compteur
 
 
    If strMot <> "" And txtRecherche.Text <> "" Then
        Do
            intPos = InStr(intPos + 1, strMot, txtRecherche.Text)
            intMot = intMot + 1
        Loop Until intPos = 0
        txtOccurence = CStr(intMot)
 
    Else
        MsgBox "La chaîne ne peut être vide.", vbInformation, "Comptage des mots."
    End If
 
End Sub

[zazaraignée]

Merci les gars.

Bon! Apparemment, les filles, ça compte pas!

Faut pas oublier de le dire, si c'est

[parp1]

Mais si Zaza tu comptes beaucoup pour nous!

[Delbeke]

Absolument Zaza, tu comptes beaucoup. Et moi, je raffoles de ton petit accent canadien