Ficheros texto

[ecfisa]

Hola Taburiente.

Código Delphi [-]
procedure GenerarArchivos(const Ruta: string; const Nombre: string);
var
  Origen, Destino: TextFile;
  Linea: string;
begin
  Assign(Origen,Ruta+Nombre);
  Reset(Origen);
  while not Eof(Origen) do
  begin
    Readln(Origen, Linea);
    if Pos('.afp',Linea) <> 0 then
    begin
      // poner extensión .txt
      Assign(Destino,Ruta+Copy(ExtractFileName(Linea),1,Length(Linea)-3)+'TXT');
      Rewrite(Destino);
      Writeln(Destino,'CODE_LIST JAZZTEL.PAGO11M1'+Linea);
      Writeln(Destino,'#CMD app load_job_conf_file 50');    
      Writeln(Destino,'------------------------------------');
      Readln(Origen, Linea);
      while (Pos('.afp',Linea)=0)and(Pos('-',Linea)=0) do
      begin
        Writeln(Destino,Linea);
        Readln(Origen, Linea);
      end;
      Writeln(Destino,'-------------------------------------');
      CloseFile(Destino);
    end;
  end;
  CloseFile(Origen);
end;

Hubo datos que agregué a mano por que no existen en el archivo orígen y otros que omití por el mismo motivo. Pero en líneas generales dá el formato que solicitas a cada uno de los archivos generados:

CODE_LIST JAZZTEL.PAGO11M1PSEP11M01_3C1DS1.PP001.a00.afp
#CMD app load_job_conf_file 50
------------------------------------
193759412
193812934
193838063
193865745
-------------------------------------

Datos agregados a mano:

CODE_LIST JAZZTEL.PAGO11M1PSEP11M01_3C1DS1.PP001.a03.afp
#CMD app load_job_conf_file 50

Datos omitidos:

MP	1	1	XXX

Llamada al procedimiento:

Código Delphi [-]
  GenerarArchivos('C:\TEMP\', 'LISTADO_FICHERO.TXT');

Saludos.