Chercher un mot dans les fichiers d'un dossier

• VBS
• VBA
  • Word
  • Excel
  • Access
  • Powerpoint
  • Autre
• VB6
• VB.Net
  • Winform
  • WPF

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim openMe As New OpenFileDialog()
        Dim selectedFile As String = String.Empty

        If openMe.ShowDialog() = Windows.Forms.DialogResult.OK Then
            RichTextBox1.LoadFile(openMe.FileName, RichTextBoxStreamType.PlainText)
            selectedFile = openMe.FileName
            SourceTextbox.Text = selectedFile

        Else

        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        System.IO.File.WriteAllText(SourceTextbox.Text, RichTextBox1.Text)

    End Sub

    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles SourceTextbox.TextChanged

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim i, j As System.Int32
        Dim strTexte As String = String.Empty
        Dim strChaine As String = String.Empty

        strTexte = RichTextBox1.Text
        strChaine = SearchTextBox.Text

        For i = 0 To strTexte.Length - strChaine.Length Step 1
            If strTexte.Substring(i, strChaine.Length) = strChaine Then
                j += 1
                RichTextBox1.Select(i, strChaine.Length)
                RichTextBox1.Focus()
                RichTextBox1.SelectionStart = i
                RichTextBox1.SelectionLength = strChaine.Length
            End If
        Next
    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles SearchTextBox.TextChanged


    End Sub

    Private Sub Dossier_Click(sender As Object, e As EventArgs) Handles Dossier.Click

        Dim selectedos As String = String.Empty
        FolderBrowserDialog1.Description = "Veuillez sélectionner le dossier de recherche."
        FolderBrowserDialog1.ShowNewFolderButton = False
        FolderBrowserDialog1.SelectedPath = My.Computer.FileSystem.SpecialDirectories.Desktop

        If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim dossier_selectionner As String = FolderBrowserDialog1.SelectedPath
            selectedos = FolderBrowserDialog1.SelectedPath
            DossierTextBox.Text = selectedos
        Else
           
        End If

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        
    End Sub

    Private Sub DossierTextBox_TextChanged(sender As Object, e As EventArgs) Handles DossierTextBox.TextChanged

    End Sub
End Class

Private Function FichiersContenantTexte(ByVal Repertoire As String, ByVal TexteATrouver As String) As List(Of String)
   Dim resultat As New List(Of String)()

   For Each fichier As String In Directory.GetFiles(Repertoire,"*.txt",SearchOption.TopDirectoryOnly)
    If File.ReadAllText(fichier).Contains(TexteATrouver) Then
     resultat.Add(fichier)
    End If
   Next fichier

   Return resultat
End Function

 Private Sub Dossier_Click(sender As Object, e As EventArgs) Handles Dossier.Click

        Dim selectdos As String = String.Empty
        FolderBrowserDialog1.Description = "Veuillez sélectionner le dossier de recherche."
        FolderBrowserDialog1.ShowNewFolderButton = False
        FolderBrowserDialog1.SelectedPath = My.Computer.FileSystem.SpecialDirectories.Desktop

        If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim dossier_selectionner As String = FolderBrowserDialog1.SelectedPath
            selectdos = FolderBrowserDialog1.SelectedPath
            DossierTextBox.Text = selectdos
        Else

        End If
    End Sub

Private Function FichiersContenantTexte(ByVal Repertoire As String, ByVal TexteATrouver As String) As String


   For Each fichier As String In Directory.GetFiles(Repertoire,"*.txt",SearchOption.TopDirectoryOnly)
    If File.ReadAllText(fichier).Contains(TexteATrouver) Then
     Return fichier
    End If
   Next fichier

   Return String.Empty 's'il n'y a pas d'occurrence ça retourne une chaine vide
End Function

• créer dynamiquement autant de richtextbox qu'il y a de fichiers, mais ça risque de charger ton interface
• faire des onglets dynamiquement, un par fichier
• utiliser une listbox, ou un combobox et afficher le fichier sélectionné
• tous les concatèner dans un seul richtextbox
• ....

		Private Sub AfficheLesFichiers()
			Dim lesFichiers As List(Of String) = FichiersContenantTexte("C:\temp", "toto")

			For i As Integer = 0 To lesFichiers.Count - 1
				Dim r As New RichTextBox()
				r.Location = New System.Drawing.Point(i * 50, i * 50) 'pose les controles en diagonale, tous les 50, à toi de gérer ça mieux
				r.Name = "rtbFichier" & (i+1).ToString()'c'est pas forcement nécessaire
				r.Size = New System.Drawing.Size(100, 100)
				r.Text = File.ReadAllText(lesFichiers(i))
				Me.Controls.Add(r)
                                r.BringToFront()'place le controle par dessus les autres, il faut le faire après l'avoir ajouté à la form			
                           Next i
		End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        RichTextBox1.Clear()
        RichTextBox2.Clear()
        RichTextBox3.Clear()
        RichTextBox4.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)

            End If
            
        Next fichiers

        '1
        If resultat.Count = 1 Then
            TextBox1.Text = resultat.Item(0)
            RichTextBox1.LoadFile(TextBox1.Text, RichTextBoxStreamType.PlainText)
        End If
        '2
        If resultat.Count = 2 Then
            TextBox1.Text = resultat.Item(1)
            TextBox2.Text = resultat.Item(0)
            RichTextBox1.LoadFile(TextBox1.Text, RichTextBoxStreamType.PlainText)
            RichTextBox2.LoadFile(TextBox2.Text, RichTextBoxStreamType.PlainText)
        End If
        '3
        If resultat.Count = 3 Then
            TextBox1.Text = resultat.Item(2)
            TextBox2.Text = resultat.Item(1)
            TextBox3.Text = resultat.Item(0)
            RichTextBox1.LoadFile(TextBox1.Text, RichTextBoxStreamType.PlainText)
            RichTextBox2.LoadFile(TextBox2.Text, RichTextBoxStreamType.PlainText)
            RichTextBox3.LoadFile(TextBox3.Text, RichTextBoxStreamType.PlainText)
        End If
        '4
        If resultat.Count = 4 Then
            TextBox1.Text = resultat.Item(3)
            TextBox2.Text = resultat.Item(2)
            TextBox3.Text = resultat.Item(1)
            TextBox4.Text = resultat.Item(0)
            RichTextBox1.LoadFile(TextBox1.Text, RichTextBoxStreamType.PlainText)
            RichTextBox2.LoadFile(TextBox2.Text, RichTextBoxStreamType.PlainText)
            RichTextBox3.LoadFile(TextBox3.Text, RichTextBoxStreamType.PlainText)
            RichTextBox4.LoadFile(TextBox4.Text, RichTextBoxStreamType.PlainText)
        End If


    End Sub