Extraire une ligne d'un fichier txtRésolu

Question

Bonjour

En fait, j'extrait mon fichier txt dans une variable appell&#233; texte.
Je recherche le mot "LYON" et une fois que je l'ai trouv&#233;, je voudrait que dans un variable, ne se mette que la ligne dans laquelle est "LYON", est-ce possible?

++

malhivertman1 · Accepted Answer

Je regarde vos messages que maintenant et finalement j'avais trouv&#233;.
J'ai fais une fonction, on rentre le mot a rechercher et elle nous ressort la ligne entiere ou est le mot, donc exactement ce que je voulais mais merci qd m&#234;me les gars

Private Function chercheLigne(mot As String) As String
'rechercher la ligne dans laquelle est contenu le "mot"
Dim texte As String

Open App.Path + "	ext.txt" For Input As 1#
    Dim arret As Boolean
    arret = False
    While Not (EOF(1) Or arret)
    Input #1, texte
    If InStr(texte, mot) <> 0 Then
    arret = True
    End If
    Wend
    Close #1
    chercheLigne = texte
End Function
++

cs_etniqs · Answer

pour &#231;a il faut compter les lignes en plus de les lire

ou bien balancer un truc du genre :

 if instr(1;input(#1,maligne);"LYON") >1 then 'ben ta deja la ligne dans maligne, donc ...

malhivertman1 · Answer

A vrai dire ca marche pas des masses ce que tu m'as donn&#233;. Le Input dans le inStr , il aime pas trop

++

crenaud76 · Answer

Dim buffer as string, FN as long
Dim idxMot as long, Mot as string
dim i as long, j as long

Mot = "LYON"    ' Mot à rechercher
FN = Freefile   ' 1er N° de fichier dispo
Open "c:\fic.txt" For input as #FN   ' Ouverture du fichier en lecture
buffer = vbCRLF & input(Lof(FN), #FN) & vbCRLF ' Lecture du fichier 
Close #FN       ' Fermeture du fichier
idxmot = instr(buffer,mot)   ' Recherche du mot
if idxmot <>0 then       ' Si le mot est bien dans le fichier
  i = instrrev(buffer,vbLF,idxmot)+2   ' Recherche le saut de ligne qui précède le mot
  j = instr(idxmot,buffer,vbCR)   ' Recherche le retour chariot qui suit le mot
  MsgBox(Mid$(buffer,i+1,j-i)   ' Extrait la ligne entre ces deux index
Else 
  MsgBox Mot & " n'est aps dans le fichier"
end if

Cela devrait fonctionner normalement (pas de VB sous la main pour tester)

CR

cs_etniqs · Answer

yep, j'ai essay&#233; ce qu'il n'aime pas c'est le format du num&#233;ro de fichier dans le input (1,maligne)  (&#224; l'erreur de tout &#224; l'heure pr&#233;s
:-((( 
    Open "c:\essai.txt" For Input As #1
       While Not EOF(erferf)
         Input 1, maligne
        If InStr(1, Input(erferf, maligne), "r") > 1 Then MsgBox (maligne)

donc (et j'ai v&#233;rifi&#233; c'kou si !!) :
Open "c:\essai.txt" For Input As #1
    While Not EOF(1)
        Input #1, maligne
        If InStr(1, maligne, "toto") > 0 Then MsgBox (maligne)
       Wend
Close #1

Extraire une ligne d'un fichier txt

5 réponses

Discussions similaires