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 : 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
Pas de résultat..
Merci pour votre collaboration