---

Hvordan finder jeg udaf hvor mange antal linjer der er i en tekst fil?

--
Regards
Jonathan
www.cpuid.dk

---

"jonathan" <dsl41894@vip.cybercity.dk> skrev i en meddelelse
news:arpvt5$2ost$1@news.cybercity.dk...
> Hvordan finder jeg udaf hvor mange antal linjer der er i en tekst fil?

Jeg tror desværre kun der er den 'hårde' måde, dvs. at du selv tæller
dem. Noget i retning af dette (ikke testet):

i := 0;
while not eof(tekstfil) do
begin
readln(tekstfil);
inc(i);
end;

Test det for en sikkerheds skyld for grænsetilfælde, f.eks. hvis du har
en tom fil eller en med kun én linje. NB: Du skal selvfølgelig huske at
assigne og åbne (reset) filen, men det skulle forhåbentlig være let nok.

--
M.v.h.
Olav
http://www.experit.dk
Fjern intet for at skrive til mig

---

var
t : TStrings;
AntalLinjer : Integer;
begin
t := TStrings.Create;
t.LoadFromFile('c:\minfil.txt');
AntalLinjer := t.Count;
t.free;
end;

Dette er en af metoderne jeg bruger. Er filen kæmpe stor, tager det tid.

Mvh.
Peter Vrist



"jonathan" <dsl41894@vip.cybercity.dk> skrev i en meddelelse
news:arpvt5$2ost$1@news.cybercity.dk...
> Hvordan finder jeg udaf hvor mange antal linjer der er i en tekst fil?
>
> --
> Regards
> Jonathan
> www.cpuid.dk
>
>

---

Mange tak.

--
Regards
Jonathan
www.cpuid.dk
"Peter Vrist" <peter.vrist@mail.dk> wrote in message
news:3de0ac5f$0$146$edfadb0f@dread16.news.tele.dk...
> var
> t : TStrings;
> AntalLinjer : Integer;
> begin
> t := TStrings.Create;
> t.LoadFromFile('c:\minfil.txt');
> AntalLinjer := t.Count;
> t.free;
> end;
>
> Dette er en af metoderne jeg bruger. Er filen kæmpe stor, tager det tid.
>
> Mvh.
> Peter Vrist
>
>
>
> "jonathan" <dsl41894@vip.cybercity.dk> skrev i en meddelelse
> news:arpvt5$2ost$1@news.cybercity.dk...
> > Hvordan finder jeg udaf hvor mange antal linjer der er i en tekst fil?
> >
> > --
> > Regards
> > Jonathan
> > www.cpuid.dk
> >
> >
>
>

---

Denne metode kan ikke anbefales, da den indlæser filen i memory. Benyt i
stedet den metode, som Olav beskrev.

Generelt bør man undlade at bruge memory, hvis man kan lade være...

Lars Dybdahl.

Peter Vrist wrote:

> var
> t : TStrings;
> AntalLinjer : Integer;
> begin
> t := TStrings.Create;
> t.LoadFromFile('c:\minfil.txt');
> AntalLinjer := t.Count;
> t.free;
> end;

--

Dybdahl Engineering: http://dybdahl.dk/
Delphi brugergruppen DAPUG: http://dapug.dk/

---

Det er også Olavs metode jeg bruger og det virker fint.

--
Regards
Jonathan
www.cpuid.dk
"Lars B. Dybdahl" <Lars@dybdahl.dk> wrote in message
news:3de16d03$0$188$edfadb0f@dread13.news.tele.dk...
> Denne metode kan ikke anbefales, da den indlæser filen i memory. Benyt i
> stedet den metode, som Olav beskrev.
>
> Generelt bør man undlade at bruge memory, hvis man kan lade være...
>

---

Hvorfor det?

LoadFromFile bruger TFileStream som er hurtigere end File. Med hensyn til
RAM, er der er som regel rigeligt af det og med Free er der ryddet pænt op.

Hilsen

Peter Vrist


"Lars B. Dybdahl" <Lars@dybdahl.dk> skrev i en meddelelse
news:3de16d03$0$188$edfadb0f@dread13.news.tele.dk...
> Denne metode kan ikke anbefales, da den indlæser filen i memory. Benyt i
> stedet den metode, som Olav beskrev.
>
> Generelt bør man undlade at bruge memory, hvis man kan lade være...
>
> Lars Dybdahl.
>
> Peter Vrist wrote:
>
> > var
> > t : TStrings;
> > AntalLinjer : Integer;
> > begin
> > t := TStrings.Create;
> > t.LoadFromFile('c:\minfil.txt');
> > AntalLinjer := t.Count;
> > t.free;
> > end;
>
> --
>
> Dybdahl Engineering: http://dybdahl.dk/
> Delphi brugergruppen DAPUG: http://dapug.dk/
>

---

"Peter Vrist" <peter.vrist@mail.dk> wrote in message
news:3de24ef6$0$242$edfadb0f@dread16.news.tele.dk...
> Hvorfor det?
>
> LoadFromFile bruger TFileStream som er hurtigere end File. Med hensyn
til
> RAM, er der er som regel rigeligt af det og med Free er der ryddet
pænt op.

Som regel er netop ikke altid. Med File er der altid nok RAM.

---

"Lars B. Dybdahl" <Lars@dybdahl.dk> wrote in message news:<3de16d03$0$188$edfadb0f@dread13.news.tele.dk>...
> Denne metode kan ikke anbefales, da den indlæser filen i memory. Benyt i
> stedet den metode, som Olav beskrev.

Olavs eksempel indlæser da også filen - den gemmer blot ikke indholdet
i et objekt. Olavs metode er endvidere langsommere end indlæsning af
filen vha TStrings/TStringList...Desværre *er* man pisket til at læse
indholdet af filen og som minimum tælle mængden af linebreaks -
filesize og seek fungerer svjh ikke "specielt" fremragende i relation
til tekstfiler

> Generelt bør man undlade at bruge memory, hvis man kan lade være...

Interessant synspunkt. Jeg ville mene det stik modsatte - ram er trods
alt nemmere at håndtere og tilmed endda temmelig meget hurtigere, dvs
generelt mere taknemmeligt. Men undlader man notorisk ikke at rydde op
efter sig er det naturligvis en meget god tommelfingerregel )

mvh
David A. D. Konrad