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
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:
Código:
CODE_LIST JAZZTEL.PAGO11M1PSEP11M01_3C1DS1.PP001.a00.afp
#CMD app load_job_conf_file 50
------------------------------------
193759412
193812934
193838063
193865745
-------------------------------------
Datos agregados a mano:
Código:
CODE_LIST JAZZTEL.PAGO11M1PSEP11M01_3C1DS1.PP001.a03.afp
#CMD app load_job_conf_file 50
Datos omitidos:
Llamada al procedimiento:
Código Delphi
[-]
GenerarArchivos('C:\TEMP\', 'LISTADO_FICHERO.TXT');
Saludos.