Hola de nuevo, también lo puedes hacer de esta forma, no lo estoy escribiendo de cabeza pero si de memoria.
Código Delphi
[-]
var
slFile : TStringList; slFileNuevo : TStringList; FileName : String;
NumeroFile : Integer;
flgInicio, flgFin : Boolean; begin
slFile := TStringList.Create;
slFileNuevo := TStringList.Create;
if OpenDialog.Execute then
begin
FileName := OpenDialog.FileName;
slFile.LoadFromFile(FileName);
flgInicio := False;
flgFin := False;
NumeroFile := 1;
for i:=0 to slFile.Count-1 do
begin
if slFile[i]='*Inicio' then
flgInicio := True;
if (slFile[i]='*Fin' then
flgFin := True;
if (flgInicio=True) and (flgFin=False) then slFileNuevo.Add(slFile[i+1]);
if flgFin=True then begin
slFileNuevo.SaveToFile('NombreArchivo'+NumeroFile+'.txt');
flgInicio := False;
flgFin := False;
Inc(NumeroFile);
end; end; .................
.................
end;
Saluditos