Ficheros texto
 

Hola,

Primero decir que soy un aprendiz en esto de >Delphi, mi poca experiencia esta mas dirigida a base de datos y mi experiencia en ficheros planos es escaso por lo que he osado ( dado mi urgencia) a pedir ayuda en este foro. No quiero ni pretendo abusar de nada ni de nadie pero necesito orientación de como conseguir lo siguiente:

Partiendo de fichero "LISTADO_FICHERO.txt" obtener y nombrar tantos ficheros como cabeceras tenga en contenido (ver ejemplo adjunto) así como la estructura que tiene dichos ficheros. Después ya tendría que realizar otras operaciones pero eso creo que si sabría como hacerlo, pero para ello necesito solventar este primer paso.

Gracias anticipada por cualquier tipo de ayuda.


Saludos

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:
Datos agregados a mano:
Datos omitidos:
Llamada al procedimiento:

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

Saludos.

Hola ecfisa,

Primero de todo muchísimas gracias, no solo por tu gran ayuda, sino por la rapidez de la misma, me quito el sombrero.

Luego decirte que unos de mis muchos problema es precisamente incluir en los ficheros que genero los datos que tu me has omitido:


Es importante incluir dicha información para que luego me lo reconozca otra aplicación que necesita dicha estructura. ¿ que tal lo ves ?


Gracias

Hola Taburiente.
Correcto, pero ¿ De donde salen esos datos ? por que en el archivo que adjuntaste, LISTADO_FICHERO.txt, no existen y de la nada no se pueden fabricar...

Ahora, si se trata sólo de poner la cadena textualmente, bastaría con agregarlo en la línea:

Código Delphi [-]
...
      while (Pos('.afp',Linea)=0)and(Pos('-',Linea)=0) do
      begin
        Writeln(Destino, 'MP  1  1  XXX' +Linea); // aquí se agrega la cadena 
        Readln(Origen, Linea);
      end;
...

Al código anterior.


Un saludo.

Hola de nuevo ecfisa,

Efectivamente, eso datos no están en el fichero origen pero si tienen que estar en los ficheros originados y por lo tanto necesito agregarlos y que como puedes comprobar empiezan por MP y termina en XXX y en el medio dos colunnas que es un cosecutivo desde 1 hasta xxxxxxxxxx dependiendo del numero de registros.

Muchas gracias por tu tiempo y esfuerzo


Saludos

Hola de nuevo.
Creo que te quedaste corto con las explicaciones... :)

Pero a ver... Si no te entiendo mál, queres que haya un contador parcial para las líneas de cada archivo generado y uno general para el total de ellas ('xxxxxxxxxx').

Si es así, es muy sencillo modificar el código anterior para que lo haga:

Código Delphi [-]
procedure GenerarArchivos(const Ruta: string; const Nombre: string);
var
  Origen, Destino: TextFile;
  Linea: string;
  ContGral: Int64;      // Contador general de líneas
  ContLinea: Integer; // Contador parcial de líneas
begin
  Assign(Origen,Ruta+Nombre);
  Reset(Origen);
  ContGral:= 1;
  while not Eof(Origen) do
  begin
    Readln(Origen, Linea);
    if Pos('.afp',Linea) <> 0 then
    begin
      ContLinea:= 1;
      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,Format('%s %d %d %d %s',['MP', ContLinea, ContLinea, ContGral, Linea]));
        Readln(Origen, Linea);
        Inc(ContLinea);
        Inc(ContGral);
      end;
      Writeln(Destino,'-------------------------------------');
      CloseFile(Destino);
    end;
  end;
  CloseFile(Origen);
end;

Los archivos generados, basados en el archivo que enviaste, (sin ajustar la tabulación) quedarían así:
De todas maneras no me queda muy en claro que papel juegan los dos números posteriores a 'MP'... :rolleyes:

Saludos.

Hola amigo

Ya te considero un amigo despues de toda tu ayuda :D


Perdona si no me explique bien, creía que con los ficheros ejemplos y me explicación seria suficiente, pero veo no no fuy lo suficientemente habil. lo siento.


En cuanto a tu codigo solo tendre que cambiar la siguiente linea:

por la siguiente:

puesto que no necesito el contador general si no precisamente XXX.

Por lo demás todo perfecto.

Gracias por tu inestimada ayuda, prometo ponerme las pilas con esto de los ficheros.

Saludos

De nada Taburiete, me alegro haber podido ayudarte. :)

Saludos.