Compter le nombre d'occurrence d'un mot dans un fichier
Bonjour
Je veux faire un formulaire qui accède à un fichier texte, en cherchant l'existence d'un mot par exemple "bon" et compter le nombre d'occurrence de ce mot dans le fichier et afficher le résultat dans un listbox, si le mot n'existe pas il affiche zero. voila le code que j'ai trouver:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Public Function CountOccurrences(ByVal fichier As String, ByVal mot As String) As Integer
Dim iRet As Integer = 0
Dim i As Integer = fichier.IndexOf(mot, 0)
Do While i > -1
iRet += 1
i = fichier.IndexOf(mot, i + mot.Length)
Loop
Return iRet
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Text = CountOccurrences("c:\test.txt", "bon")
End Sub |
Pas de résultat..
Merci pour votre collaboration
