Seitenumbrüche in Texdatei zählen

[Beate Kern]

Hallo,

wie kann ich in einer Textdatei alle Seitenumbrüche zählen?

Danke im Vorraus
Beate Kern

[Ulrich Berger]

Hallo Beate,

um diese Frage beantworten zu können, müßte man zunächst etwas mehr über die Textdatei wissen: wie ist diese aufgebaut, wie sehen die Seitenumbrüche aus?

Zur generellen Vorgehensweise: man könnte die Datei in eine Stringliste einlesen und dann Zeile für Zeile die Umbrüche durchzählen.

Viele Grüße

Ul

[Beate Kern]

Hallo,
ich habe gerade etwas gefunden und für mich angepasst.
Das müsste doch so richtig sein.

procedure TForm1.Button1Click(Sender: TObject);
Var FS: TFileStream;
Buffer: Array of Byte;
I,Z: Integer;

Begin
z:=0;
Try
{Datei öffnen}
FS := TFileStream.Create('C:\Test.txt', fmOpenReadWrite);

{Speicher für Buffer allozieren}
SetLength(Buffer,FS.Size);

{Daten einlesen}
FS.Read(Buffer[0],Length(Buffer));

{Bytefolge suchen (Seitenumbruch)}
For I := 0 to Length(Buffer) - 3 do
If (Buffer[I] = $0C)
Then Begin
Inc(Z);
End;
FS.Free;

ShowMessage('Anzahl: '+IntToStr(Z));

Except
On EFOpenError do ShowMessage('Datei konnte nicht geöffnet werden');
Else ShowMessage('Unbekannter Fehler');
End;
End;

CU Be