Recherche sur un fichier texte

 Sub ExtraireTexte()
    Dim File As String, Result As String
    Dim strTemp As String, Chaine As String
    Dim FF1 As Integer, FF2 As Integer
 
    File = Application.GetOpenFilename
    Resultat = "C:\Result.txt"
 
    FF2 = FreeFile
    Open Result For Output As #FF2
 
    FF1 = FreeFile
    Open Fichier For Input As #FF1
        Do Until EOF(FF1)
            Line Input #FF1, strTemp            'lecture d'une ligne
            Chaine = CleanString(strTemp)
            If Trim(Chaine) <> "" Then Print , Chaine
        Loop
 
    Close #FF1
    Close #FF2
End Sub
 
Function CleanString(Chaine As String) As String
    Dim I As Long
    Dim Debut As Long, Fin As Long
    Dim strTemp As String
 
    For I = 1 To Len(Chaine)
        If Mid(Chaine, I, 1) = "#" Then Debut = I
        If Mid(Chaine, I, 1) = "}" Then Fin = I
        If Debut > 0 And Fin > 0 Then
            strTemp = strTemp & Mid(Chaine, Debut, Fin - Debut + 1) & vbCrLf
            Debut = 0: Fin = 0
        End If
    Next
    CleanString = strTemp
End Function