Recherche dans un fichier texte [Résolu]

lol733 19 Messages postés mercredi 12 janvier 2005Date d'inscription 18 novembre 2006 Dernière intervention - 12 sept. 2005 à 07:43 - Dernière réponse : lol733 19 Messages postés mercredi 12 janvier 2005Date d'inscription 18 novembre 2006 Dernière intervention
- 12 sept. 2005 à 10:28
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!!
Afficher la suite 

2 réponses

Zlub 815 Messages postés mercredi 11 octobre 2000Date d'inscription 29 septembre 2010 Dernière intervention - 12 sept. 2005 à 08:14
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
lol733 19 Messages postés mercredi 12 janvier 2005Date d'inscription 18 novembre 2006 Dernière intervention - 12 sept. 2005 à 10:28
0
Utile
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

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.