Petit programme pour la recherche dans un fichier texte

Soyez le premier à donner votre avis sur cette source.

Vue 19 751 fois - Téléchargée 2 307 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

MuShRo_Om
Messages postés
3
Date d'inscription
samedi 7 janvier 2006
Statut
Membre
Dernière intervention
7 janvier 2006
-
La tu remplace 1 mot dans une ligne
Mais je me pose la question, si tu dois par exemple remplacer
les commentaires qui existe dans les fichiers programmations
par du un mot, une phrase ou rien (ex: '... ou /* ... */)
comment ferais tu si ils étaient sur plusieurs lignes?

je demande à un développeur plus expérimenté comment pourais t'on faire?

Comment prendre la position du premier mot (ex: 039 en ASCII pr le VB
ou /* pour le C)
ensuite le deuxieme (ex: 013 en ASCII pr le VB et */ pour le C)
Pour au final écrire une fonction qui remplace les phrases écritent entre
ces 2 positions par un mot, une phrase ou rien.
looonyce
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
oliv_def
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 :-) !
lwanzo
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
kimgx12
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

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.