Textdatei bei 100 MB Truncaten

[BUG]

Zitat von af99:

@BUG: wie finde ich denn die Stelle bei genau 100MB?

So: FileStream.Position := 1000000; . Du möchtest allerdings ein Stück nach vorne, um von da aus bis 1MB zu lesen.

[af99]

ok, soweit bin ich nun

Delphi-Quellcode:

const
  MaxLen = 1024;
var
  FileStream : TFileStream;
  Writer: TStreamWriter;
  Reader: TStreamReader;
  buffer: string;
  posCRLF: Integer;

begin
  try
    FileStream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'log.txt', fmopenRead);//fmOpenRead or fmShareDenyWrite);
    Writer := TStreamWriter.Create(FileStream);
    Reader := TStreamReader.Create(FileStream);

    filestream.Position := 999900;

    buffer := Reader.ReadToEnd;

    posCRLF := pos('#13#10' , buffer);

    ShowMessage('pos: ' + inttostr(posCRLF));

    ShowMessage('buffer: ' + buffer);

    if FileStream.Size > 1000000 then
    begin
      FileStream.Size := 1000000;
    end;
  finally
    Writer.Free;
    Reader.Free;
    FileStream.Free;
  end;
end;

Mein pos mit dem ich dachte das ich das carriage return finden kann findet es aber nicht
Wie kann ich denn das carriage return finden?

Gruss
Andreas

[Klaus01]

Hallo,

das CRLF wird in der Datei nicht als String '#13#10' enthalten sein.
Die entsprechenden Zeichen musst Du suchen char(13).

Grüße
Klaus

[Mavarik]

posCRLF := pos(#13#10 , buffer); Unter der Voraussetzung, dass in der Textdatei überhaupt #13#10 steht und nicht nur #13 oder nur #10 oder ganz komisch #10#13

[Capstone]

photoshop_CC_x64.rar.txt hat übrigens ~2600 MB ...

mußte also 26 x die Text-Datei kürzen

** hust **

[af99]

Irgendwie bekomme ich es nicht hin genau bis zum CR LF abzuschneiden. So habe ich es versucht

Delphi-Quellcode:

var
  FileStream : TFileStream;
  Reader: TStreamReader;
  buffer: string;
  posCRLF: Integer;

begin
  try
    FileStream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'log.txt', fmopenreadwrite);
    Reader := TStreamReader.Create(FileStream);

    if FileStream.Size > 1000000 then
      FileStream.Size := 1000000;
    filestream.Position := 999900;
    buffer := Reader.ReadToEnd;

    FileStream.Size := 999900 + SizeOf(copy(buffer, 1, pos(char(13) , buffer)));
  finally
    Reader.Free;
    FileStream.Free;
  end;
end;

Er schneidet aber immer zu viel ab.
Weis einer wie ich ich es richtig berechnen muss?

Gruss
Andreas

[af99]

ich hab nochmal nachgeschaut

FileStream.Size gibt die Größe in Bytes an
SizeOf() gibt auch die Größe in Bytes an

Wenn ich also das mache
FileStream.Size := 999900 + SizeOf(copy(buffer, 1, pos(char(13) , buffer)))
dann sollte ich doch am Ende der Zeile landen.

Ist aber leider nicht so?!

[p80286]

mit pos findest Du immer das erste Auftreten eines Strings/Zeichen. Du willst aber das letzte.
wie wäre es mit so etwas z.B.

Delphi-Quellcode:

i:=length(buffer);
repeat
  dec(i,1);
until (i<0) or buffer[i]=$0D;
if buffer[i]=$0D then.......

Gruß
K-H

P.S.
Mit anderen worten stand das schon in #3