lecture inverse d'un fichier .txt

Bonjour Celine,

Je n'ai pas trouvé de moyen de lire à l'envers. Ceci étant, avec la méthode
microsoft scripting object (à déclarer dans outilreferences avant son
utilisation), on peut lire un fichier texte ligne par ligne.

Donc rien n'empeche de :

- reperer ta ligne 'Line Input'
- remonter la lecture ligne par ligne pour chercher les infos

De cette manière, tu devrais arriver à tes fins sans meme ouvrir le fichier
texte

Poulpor

Les informations sur cette méthode à cet endroit :

http://www.self-access.com/access/index.php?url=%2Faccess%2Fdossiers%2Findex.php

bonjour,

j'aurais besoin d'aide concernant la lecture d'un fichier .txt depuis
un classeur excel

Après ouverture dudit fichier .txt,
je recherche le mot qui m'intéresse (Line Input) et je releve le
numéro de ligne où il se trouve

Mais je dois ensuite parcourir le fichier text à l'envers depuis cette
ligne
pour relever ensuite un certain nombre d'informations qui
m'intéressent.

J'aimerais savoir si une fonction ou procédure me permet de parcourir
le fichier à l'envers.

Merci beaucoup

Bonjour Céline,

Pourquoi ne pas stocker le contenu en mémoire ?
C'est que je viens d'utiliser pour faire des stats sur les malpolitus
via CDO :o)

Ca pourrait te donner quelque chose comme :

Sub test()
dim tablo: ReDim tablo(0)

'nom du fichier texte
fil = thisworkbook.path & "temp.txt"

'texte à rechercher
texte = "toto"

'balise
tag = false

'ouvrir le fichier
Open fil For Input As #1

'boucler tant que le fichier n'est pas fini ou que balise fausse
Do While Not EOF(1) or tag = true

'redonner la main à Windows
doevents

'allonger le tableau en mémoire
ReDim Preserve tablo(UBound(tablo) + 1)

'lire la ligne
Line Input #1, ligne

'inscrire la ligne à la fin du tableau
tablo(UBound(tablo)) = ligne

'si ligne contient le texte cherché, basculer balise
if instr(1,ligne,texte)>0 then tag = true

'retour de boucle
Loop

'une fois ici, fermer le fichier
close #1

'reste à lire le tableau en sens inverse
for a = ubound(tablo) to 1 step -1
msgbox tablo(a)
next a

end sub


@+
FxM

bonjour,

j'aurais besoin d'aide concernant la lecture d'un fichier .txt depuis
un classeur excel

Après ouverture dudit fichier .txt,
je recherche le mot qui m'intéresse (Line Input) et je releve le
numéro de ligne où il se trouve

Mais je dois ensuite parcourir le fichier text à l'envers depuis cette
ligne
pour relever ensuite un certain nombre d'informations qui
m'intéressent.

J'aimerais savoir si une fonction ou procédure me permet de parcourir
le fichier à l'envers.

Merci beaucoup

Bonjour à tous deux,
Merci pour vos conseils,
je pense que je vais rester sur la proposition de FxM, solution de
facilité car déjà programmée... ;))
Par contre, merci pour le lien vers le site concernant access parce
qu'il pourra certainement me servir à l'avenir !
bonne journée, & bonne semaine
Céline