FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
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 |
#2
|
||||
|
||||
Hola Taburiente.
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 ------------------------------------- Código:
CODE_LIST JAZZTEL.PAGO11M1PSEP11M01_3C1DS1.PP001.a03.afp #CMD app load_job_conf_file 50 Código:
MP 1 1 XXX
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 14-09-2011 a las 16:42:33. |
#3
|
|||
|
|||
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: Cita:
Gracias |
#4
|
||||
|
||||
Hola Taburiente.
Cita:
Ahora, si se trata sólo de poner la cadena textualmente, bastaría con agregarlo en la línea: Al código anterior. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 14-09-2011 a las 18:00:33. Razón: Agregar comentario |
#5
|
|||
|
|||
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 Última edición por Taburiente fecha: 14-09-2011 a las 18:06:57. |
#6
|
||||
|
||||
Hola de nuevo.
Cita:
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: Los archivos generados, basados en el archivo que enviaste, (sin ajustar la tabulación) quedarían así: Código:
CODE_LIST JAZZTEL.PAGO11M1PSEP11M01_3C1DS1.PP001.a00.afp #CMD app load_job_conf_file 50 ------------------------------------ MP 1 1 1 193759412 MP 2 2 2 193812934 MP 3 3 3 193838063 MP 4 4 4 193865745 ------------------------------------- CODE_LIST JAZZTEL.PAGO11M1PSEP11M01_3C1DS1.PP001.a01.afp #CMD app load_job_conf_file 50 ------------------------------------ MP 1 1 5 194480436 MP 2 2 6 194482282 MP 3 3 7 194485890 MP 4 4 8 194486962 ------------------------------------- CODE_LIST JAZZTEL.PAGO11M1PSEP11M01_3C1DS1.PP001.a02.afp #CMD app load_job_conf_file 50 ------------------------------------ MP 1 1 9 194515253 MP 2 2 10 194515448 MP 3 3 11 194521818 MP 4 4 12 194522927 MP 5 5 13 194524611 ------------------------------------- Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 14-09-2011 a las 18:26:23. |
#7
|
|||
|
|||
Hola amigo
Ya te considero un amigo despues de toda tu ayuda Código:
Creo que te quedaste corto con las explicaciones En cuanto a tu codigo solo tendre que cambiar la siguiente linea: Código:
Writeln(Destino,Format('%s %d %d %d %s',['MP', ContLinea, ContLinea, ContGral, Linea]) Código:
Writeln(Destino,Format('%s %d %d %d %s',['MP', ContLinea, ContLinea, XXX, Linea])); Por lo demás todo perfecto. Gracias por tu inestimada ayuda, prometo ponerme las pilas con esto de los ficheros. Saludos |
#8
|
||||
|
||||
De nada Taburiete, me alegro haber podido ayudarte.
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ficheros de texto !!! | Ledian_Fdez | C++ Builder | 4 | 17-02-2010 09:06:06 |
Pasar ficheros binarios a texto | PTW | Varios | 13 | 01-06-2007 21:56:22 |
Comandos especiales {$H} en ficheros de texto | morodo | Lazarus, FreePascal, Kylix, etc. | 0 | 27-01-2007 22:10:17 |
Correo Web y Ficheros de Texto. | marcoszorrilla | Varios | 29 | 06-09-2006 22:51:55 |
Tema: Ficheros de texto | Tonio | Varios | 5 | 07-05-2003 15:56:24 |
|