Extraire des données d'un fichier texte

Question

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:	est.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

cs_liquide · Answer

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

cs_liquide · Answer

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

cs_Alphane · Answer

Ca fonctionne parfaitement, merci !

allopeck · Answer

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 !

Extraire des données d'un fichier texte

4 réponses

Discussions similaires