Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Petit programme pour la recherche dans un fichier texte

5/5 (5 avis)

Vue 17 133 fois - Téléchargée 2 124 fois

Description

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 !

Codes Sources

A voir également

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.