comment trouver un mot dans un fichier texte ?

Question

Avez vous un programme pour trouver un mot dans fichier texte ? 

Le fichier texte en question est en fait un un recueil de données prises à partir d'un site internet (combien de temps est resté cet internaute sur le site, où as-t-il cliqué etc ...). Je voudrais trouver dans ce recueil des mots clés (mots que je connais) pour ensuite lire la valeur numérique qui les suit 

ex : blabla...  connections 12   blabla...    ' ici je voudrais trouver le mot "connection" dans le texte pour ensuite lire la valeur numérique qui le suit et la placer dans la textbox qui lui revient.

merci d'avance à ceux qui me répondront. (j'espère ne pas avoir été trop long...)

cs_christophe · Answer

pour ma part, je lirai le fichier ligne par ligne, en recherchant si dans la ligne il y a le mot clé, si oui je copie la ligne dans un tableau.

une fois tout le fichier parcouru, je m'attaque au traitement des informations que g placé dans le tableau.

j'utilise une fonction mid() pour récupérer seulement les infos dont g besoin. 

et ensuite il ne reste plus qu'a les afficher.

voila algorthmiquement comment je ferais ca, tu peux aussi tout faire d'un sans utiliser de tableau, mais dans ce cas tu ne pourras réutiliser ton résultat plus tard.

a +

skymath · Answer

Merci pour ta réponse .
En vérité j'y avait pensé mais je ne sais pas comment faire pour arreter ma lecture à la fin d'une ligne ...  :(    
(je débute en VB) En fait je ne sais pas comment lui faire arréter la lecture lorsqu'il recontre un retour à la ligne . Aurais-tu un petit code génial pour ca ?

merci d'avance.

skymath · Answer

Merci pour ta réponse.
En fait j'y avais pensé mais je ne sais pas comment lui faire arréter la lecture lorsqu'il rencontre un retour à la ligne... :(   (je débute en VB)
Aurais-tu un petit code génial pour ça ?
merci d'avance

cs_christophe · Answer

c'est tout con, tu lit caractère par caractère tu vérifis que ce ne soit pas le caractère ascii 10

voici un petit exemple qui te permet d'aller a la ligne suivante :

Private Sub avancer_ligne_suivante(ByVal numero_fichier As Integer)

'declaration des variables
Dim avance As String

'avance jusqu'a la fin de la ligne
On Error GoTo fin:
avance = Input(1, #numero_fichier)

While avance <> Chr(10)
    avance = Input(1, #numero_fichier)
Wend
On Error GoTo 0
fin:

End Sub

cs_christophe · Answer

Encore un message en double, Petit problème d'affichage NIX...

skymath · Answer

merci !!
c'est juste ce qu'il me manquait !  :o)

sermavb · Answer

MOI

Comment trouver un mot dans un fichier texte ?

7 réponses

Discussions similaires