Bonsoir, Après plusieurs heures de recherche, je n'ai pas trouvé chaussure à mon pied :-(.
J'ai un programme qui me permet de chercher un code produit dans des longs fichiers texte. Pour simplifier la démarche, je choisi le dossier qui contient mes fichiers textes. Je renseigne le code produit que je cherche dans une textbox et valide avec un bouton. Il cherche dans tous les fichiers et m'enregistre dans une string l'emplacement des fichiers.
Voila le bout de code :
Comment récupérer chaque ligne de "fichiers" pour ouvrir dans mes 4 richtextbox (en cas de doublon). Merci d'avance pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click ListBox1.Items.Clear() Dim Repertoire As String = String.Empty Dim findtxt As String = String.Empty Dim resultat As New List(Of String) Repertoire = DossierTextBox.Text findtxt = FindTextBox.Text For Each fichiers As String In Directory.GetFiles(Repertoire, "*.txt") If File.ReadAllText(fichiers).Contains(findtxt) Then resultat.Add(fichiers) ListBox1.Items.Add(fichiers) End If Next fichiers End Sub
Partager