Wie macht man das am dümmsten?

Vorweg, die Files sind >5MB und haben Viele viele Zeilen

Bye

TStringList.LoadFromFile und TStringList.Count dürften dir hier sehr viel weiterhelfen

Soll nur die Anzahl der Zeilen ermittelt werden oder auch danach der Inhalt der Datei (z.B. in TStringList) verfügbar sein?

Öhm nicht wirklich, dass dauert ewig

Das hatte ich vorher so...

bye


Edit: Nur die Anzahl der Zeilen!

Zitat von Kedariodakon:

Edit: Nur die Anzahl der Zeilen!

DU wirst nicht darum kommen die komplette Datei zu lesen.
Aber Du brauchst Dir die Daten ja nicht merken (im Speicher)
Also Datei komplett lesen und nach CR suchen (#13).
Ausprobieren ob Traditionell (read(f,x)) oder Streams schneller sind.

Viel Spaß

Dann solltest Du die Datei Binär durchlaufen

1, Öffnen mit TFileStream
2a, Falls die Datei nicht >> 5 MB wird: Komplett in einen Schwung einlesen
2b, Falls Datei >> 5 MB häbchenweise einlesen, damit Windows nicht das Auslagern von Speicher anfängt
3, Per Speichervergleich nach CRLF-Kombinationen suchen und diese Zählen.

TStringList mach sowas ähnliches, hat jedoch den Nachteil das es noch viel mehr Aktionen durchführt, die du fürs reine Zählen nciht benötigst

Werd ich versuchen

Thx


Bye

Hmm... so?

zusammenfalten · markieren

Delphi-Quellcode:

var
  Content: string;
  I, LineCount: Integer;
  D: DWORD;
begin
  Content := (Inhalt der Datei);
  LineCount := 0; // Zeilenzahl der Datei
  for I := 0 to Length(Content) div sizeof(D) do
  begin
    Move(Content[I*sizeof(D)+1], D, sizeof(D));
    D := D AND $0D0D0D0D; // Maske. Kommt das Zeichen #$0D (#13) vor, fängt eine neue Zeile an
    if D <> 0 then
    begin
      if D AND $0D = $0D then Inc(LineCount);
      if D AND $0D00 = $0D00 then Inc(LineCount);
      if D AND $0D0000 = $0D0000 then Inc(LineCount);
      if D AND $0D000000 = $0D000000 then Inc(LineCount);
    end;
  end;
end;

Zitat von Kedariodakon:

Werd ich versuchen

Hab mal ein Bsp. von Luckie als Grundlage genommen:
( http://www.delphipraxis.net/internal...=295199#295199 )

Eine Datei >2,5 MByte brauchte bei mir 7 Sek.
(Keine Ahnung wie viel das schneller wird, wenn der Buffer vergrößert wird)

zusammenfalten · markieren

Delphi-Quellcode:

function CountCR(const AFileName: string):Integer;
var
  Fs: TFileStream;
  BytesRead: Integer;
  Buffer: char;
  CR: Integer;
begin
  CR := 0;
  Fs := TFileStream.Create(AFileName, fmOpenRead + fmShareDenyNone);
  try
    repeat
      BytesRead := Fs.Read(Buffer, Length(Buffer));
       if Buffer = #13 then Inc(CR)
     until BytesRead < sizeof(Buffer);
  finally
    Fs.Free;
    Result := CR;
  end;
end;

Mal ganz einfach:

zusammenfalten · markieren

Delphi-Quellcode:

function getlength(const FileName: TFileName)
var datei:textfile
    str:string;
begin
  result =0;
  assignfile(datei, FileName);
  reset(datei);
  while not eof(datei) do
  begin
    readln(datei, str);
    inc(result);
  end;
end;