Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System.IO Public Class Form1 'declaration d'un tableau pour lire le fichier Private listitems() As String Private Sub ReadFile(ByVal pathfichier As String) 'je lis tout le fichier dans listitems Try listitems = System.IO.File.ReadAllLines (pathfichier).ToArray Catch ex As Exception 'en cas d'exception affiche l'erreur MessageBox.Show(ex.Message) Close() End Try End Sub Private Function WordApparition(ByVal motcherche As String) As Integer 'cherche le mot dans le tableau et rend le nombre d'apparition Dim count As Integer count = 0 For Each phrase In listitems If phrase.Contains(motcherche) Then count += 1 End If Next Return count End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load dim x as integer 'call readfile pour lire le fichier ReadFile("E:\test.txt") 'cherche le mot ex 3207 x = WordApparition("3207") End Sub End Class