- '********************************************************************************
- '********************************************************************************
- '************************ 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
'********************************************************************************
'********************************************************************************
'************************ 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