Srodne teme

27.10.2003. end of memo-a
26.01.2004. ScrollBars-C++.net
21.04.2004. kraj text file u visual c#
03.05.2004. Content-Length of the file embedded in file itself
18.09.2004. Otvaranje Filea u javi
23.02.2006. brisanje linija filea
17.02.2005. Izčitati cijel sadrzaj iz *.txt filea - POMOZITE..
20.03.2005. Ciklus "Kako čitati"
23.05.2005. kako ne odsjeći zadnju riječ sa strrpos ako tex..

Navigacija

Brisanje liste

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: 1045 \| Odgovora: 4 ]	Postavi temu Odgovori

Autor

BobMarley
Vedran B
Bologna

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

ICQ: 61882680

Profil

Kako pročitati zadnju liniju TEXT filea

^{14.03.2004. u 21:30}

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

^{14.03.2004. u 21:30}

reiser
Beograd

Član broj: 7895
Poruke: 1903
*.beotel.net

Profil

Re: Kako pročitati zadnju liniju TEXT filea

^{14.03.2004. u 21:35}

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;

^{14.03.2004. u 21:35}

BobMarley
Vedran B
Bologna

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

ICQ: 61882680

Profil

Re: Kako pročitati zadnju liniju TEXT filea

^{14.03.2004. u 21:49}

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

^{14.03.2004. u 21:49}

Rapaic Rajko
programer, Grappolo
Bgd

Član broj: 4105
Poruke: 412
80.93.233.*

Profil

Re: Kako pročitati zadnju liniju TEXT filea

^{17.03.2004. u 14:13}

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

^{17.03.2004. u 14:13}

vladab
Vladimir Bašanović
Beograd

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

Profil

Re: Kako pročitati zadnju liniju TEXT filea

^{04.04.2004. u 13:24}

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.

Seven deadly sins
Seven ways to win
Seven holy paths to hell
And your trip begins

Seven downward slopes
Seven bloodied hopes
Seven are your burning fires,
Seven your desires...

^{04.04.2004. u 13:24}

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

[ Pregleda: 1045 | Odgovora: 4 ]

Srodne teme

27.10.2003. end of memo-a
26.01.2004. ScrollBars-C++.net
21.04.2004. kraj text file u visual c#
03.05.2004. Content-Length of the file embedded in file itself
18.09.2004. Otvaranje Filea u javi
23.02.2006. brisanje linija filea
17.02.2005. Izčitati cijel sadrzaj iz *.txt filea - POMOZITE..
20.03.2005. Ciklus "Kako čitati"
23.05.2005. kako ne odsjeći zadnju riječ sa strrpos ako tex..

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.