cs_Alphane
Messages postés2Date d'inscriptionmardi 26 août 2003StatutMembreDernière intervention27 août 2003
-
26 août 2003 à 18:56
allopeck
Messages postés23Date d'inscriptionlundi 16 janvier 2006StatutMembreDernière intervention 3 décembre 2007
-
12 oct. 2007 à 11:54
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é ?
cs_liquide
Messages postés1016Date d'inscriptionsamedi 22 mars 2003StatutMembreDernière intervention24 juin 2008 26 août 2003 à 19:35
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