Recherche dans un fichier texteRésolu

Question

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!!

Zlub · Accepted Answer

Salut lol733,


Tu peux essayer le code suivant. Il te faudra modifier les MotCk&#233; &#224; chercher dans la ligne et &#231;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&#233;sence de MotCl&#233;1 et MotCl&#233;2
      If InStr(1, ligne, "MotCl&#233;1") > 0 And InStr(1, ligne, "MotCl&#233;2") > 0 Then 
        ' On active l'analyse de la ligne suivante
        ligneSuivanteCaptured  = True 
      End If 

    Else 

      Debug.Print "Ligne trouv&#233;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&#233;coupe entre d&#233;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

lol733 · Answer

Bonjour Zlub!!!

Merci baucoup pout ton aide!! Elle ma &#233;t&#233; tres pr&#233;cieuse!
J'ai fait un grand pas dans mon avancement du programme.

Merci.
@+++
            lol733

Recherche dans un fichier texte

2 réponses

Discussions similaires