Lire un fichier texte depuis la fin

Résolu
rastabegood Messages postés 5 Date d'inscription mercredi 9 février 2005 Statut Membre Dernière intervention 6 juin 2005 - 3 juin 2005 à 15:11
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 6 juin 2005 à 19:08
Salut,

J'aurais aimé pouvoir lire un fichier texte depuis la fin pusque l'information que je cherche se trouve à la fin de mon fichier. Est ce possible et comment peut on faire? J'ais essayé avec EOF mais pas moyen. Merci d'avance


Tchao,
Niko

3 réponses

cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 20
3 juin 2005 à 15:39
Salut,

Si tu es en vb6 et que tu connais la longeur des enregistrements, tu peux essayer ça :

Const lg = 6 'la longueur de tes enregs
Dim buf As String * lg
Dim nbEnregs As Long
Dim i As Long


nbEnregs = FileLen("c:\temp\toto.txt") / lg


Open "c:\temp\toto.txt" For Random As #1 Len = lg


For i = nbEnregs To 1 Step -1
Get #1, i, buf
MsgBox buf 'ici, tu fais ton traitement
Next


Close #1

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
3
rastabegood Messages postés 5 Date d'inscription mercredi 9 février 2005 Statut Membre Dernière intervention 6 juin 2005
6 juin 2005 à 16:36
Merci bien mais en fait la solution était déja présente sur le forum désoél de t'avoir fait chercher. Il suffit de créer un tableau et d'inverser l'index index = index - 1
Voilou merci quand même.


Tchao,
Niko
0
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 20
6 juin 2005 à 19:08
Effectivement, le tableau est une solution possible si ton fichier n'est pas trop grand.

@+

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
0
Rejoignez-nous