Discussion :

[sissilia]

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

[Lapinpanda]

Code :

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

CountOccurrences("c:\test.txt", "bon")

Ca c'est faux.

Il faut que tu donne le nom de ton fichier uniquement.

Le path doit etre changer manuellement.

Code :

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

1
2
 
My.computer.filesystem.currentdirectory="c:\"

[Pol63]

CountOccurrences ne charge pas le fichier pour regarder dedans, elle regarde dans la chaine de caractère
et dans "c:\test.txt" "bon" ne figure pas en effet

pour charger le contenu d'un fichier dans un string : system.io.file.readalltext



@Lapinpanda merci de ne pas dire des conneries aux gens qui débutent, il ne vont plus rien comprendre après ...

[Lapinpanda]

En effet j'étais complètement à l'ouest désolé