none
Recherche dans fichier txt et affichage dans listbox RRS feed

  • 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
    jeudi 7 décembre 2006 09:31

Réponses

  • par exemple, le code suivant regarde dans tous les fichiers texte du répertoire d:\user\essai et ajoute dans une listbox ceux qui contiennent le mot "Interop"

    Private Sub Command1_Click()
    Dim Fichier As String, Tampon As String
    Dim Num As Integer

    Fichier = Dir("d:\user\essai\*.txt", vbNormal)
    Do While Fichier <> ""
        Num = FreeFile
        Open "d:\user\essai\" & Fichier For Binary As #Num
            Tampon = Space$(LOF(Num))
            Get #Num, , Tampon
            If InStr(1, Tampon, "Interop", vbTextCompare) Then
                Me.List1.AddItem Fichier
            End If
        Close #Num
        Fichier = Dir
    Loop
    End Sub

    jeudi 7 décembre 2006 14:11

Toutes les réponses

  • par exemple, le code suivant regarde dans tous les fichiers texte du répertoire d:\user\essai et ajoute dans une listbox ceux qui contiennent le mot "Interop"

    Private Sub Command1_Click()
    Dim Fichier As String, Tampon As String
    Dim Num As Integer

    Fichier = Dir("d:\user\essai\*.txt", vbNormal)
    Do While Fichier <> ""
        Num = FreeFile
        Open "d:\user\essai\" & Fichier For Binary As #Num
            Tampon = Space$(LOF(Num))
            Get #Num, , Tampon
            If InStr(1, Tampon, "Interop", vbTextCompare) Then
                Me.List1.AddItem Fichier
            End If
        Close #Num
        Fichier = Dir
    Loop
    End Sub

    jeudi 7 décembre 2006 14:11
  • Merci

    c'est exactement ce que je voulais.

    Cordialement

    ledebutant07

    jeudi 7 décembre 2006 15:03