Voici un petit programme de recherche dans un fichier texte.Je suis débutant en vb et j'ai rechercher pendant longtemp pour trouver comment ouvrir un fichier texte ou autre, comment lire chacune des lignes et de vérifié s'il n'avait pas un mot rechercher à l'intérieur. J'ai enfin trouvé comment et j'ai fais ce petit programme pour montrer à ceux qui ne savent pas comment faire.
Source / Exemple :
'********************************************************************************
'********************************************************************************
'************************ 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
Conclusion :
Dite moi se que vous en pensez. Si vous êtes avancé en vb et avez quelques truc n'ésité pas! Une des priorités de ce site n'est pas d'apprendre?
Jn !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.