Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako pročitati zadnju liniju TEXT filea

[es] :: Pascal / Delphi / Kylix :: Kako pročitati zadnju liniju TEXT filea

[ Pregleda: 2693 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

BobMarley
Vedran B
Bologna

Član broj: 148
Poruke: 1161
*.net.hinet.hr

ICQ: 61882680


+1 Profil

icon Kako pročitati zadnju liniju TEXT filea14.03.2004. u 21:30 - pre 244 meseci
probao sam ovako

Code:

var
   fileData : TStringList;
   saveLine : String;
   lines, i : Integer;
 begin
   fileData := TStringList.Create;        
   fileData.LoadFromFile('c:\blabla.txt');

   
   lines := fileData.Count;

   for i := lines-1 downto (lines div 2) do
   begin
     saveLine := fileData[lines-i-1];
     fileData[lines-i-1] := fileData[i];
     fileData[i] := saveLine;
   end;

   for i := 0 to lines-1 do
     ShowMessage(fileData[i]);
end;



samo to mi preokrece cjeli fajl naopako pa tek onda pročita prvu liniju, što mi ne odgovara jer se u pitanju zna naći ogroman fajl pa mi je ovo trošenje vremena+resursa.

Kako da otvoreni Text fajl seekam na zadnju liniju i pročitam ju ?
BobMarley (me) ...the legend
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Kako pročitati zadnju liniju TEXT filea14.03.2004. u 21:35 - pre 244 meseci
Za manje fajlove, cita red po red dok ne dodje do zadjeg.

Code:

function GetLastFileLine(FPath : String) : String;
var
  SFile : TextFile;
begin
  AssignFile(SFile, FPath);
  Reset(SFile);
    While Not Eof(SFile) Do
      ReadLn(SFile, result);
  CloseFile(SFile);
end;
 
Odgovor na temu

BobMarley
Vedran B
Bologna

Član broj: 148
Poruke: 1161
*.net.hinet.hr

ICQ: 61882680


+1 Profil

icon Re: Kako pročitati zadnju liniju TEXT filea14.03.2004. u 21:49 - pre 244 meseci
e nasao sam rješenje, bilo mi pred očima :)
zapravo glupost živa, ali eto možda se još netko izgubi kao ja .. evo kako :

Code:

var
   fileData : TStringList;
   lines : Integer;
 
begin
   fileData := TStringList.Create;        
   fileData.LoadFromFile('c:\blabla.txt');

   
   lines := fileData.Count;
   
     ShowMessage(fileData[lines-1]);
end;




eto :)
BobMarley (me) ...the legend
 
Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
80.93.233.*



+62 Profil

icon Re: Kako pročitati zadnju liniju TEXT filea17.03.2004. u 14:13 - pre 244 meseci
Lose...
Ukratko, otvoris tvoj text fajl kao BINARY fajl. Zatim ga pretrazujes unazad (Seek), pocev od kraja (preskocis EOF karakter i #$D#$A za zadnju liniju). Trazis karaktere za kraj pretposlednje linije (#$D#$A). Cim ih nadjes, zavrsio si; od te pozicije pa do kraja fajla upravo imas POSLEDNJU liniju.

Rajko
 
Odgovor na temu

vladab
Vladimir Bašanović
Beograd

Član broj: 9512
Poruke: 498
*.beotel.net



Profil

icon Re: Kako pročitati zadnju liniju TEXT filea04.04.2004. u 13:24 - pre 244 meseci
LJudi, kako da upisem nešto u npr 5. liniju (text) fajla, a da ne izmenim sadržaj ostalih linija (naravno 5. linija teba da sadrži samo poslednji upis)? Treba mi za .ini fajl u kome cu da cuvam neka podesavanja.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kako pročitati zadnju liniju TEXT filea

[ Pregleda: 2693 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.