[es] - Parce koda za brojanje linija u text datoteci

overdose

Član broj: 33563
Poruke: 51
*.cvz.es

Profil

Parce koda za brojanje linija u text datoteci

^{10.09.2004. u 17:35}

Moje nesrecno resenje je:

Code:

n:=0;
  while not eof(ulaz) do
    begin
      readln(ulaz);
      n:=n+1
    end;

n dobije broj linija, ali se program prekine zbog greske. Izgleda zbog readln u poslednjoj iteraciji, jer 'sledeca linija' je eof. Nesto sam zaglupeo, pa ako moze neko da ispise par linija ;) Bacio sam i kod ako nekog zanima zasto mi treba ovo.

Prikačeni fajlovi

jun_02.pas - 2.41k

^{10.09.2004. u 17:35}

neor
Nenad Orlovic

Član broj: 26828
Poruke: 74
*.ftn.ns.ac.yu

Profil

Re: Parce koda za brojanje linija u text datoteci

^{10.09.2004. u 18:08}

Gresku dobijes verovatno zato sto poslednja linija u fajlu nema oznaku za kraj linije.
Taj slucaj moras da predvidis.
Ako je u pitanju TP onda mozes da iskljucis IO greske sa {$I-} i proveravas IOResult posle svake operacija nad fajlom kako bi uhvatio gresku i sam obradio taj slucaj.

Drugi nacin je da ne koristis readln vec obican read i trazis i EOL i EOF.

^{10.09.2004. u 18:08}

reiser
Vranje

Član broj: 7895
Poruke: 1892
195.252.85.*

Profil

Re: Parce koda za brojanje linija u text datoteci

^{10.09.2004. u 19:15}

Meni ovo tvoje resenje dobro radi ??? Probao sam sve kombinacije #13 i #10 na kraju fajla (i kombinaciju bez njih), i program ne izbacuje gresku.

Inace, vidi i ovo, mozda ti pomogne :

Code:

var
  SFile : Text;
  n     : Integer;
  Buf   : Array[1..2048] of Char;
  NRead : Integer;
