PETIT PROGRAMME POUR LA RECHERCHE DANS UN FICHIER TEXTE

'********************************************************************************
'********************************************************************************
'************************ SOURCE CRÉÉ *******************************************
'********************************************************************************
'*************************** PAR ************************************************
'********************************************************************************
'********************************************************************************
'************************     JN      *******************************************
'********************************************************************************
'********************************************************************************
'********************************************************************************

Dim place1 As String 'variable pour socker l'emplacement du fichier
Private Sub Command1_Click()
Dim tmp As String 'variable pour stocker chaque ligne du fichier
Dim mot As String 'variable pour stocker le mot à rechercher


List1.Clear

mot = Text1.Text 'stock le mot à rechercher dans la variable

If Text1.Text = "" Then 's'assure qu'il y a bien un mot à chercher
        k = MsgBox("Il n'y a rien à chercher!")
        
        
ElseIf Text1.Text = "Mot à rechercher" Then 's'assure qu'il y a bien un mot à chercher
        MsgBox ("Il n'y a rien à chercher!")
        
        
ElseIf place1 = "" Then 's'assure qu'il y a bien un emplacement pour le mot a rechercher
        MsgBox ("Aucun fichier n'a été sélectionné")
        
Else 'si tous est ok on continue

    Open place1 For Input As 1 'on ouvre le fichier à analyser
    
    Do Until EOF(1) 't'en qu'on est pas à la fin du fichier:
    
        Line Input #1, tmp 'on lis la ligne et on la stock dans la variable
        
        List1.AddItem tmp 'on ajoute la ligne dans la listbox
        
            If ((InStr(tmp, mot)) > 0) Then 'on vérifi si le mot rechercher ne serais pas dans la ligne
                    MsgBox ("Le fichier contient" & " " & mot) 'si oui alors on en fait part
                    
             End If
    Loop
    Close #1
End If
End Sub

Private Sub Command2_Click()
CommonDialog1.Filter = "Tous fichiers(*.*)|*.*|Fichiers Texte (*.TXT) |*.TXT|Fichier bat (*.Bat)|*.Bat|"
'précise quels fichiers nous pouvons choisir pour la recherche

CommonDialog1.FilterIndex = 1

CommonDialog1.ShowOpen

place1 = CommonDialog1.FileName
'stock l'emplacement du fichier choisi dans la variable

List1.Clear
End Sub



Private Sub Form_Load()
fichier1 = ""
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub

Télécharger le zip

18 février 2005 00:48:07 :

Changement pour une meilleur description

12 octobre 2005 00:48:10 :

Ajouter la source dans le site, vous n'êtes plus oubligé de downloader le zip pour voir la source.