Nombre d'occurences d'un mot dans une phrase

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Nombre d'occurences d'un mot dans une phrase

teycir

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."
L'objet 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 :

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

Publicité

ingenieurcesi

ca marche mieux comme ca ?

Private Sub cmdRechercher_Click()
Dim motrecherche As String
Dim phraseorigine As String
Dim phrase(150, 1) As String
Dim nbrmotrecherche As Integer
Dim i As Integer
motrecherche = txtRecherche.Text
phraseorigine = lblTexte.Caption
phrase(i, 1) = Split(phraseorigine)
nbrmotrecherche = 0
If motrecherche <> "" Then
For i = 0 To Len(phrase(i, 1)) - 1
If phrase(i, 1) = 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

Message édité par ingenieurcesi le 07-05-2007 à 17:32:32

Thierry_94

Bonjour,

Il faut remplacer
For i = 0 To Len(phrase(i, 1)) - 1
par
For i = 0 to ubound(Phrase) -1

car phrase est un tableau.

Bon courage

ingenieurcesi

faudrait peut etre "initialiser" le tableau au début du code !
est-ce que quelqu'un connait l'instruction ? y'a ReDim qui m'a l'air bien mais j'en suis pas sur

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Nombre d'occurences d'un mot dans une phrase

Sujets relatifs
nombre de bits d'un nombre	Phrase qui change chaques jours.
appel à une fonction avec un nombre de paramètres variable	[C] utiliser un nombre stocké dans un fichier
[boost::thread] Comment limiter le nombre de threads simultanés	Gestion de la navigation par jour avec nombre d'affichage limité svp
Améliorer la vitesse du fonction donnant un nombre aléatoire	comment augmenter le nombre de jointure sur mysql??
nombre max d'image par ligne	[VBSCRIPT] nombre ?
Plus de sujets relatifs à : Nombre d'occurences d'un mot dans une phrase

Page générée en 0.035 secondes