Recherche dans fichier txt et affichage dans listbox

Question

Bonjour,

Je debute en   Vb6 (je dois creer une appli pour des stations NT4)  

Je veux rechercher si un "TEXT" existe dans plusieurs fichiers .txt  et afficher  tous les fichiers contenant ce text dans une listbox

et je plante

merci d'avance pour votre aide précieuse.

ledebutant07

jrivet · Answer

Salut,
Essaie cette petiute fonction.
Elle renvoie True si le "TEXT3 a été trouve dans le fichier 

Private Function TextExists(FileName As String, TextToFind As String) As Boolean 
Dim Fso: Set Fso =   CreateObject ("Scripting.FileSystemObject") 
Dim Contenu As String 
    Contenu  = Fso.OpenTextFile(FileName, 1, False).ReadAll 
    TextExists =  ( InStr (1, Contenu, TextToFind, vbTextCompare) <> 0) 
    Set Fso  = Nothing 
End Function 

Il ne te reste plus qu'a mettre en place ta boucle:

While TaCondition 
    If TextExists(LeNomDeTonFichier, LeTextATrouve) Then Call List1.AddItem(LeNomDeTonFichier) 
Wend 

@+: Ju£i?n
Pensez: Réponse acceptée

Recherche dans fichier txt et affichage dans listbox

1 réponse

Votre réponse

Discussions similaires