begin
  n := 0;
  Assign(SFile, 'C:\1.txt');
  Reset(SFile, 1);
    repeat
      BlockRead(SFile, Buf, SizeOf(Buf), NRead);
      While Pos(#13#10, Buf) > 0 Do
        If Pos(#13#10, Buf) > 0 Then
        Begin
          Inc(n);
          Buf[Pos(#13#10, Buf)] := '0';
        End;
    until NRead <> SizeOf(Buf);
    If Buf[NRead] <> #13#10 Then
      Inc(n);
  Close(SFile);

_{[Ovu poruku je menjao Marko Paunovic dana 11.09.2004. u 12:06 GMT]}

^{10.09.2004. u 19:15}

morlic
Milos Orlic
Beograd

Moderator
Član broj: 6081
Poruke: 729
*.254.EUnet.yu

Profil

Re: Parce koda za brojanje linija u text datoteci

^{10.09.2004. u 21:42}

Evo koda koji je kraci ako nista drugo :)

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  With TStringList.Create do
    try
      LoadFromFile('c:\fajl.txt');
      ShowMessageFmt('Broj linija %d', [Count])
    finally
      Free;
    end;
end;

^{10.09.2004. u 21:42}

reiser
Vranje

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

Profil

Re: Parce koda za brojanje linija u text datoteci

^{10.09.2004. u 22:47}

TStringList klasa ne postoji u Pascalu ako se ne varam...

^{10.09.2004. u 22:47}

morlic
Milos Orlic
Beograd

Moderator
Član broj: 6081
Poruke: 729
*.223.EUnet.yu

Profil

Re: Parce koda za brojanje linija u text datoteci

^{11.09.2004. u 07:33}

Pa krajnje je vreme da se unapredi :), a koliko se secam nema ni AssignFile procedure.

^{11.09.2004. u 07:33}

overdose

Član broj: 33563
Poruke: 51
*.cvz.es

Profil

Re: Parce koda za brojanje linija u text datoteci

^{11.09.2004. u 08:56}

Citat:

Gresku dobijes verovatno zato sto poslednja linija u fajlu nema oznaku za kraj linije. Taj slucaj moras da predvidis.

Nije to u pitanju. Udario sam <ENTER> i posle poslednje linije. Prikacio sam ulaznu datoteku uz poruku.

Citat:

Drugi nacin je da ne koristis readln vec obican read i trazis i EOL i EOF.

Hm, probao sam i ovu kombinaciju (while u while-u i citanje broj po broj), ali dobijam isti problem. Evo tacnog opisa greske:

./jun_02: attempt to read past end of file `jun_02_ulaz.txt' (error #454 at 804a02b)

Uzgred budi receno, moram da se koristim standardnim Pascal-om !

OvEr

Prikačeni fajlovi

jun_02_ulaz.txt - 0.03k

^{11.09.2004. u 08:56}

neor
Nenad Orlovic

Član broj: 26828
Poruke: 74
*.metrohive.net

Profil

Re: Parce koda za brojanje linija u text datoteci

^{11.09.2004. u 09:19}

Ovaj tvoj kod radi na Delphiju a nemam trenutno ni jedan drugi Pascal instaliran.
Probaj da stavis i neku string varijablu u readln a u slucaju da koristis read obavezno stavi char.

^{11.09.2004. u 09:19}

reiser
Vranje

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

Profil

Re: Parce koda za brojanje linija u text datoteci

^{11.09.2004. u 09:48}

Citat:

morlic: Pa krajnje je vreme da se unapredi

, a koliko se secam nema ni AssignFile procedure.

Moja greska za AssignFile, evo ispravio sam u gornjoj poruci

^{11.09.2004. u 09:48}

reiser
Vranje

Član broj: 7895
Poruke: 1892
195.252.85.*

Profil

Re: Parce koda za brojanje linija u text datoteci

^{11.09.2004. u 10:07}

Inace, mislim da ovaj kod zavrsava posao :

Code:

var
  SFile : Text;
  n     : Integer;
  FLine : String;
  C1    : Integer;
  Added : Boolean;
begin
  n := 0;
  Assign(SFile, 'C:\1.txt');
  Reset(SFile);
    While Not Eof(SFile) Do
    Begin
      ReadLn(SFile, FLine);
      Added := FALSE;
      For C1 := 1 to Length(FLine) Do
        If (FLine[C1] = #10) or
           (FLine[C1] = #13) THen
        Begin
          Added := TRUE;
          Inc(n);
        End;
      If not Added Then
        Inc(n);
    End;
  Close(SFile);
  WriteLn(n);
  ReadLn;

^{11.09.2004. u 10:07}

Vanja Petreski

Član broj: 315
Poruke: 1559
*.dialup.sezampro.yu.

Profil

Re: Parce koda za brojanje linija u text datoteci

^{31.01.2005. u 10:09}

Code:

n:=0;
while not eof(ulaz) do
  begin
    readln(ulaz);
    n:=n+1
  end;
{* !!! *}
close(ulaz);
reset(ulaz);

^{31.01.2005. u 10:09}

milan_kol
Beograd

Član broj: 6463
Poruke: 96
*.verat.net.

Profil

Re: Parce koda za brojanje linija u text datoteci

^{03.02.2005. u 22:24}

Moras posle brojanja linija opet resetovati fajl, jer pokazivac stoji na kraju fajla u tom trenutku, i bilo sta da pokusas iza toga da uradis bez reset() nece ti raditi!

a inace taj kod, prvi sto si stavio, bi trebao da radi posao...

^{03.02.2005. u 22:24}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949

Profil

Re: Parce koda za brojanje linija u text datoteci

^{03.02.2005. u 23:04}

Ne secam se tacno svih komandi za rad sa fajlovima u TP, ali znam da neke funkcije ne mogu da se koriste za Text tip fajlova. Mozda Eof za Text tip radi (ili mozda ne radi uopste) nekako drugacije?
Sve u svemu ako stvarno nece sa Eof, slobodno koristi {$I-}. To je takodje cist Pascal.

Code:
{$I-}
var
  F: Text;
  N: Integer;
begin
  N := 0;
  Assign(F, 'NekiFajl.txt');
  Reset(F);
  While IOResult = 0 do
  begin
    ReadLn(F);
    if IOResult = 0 then Inc(N);
  end;
  Close(F);
  WriteLn('Broj linija je:',N);
  ReadLn;
end;

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{03.02.2005. u 23:04}