Petit programme pour la recherche dans un fichier texte

Soyez le premier à donner votre avis sur cette source.

Vue 20 308 fois - Téléchargée 2 326 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

Ajouter un commentaire

Commentaires

Bonjour, je suis entré de développer une application de gestion de contact Asp net.core et je voudrais permettre à l'utilisateur de rechercher un contact sur la liste des contacts! mais je ne sais pas dans quels fichiers , insérer les codes que vous avez publié
Messages postés
2
Date d'inscription
vendredi 30 mai 2008
Statut
Membre
Dernière intervention
17 juillet 2008

je suis un débutant je veu créer un keylogger je bug sur le dll aidé moi svp mon email c killergx12@hotmail.fr
Messages postés
3
Date d'inscription
vendredi 2 novembre 2007
Statut
Membre
Dernière intervention
14 octobre 2008

merci pour votre programme je compte aller le tester,je vais vous faire la suite

Ir.leston lwanzo/R.D.C
Messages postés
14
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
20 décembre 2007

Y a t il moyen de faire afficher la position aussi du mot cherché : par exemple il debute au charactere N°... et termine au charactere N°.... ? Ou du moins a quel ligne ud fichier txt il se trouve ?

Merci d'avance :-) !
Messages postés
3
Date d'inscription
mercredi 22 mars 2006
Statut
Membre
Dernière intervention
24 janvier 2007

comment pourrait on faire pour chercher un nom précis dans une liste de nom
Afficher les 6 commentaires

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.