wenn die datei nicht all zu groß ist kommst du am besten du liest sie komplett in einen String ein. dann suchst du mit
Pos nach Apfel. Anschließend suchst du mit
Pos nach birne. und dann den teil dazwischen als datei speichern.
Ein Beispiel:
Delphi-Quellcode:
procedure CutFilePart(AFilename: String);
var LStream: TStream;
LStr: String;
LPos1, LPos2: Integer;
begin
if FileExists(AFilename) then
begin
LStream := TFileStream.Create(AFilename, fmOpenRead);
setlength(LStr, LStream.Size);
LStream.Read(LStr[1], LStream.Size);
LStream.Free;
LPos1 := pos('apfel', LStr);
if LPos1 > 0 then
begin
LPos1 := LPos1 + length(apfel);
LPos2 := pos('biren', LStr);
if (LPos2 > 0) and (LPos2 > LPos1) then
begin
LStream := TFileStream.Create(AFilename, fmCreate);
LStream.Write(LStr[LPos1], LPos2 - LPos1);
LStream.Free;
end;
end;
end;
end;