Extraire des données d'un fichier texte

Slt,

Je voudrai extraire des données d'un fichier texte, par exemple les positions 47-51 de la ligne 3, 12-22 de la ligne 7, etc ...

J'arrive à extraire un champ sur une ligne précise,

i = 0
ligne = 3
Open "C:\test.txt" For Input Access Read As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, info
If i = ligne Then Exit Do
Loop
Close #1
Debug.Print Mid(info, 47, 5)


Comment arriver à récupérer toutes mes infos sans relire le fichier du début à chaque fois ?

Et puis-je, une fois mes variables extraites, les coller dans un emplacement précis d'un document word pré-formaté ?

Merci d'avance

liquide
dim val1,val2 as string
dim Cpt as integer
cpt = 1 ' Compteur a 1
Open "Test.txt" For Input As #2 'Ouvre le fichier pour lecture ---> For Input et met dans #2
Do While Not EOF(2) ' Tant que la lecture n'est pas a la fin du fichier
Line Input #2, S ' Lit et place les lignes dans la variable S
Select Case cpt
Case 3: Val1 = mid(S, 47, 47-53) '******
Case 7: Val2 = mid(S, 12, 12-22) '******
End Select
cpt = cpt + 1 ' Incremente de 1
Loop
Close #2 ' Ferme le fichier


qqe chose comme ca devrait fonctionner
-------------------------------
Réponse au message :
-------------------------------

> Slt,
>
> Je voudrai extraire des données d'un fichier texte, par exemple les positions 47-51 de la ligne 3, 12-22 de la ligne 7, etc ...
>
> J'arrive à extraire un champ sur une ligne précise,
>
> i = 0
> ligne = 3
> Open "C:\test.txt" For Input Access Read As #1
> Do While Not EOF(1)
> i = i + 1
> Line Input #1, info
> If i = ligne Then Exit Do
> Loop
> Close #1
> Debug.Print Mid(info, 47, 5)
>
>
> Comment arriver à récupérer toutes mes infos sans relire le fichier du début à chaque fois ?
>
> Et puis-je, une fois mes variables extraites, les coller dans un emplacement précis d'un document word pré-formaté ?
>
> Merci d'avance

liquide
bon, plantage sur le "47-53"----> "53-47" pour la longueur du texte, pour l'autre aussi, dsl

-------------------------------
Réponse au message :
-------------------------------

>
> liquide
> dim val1,val2 as string
> dim Cpt as integer
> cpt = 1 ' Compteur a 1
> Open "Test.txt" For Input As #2 'Ouvre le fichier pour lecture ---> For Input et met dans #2
> Do While Not EOF(2) ' Tant que la lecture n'est pas a la fin du fichier
> Line Input #2, S ' Lit et place les lignes dans la variable S
> Select Case cpt
> Case 3: Val1 = mid(S, 47, 47-53) '******
> Case 7: Val2 = mid(S, 12, 12-22) '******
> End Select
> cpt = cpt + 1 ' Incremente de 1
> Loop
> Close #2 ' Ferme le fichier
>
>
> qqe chose comme ca devrait fonctionner
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Slt,
> >
> > Je voudrai extraire des données d'un fichier texte, par exemple les positions 47-51 de la ligne 3, 12-22 de la ligne 7, etc ...
> >
> > J'arrive à extraire un champ sur une ligne précise,
> >
> > i = 0
> > ligne = 3
> > Open "C:\test.txt" For Input Access Read As #1
> > Do While Not EOF(1)
> > i = i + 1
> > Line Input #1, info
> > If i = ligne Then Exit Do
> > Loop
> > Close #1
> > Debug.Print Mid(info, 47, 5)
> >
> >
> > Comment arriver à récupérer toutes mes infos sans relire le fichier du début à chaque fois ?
> >
> > Et puis-je, une fois mes variables extraites, les coller dans un emplacement précis d'un document word pré-formaté ?
> >
> > Merci d'avance
>

Ca fonctionne parfaitement, merci !


-------------------------------
Réponse au message :
-------------------------------

>
> liquide
> bon, plantage sur le "47-53"----> "53-47" pour la longueur du texte, pour l'autre aussi, dsl
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> >
> > liquide
> > dim val1,val2 as string
> > dim Cpt as integer
> > cpt = 1 ' Compteur a 1
> > Open "Test.txt" For Input As #2 'Ouvre le fichier pour lecture ---> For Input et met dans #2
> > Do While Not EOF(2) ' Tant que la lecture n'est pas a la fin du fichier
> > Line Input #2, S ' Lit et place les lignes dans la variable S
> > Select Case cpt
> > Case 3: Val1 = mid(S, 47, 47-53) '******
> > Case 7: Val2 = mid(S, 12, 12-22) '******
> > End Select
> > cpt = cpt + 1 ' Incremente de 1
> > Loop
> > Close #2 ' Ferme le fichier
> >
> >
> > qqe chose comme ca devrait fonctionner
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Slt,
> > >
> > > Je voudrai extraire des données d'un fichier texte, par exemple les positions 47-51 de la ligne 3, 12-22 de la ligne 7, etc ...
> > >
> > > J'arrive à extraire un champ sur une ligne précise,
> > >
> > > i = 0
> > > ligne = 3
> > > Open "C:\test.txt" For Input Access Read As #1
> > > Do While Not EOF(1)
> > > i = i + 1
> > > Line Input #1, info
> > > If i = ligne Then Exit Do
> > > Loop
> > > Close #1
> > > Debug.Print Mid(info, 47, 5)
> > >
> > >
> > > Comment arriver à récupérer toutes mes infos sans relire le fichier du début à chaque fois ?
> > >
> > > Et puis-je, une fois mes variables extraites, les coller dans un emplacement précis d'un document word pré-formaté ?
> > >
> > > Merci d'avance
> >
>

Bonjour,
j'ai testé votre code il est super!!
mais moi jai un probleme je voudrais extraire juste la derniere ligne ?
merci

je suis vraiment nul help me !