Recherche dans un fichier texte [Résolu]

Signaler
Messages postés
19
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
18 novembre 2006
-
Messages postés
19
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
18 novembre 2006
-
Bonjour!!

J'ai un petit probleme!!
je vous explique.
Dans mon fichier j'ai plusieurs lignes et je cherche une ligne particuliere ou se trouve 2 mots qu'il n'y pas dans les autres lignes.
Une fois que j'ai trouver ces deux mots je lit un troisieme qui se trouve entre un "/" et un espace.
Si quelqu'un pouvais ne filler un coup de main ca serai super!!

D'avance merci!!

2 réponses

Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
Salut lol733,


Tu peux essayer le code suivant. Il te faudra modifier les MotCké à chercher dans la ligne et ça devrait rouler :


Dim ligne As String
Dim ligneSuivanteCaptured As Boolean ' = false

Open App.Path & "\fichier.txt" For Input As #1
While Not EOF (1)
Input #1, ligne

If Not ligneSuivanteCaptured Then

' On cherche sur la ligne la présence de MotClé1 et MotClé2
If InStr(1, ligne, "MotClé1") > 0 And InStr(1, ligne, "MotClé2") > 0 Then
' On active l'analyse de la ligne suivante
ligneSuivanteCaptured = True
End If

Else

Debug.Print "Ligne trouvée = > " & ligne

Dim debut As Integer
Dim fin As Integer

' On cherche le premier /
debut = InStr (1, ligne, "/") + 1
If debut > 1 Then

' On cherche le premier espace apres premier /
fin = InStr(debut, ligne, " ")

If fin Then
' On découpe entre début ("/") et fin (" ")
Debug.Print " Valeur = > " & Mid (ligne, debut, fin - debut)
End If

End If

' Reset de l'analyse
ligneSuivanteCaptured = False

End If
Wend
Close #1



++

Zlub
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

Messages postés
19
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
18 novembre 2006

Bonjour Zlub!!!

Merci baucoup pout ton aide!! Elle ma été tres précieuse!
J'ai fait un grand pas dans mon avancement du programme.

Merci.
@+++
lol733