Código Delphi [-]

void Comenzar()
{
       TStringList ls;
       int numeroarchivo;
       char *nombrearchivo = 'nombre';

       ls = TStringList.Crear(nulo);
       ls->CargarArchivo(nombrearchivo);

       for (unsigned char i;i <= ls.items.Count - 1;i++)
       {
            if (ls[i] = marcador_inicio)
            {
                TStringList ls_g = TStringList.Create(nill);

                while !(i>ls->items.Count || ls.[++i] = marcardor_fin)
                     ls_g.Add(ls[i]);                

                ls_g.GrabaraArchivo(nombre_archivo + astring(numeroarchivo) + ext);
                ls_g.Liberar;                      
                numeroarchivo++;
            }
       }
       ls.Liberar;
}

Código Delphi [-]
 
funcion Grabar
{
           ls     StringList // stringlist donde cargaremos el archivo a analizar
           ls_g  StringList // stringlist que usaremos para grabar los trozos
 
           ls := TStringList.Create
           ls_g := TStringList.Create
 
           ls.LoadFromFile(nombre_de_archivo); // cargamos archivo
 
           i = 0
           num_archivo = 0
 
           mientras i menor que ls.Numero_de_lineas haz
             si ls[i] = '*inicio' entonces
             {
                  num_archivo = num_archivo + 1
                  ls_g.Clear
                  s = ls[i]
                  mientras (s diferente de '*final') y (i menor que ls.Count) haz
                  {
                      ls_g.Add(ls[i]
                      i = i + 1
                      s = ls[i]
                  }
                  ls_g.SaveToFile(nombre_archivo + inttostr(num_archivo) + '.ext');
              }
              si no i = i + 1
 
            ls_g.Libera // liberamos los objetos TStringList creados
            ls.free      //
}

Código Delphi [-]
var
  ls    : TStringList; // stringlist donde cargaremos el archivo a analizar
  ls_g : TStringList; // stringlist que usaremos para grabar los trozos
  FileName : String;
begin
  ls := TStringList.Create
  ls_g := TStringList.Create
  if OpenDialog.Execute then
   begin
     FileName := OpenDialog.FileName;
 
     ls.LoadFromFile(FileName); // cargamos archivo
     
     .........................
     .........................
   end;

Código Delphi [-]
var
  slFile    : TStringList; // stringlist donde cargaremos el archivo a analizar
  slFileNuevo  : TStringList; // stringlist que usaremos para grabar los trozos
  FileName   : String;
  NumeroFile : Integer; 
  flgInicio, flgFin : Boolean; //Banderitas que nos serviran para saber cuando tenemos un inicio o fin
begin
  slFile := TStringList.Create;
  slFileNuevo := TStringList.Create;
  if OpenDialog.Execute then
   begin
     FileName := OpenDialog.FileName;
 
     slFile.LoadFromFile(FileName); // cargamos archivo
     
     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 //esto lo puedes simplificar, pero es solo para que se entienda
         slFileNuevo.Add(slFile[i+1]); //añadimos en el nuevo
 
        if  flgFin=True then //grabamos en el archivo
         begin
            slFileNuevo.SaveToFile('NombreArchivo'+NumeroFile+'.txt');
            flgInicio := False;
            flgFin := False;
            Inc(NumeroFile); 
         end;//if
      end;//for
      .................
      .................         
   end;

Código Delphi [-]
        ....
        if slFile[i]='*Inicio' then 
        begin
          flgInicio := True;
          continue;
        end;
 
        if (slFile[i]='*Fin' then
        begin
          flgFin := True;   
          continue;
        end;
        
        if (flgInicio=True) and (flgFin=False) then //esto lo puedes simplificar, pero es solo para que se entienda
         slFileNuevo.Add(slFile[i]); //añadimos en el nuevo
        ...

Código Delphi [-]
 if (flgInicio=True) and (flgFin=False) then //esto lo puedes simplificar, pero es solo para que se entienda
         slFileNuevo.Add(TrimLeft(StrScan(slFile[i],' '))); //añadimos en el nuevo

Código Delphi [-]
       ....
        if slFile[i]='*Inicio' then 
        begin
          flgInicio := True;
          continue;
        end;
 
        if (slFile[i]='*Fin' then
        begin
          flgFin := True;   
          continue;
        end;
        
        if (flgInicio=True) and (flgFin=False) then //esto lo puedes simplificar, pero es solo para que se entienda
        begin
               showmessage('Dentro del bucle...')
            slFileNuevo.Add(slFile[i]); //añadimos en el nuevo
        end;
        ...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
        ls,lg : TStringList;
        i, n ,r : longint;
        nm,ns : string;
begin
        if OpenDialog1.Execute then nm := OpenDialog1.Filename else exit; // cogemos nombre a cargar
        ls := TStringList.Create;  // creamos lista
        lg := TStringList.Create;  // creamos lista
        ls.LoadFromFile(nm); // cargamos fichero
        ns := ExtractFilePath(Application.Exename) + '\' + Edit1.Text; // preparamos nombre destino
        r := ls.Count; // numero lineas de fichero
        i := 0;
        n := 0;
        while i < r do 
        if Pos('*Node',ls[i]) <> 0 then // si se encuentra '*Node' en ls[i]...
        begin
          inc(i); // para saltar la linea con el node
          inc(n); // numero archivo
          while (Pos('*Element',ls[i]) = 0) and (i < r) do // mientras no se encuentra element y no se ha llegado al final
          begin
            lg.Add(Trim(strscan(PChar(TrimLeft(ls[i])),','))); // añadimos, eliminando la primera columna
            inc(i);
          end;
          lg.SavetoFile(ns + inttostr(n) + '.txt'); // se ha encontrado element o final, grabamos
        end
        else inc(i); // si no, seguimos
        ls.Free; // liberamos
        lg.Free;
end;

Código Delphi [-]
if slfile[i]= '*Node' then
begin
flginicio:=true;
continue;
end;
if Pos('*Element',slFile[i]) <> 0 then
begin
flgfin:=true;
continue;
end;