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:
Pas de résultat..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci pour votre collaboration
Partager