lecture txt a l'enversRésolu

Question

bonjour,

Je voudrais soir si c'est possible de lire un fichier.txt a l'envers c'est a dire en commencant par la fin.
merci d'avance

BernieNoel68 · Accepted Answer

Je corrige mon précedant post où était mélé des erreurs et des confustions avec Borland C++ Builder:

------------------------------
var list : TStringList;
    i    : integer ;
begin
  list := TStringList.Create;
  list.LoadFromFile('C:\MonFichier.txt');
  
  for i :=(list.Count-1) downto 0 do
    Memo1.Lines.Add( list.Strings[i]);

  list.Free;

end ;
--------------------------------

En esperant avoir pu t'aidé!

Cirec · Answer

Salut,

oui c'est possible mais un peut plus de précisions ne serait pas un luxe !!!

Lire un fichier depuis la fin mais comment ?

Ex: Le de fichier Txt:
"oui c'est possible mais un peut plus de précisions ne serait pas un luxe"

Tu veux le lire 
Comme ça : exul nu
Ou :  Luxe un
Ou : un luxe

 
@+
Cirec

<hr siz="" />

cs_cantador · Answer

L'arabe et l'hébreu s'écrivent de droite à gauche..
ne serait ce pas la raison ou le début d'un autre verlant ?

cantador

cs_cantador · Answer

sans le 't' à verlan..

cantador

jerome57440 · Answer

JE VOUDRAIS LE LIRE EN COMMENCA PAR LA DERNIERE LIGNE PUIS REMONTER MAIS LES LIGNES NORMALEMENT PAS EN VERLAN

cs_cantador · Answer

Dernière ligne..
 je pense que c'est plutôt le dernier caractère de la ligne..
Pour reprendre l'exemple de cirec
c'est donc exul nu
et tu veux à l'arrivée lire un luxe

C'est bien çà ?

cantador

BernieNoel68 · Answer

Tu veux lire les lignes d'un fichier texte dans de la derniere a la premiere?

Un exemple avec un Memo qui contiendra le fichier dans l'ordre inverse :

------------------------------
var list : TStringList;
    i    : integer ;
begin
  list := TStringList.Create;
  list.LoadFromFile('C:\MonFichier.txt');
  
  for i= (list->Count-1) downto 0 do
    Memo1.Lines.Add( list.Strings[i];

  list.Free;

end ;
--------------------------------

Je n'ai pas Delphi sous la main, donc il peut y avoir des erreurs de synthaxe. Mais l'idée est là!

jerome57440 · Answer

c bon jmen suis sortie merci de vos conseils les gars
continuez comme ca vous faite du bon boulot

cs_cantador · Answer

bon ben la solution on saura pas..
A moins que ce soit un amalgame de toutes les idées émises.

A la revoyure jerome57440, 
si tu passes dans le coin fais nous un p'tit coucou.

cantador

f0xi · Answer

pour lire n'importe quoi a l'envers :

IMin, IMax, I : integer

IMax = Length(String) // High(Tableau) // List.Count
IMin = 1 {string} // Low(Tableau) // 0 {list}
for I := IMin to IMax do
   Lecture := nimportequoi[IMax - I]

et pour une lecture rotative

  Lecture := nimportequoi[(index mod IMax) + IMin]

<hr size="2" width="100%" />

Lecture txt a l'envers

10 réponses

Votre réponse

Discussions similaires