recupere ligne dans fichiers texte

Salut, voila comment j'aurai fais. J'ai pas debug donc dis moi si il y a des probleme :
s_nomfic correspond a le chemin de ton fichier : (c:\monfichier.txt)

Public Function Paragraphe(byval s_nomfic as string) as string

    Dim o_FileSystemObject  As FileSystemObject
    Dim o_TextStream        As TextStream
    Dim s_ligne                  As String
    
    Set o_FileSystemObject = New FileSystemObject
    Set o_TextStream = o_FileSystemObject.OpenTextFile(s_nomfic , ForReading, False, TristateUseDefault)

   'jusque a la fin du fichier
   Do While Not o_TextStream.AtEndOfStream
           'lit la ligne
           s_ligne = o_TextStream.ReadLine

            'si la ligne contient le mot
            if instr(s_ligne,"read scribe")<>0 then
                  'Faire jusqu' a l autre mot (date operation, a toi de mettre ce qu il faut)
                  Do While instr(s_ligne,"date de l'opération") = 0
                     'ajoute la ligne au paragraphe
                     Paragraphe = Paragraphe  & s_ligne
                     'Ligne suivante
                     s_ligne = o_TextStream.ReadLine
                  Loop
            endif
   Loop
end Function


PS : c'est du vb6

A+