FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Ficheros texto II
Hola de nuevo,
En unos post anteriores prometí a ecfisa ponerme las pilas en el tratamiento de ficheros planos y en ello estoy. Os cuento mi nuevo problema y que no se como solventar. Partiendo de un fichero origen necesito extraer entre otras, las lineas que contenga la palabra "L_CODE" sin las comillas, en origen estan asi: Código:
#MSG_3 L_CODE 7 193407869 4e7b50cb 22/09/2011_17:14:00 #MSG_5 L_CODE 9 193418949 4e7b50cf 22/09/2011_17:14:00 #MSG_6 L_CODE 8 193409660 4e7b50d2 22/09/2011_17:14:00 Código:
L_CODE 7 193407869 4e7b50cb 22/09/2011_17:14:00 L_CODE 9 193418949 4e7b50cf 22/09/2011_17:14:00 L_CODE 8 193409660 4e7b50d2 22/09/2011_17:14:00 Código:
193407869 22/09/2011_17:14:00 193418949 22/09/2011_17:14:00 193409660 22/09/2011_17:14:00
Por favor, podría decirme alguien como conseguir lo que necesito. Gracias anticipadas Saludos Última edición por ecfisa fecha: 23-09-2011 a las 19:25:26. |
#2
|
||||
|
||||
Busca si contiene la palabra y si las líneas son homogeneas como veo utilza:
Copy(xx,10,AnchoRestanteCadena); Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
||||
|
||||
si la cantidad de caracteres desde LCODE hasta el siguiente numero es la misma podrias agregar la cantidad de caracteres de diferencia para extraer la cadena
algo asi
__________________
Dulce Regalo que Satanas manda para mi..... |
#4
|
||||
|
||||
oph no habia reparado que hay una cadena intermedia..
dejame pensar
__________________
Dulce Regalo que Satanas manda para mi..... |
#5
|
||||
|
||||
Hola de Taburiente.
Te hice un ejemplo muy simplificado que hace lo que buscas.
Llamada de prueba:
Archivo origen (ORIGEN.TXT): Código:
#MSG_3 L_CODE 7 193407869 4e7b50cb 22/09/2011_17:14:00 #MSG_5 L_CODE 9 193418949 4e7b50cf 22/09/2011_17:14:00 #MSG_6 L_CODE 8 193409660 4e7b50d2 22/09/2011_17:14:00 Código:
193407869 22/09/2011_17:14:00 193418949 22/09/2011_17:14:00 193409660 22/09/2011_17:14:00 Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 23-09-2011 a las 20:09:40. |
#6
|
|||
|
|||
Hola y gracias a todos por vuestra colaboración sois magnifico.
Para ecfisa: He empleado tu codigo ( ver debajo), he hecho un copy y paste sin modificar nada ya que como podrás ver tengo un opendialogo para seleccionar el fichero requerido y me sigue generando los ficheros con la misma estructura que puse en mi primer post. Por favor podrias chequear el fichero que adjunto, quizas asi puedas expresarme mejor lo que necesito Gracias
Última edición por Casimiro Notevi fecha: 23-09-2011 a las 21:27:41. |
#7
|
|||
|
|||
Espero que esta vez vaya el fichero.
Saludos |
#8
|
||||
|
||||
Hola Taburiente.
Si, ahora creo que está más claro , fijate si te sirve de este modo:
Resultado de la prueba: ORIGEN.TXT Código:
#MSG_1 M_COUNT 50_JAZZ_PAGO11M15_12C3DS1_PP001_a00_afp TT14 GD0 BM0 BC0 DB0 EJ0 INS0 DEL0 22/09/2011_17:14:00 #MSG_3 L_CODE 7 193407869 4e7b50cb 22/09/2011_17:14:00 #MSG_5 L_CODE 9 193418949 4e7b50cf 22/09/2011_17:14:00 #MSG_6 L_CODE 8 193409660 4e7b50d2 22/09/2011_17:14:00 #MSG_7 L_CODE 12 193305710 4e7b50d4 22/09/2011_17:14:00 #MSG_9 L_CODE 13 193410268 4e7b50d8 22/09/2011_17:14:00 #MSG_10 L_CODE 14 193409560 4e7b50db 22/09/2011_17:14:00 #MSG_11 L_ERROR 14 DOUBLE 193409560 4e7b50df 22/09/2011_17:14:00 #MSG_12 M_ACT STOP_MACHINE 1 50_JAZZTEL_PAGO11M15_12C3DS1_PP001_a00_afp 4e7b50df 22/09/2011_17:14:00 #MSG_14 L_ERROR 10 BAD_IMAGE 4e7b50e7 22/09/2011_17:14:00 #MSG_15 M_ACT STOP_MACHINE 1 50_JAZZTEL_PAGO11M15_12C3DS1_PP001_a00_afp 4e7b50e7 22/09/2011_17:14:00 #MSG_16 L_ERROR 10 BAD_IMAGE 4e7b50e8 22/09/2011_17:14:00 #MSG_17 M_ACT STOP_MACHINE 1 50_JAZZTEL_PAGO11M15_12C3DS1_PP001_a00_afp 4e7b50e8 22/09/2011_17:14:00 #MSG_19 L_CODE 10 193409476 4e7b50ed 22/09/2011_17:14:00 #MSG_21 M_COUNT 50_JAZZ_PAGO11M15_12C3DS1_PP001_a00_afp TT14 GD7 BM2 BC0 DB1 EJ0 INS0 DEL0 22/09/2011_17:15:00 Código:
#MSG_1 M_COUNT 50_JAZZ_PAGO11M15_12C3DS1_PP001_a00_afp TT14 GD0 BM0 BC0 DB0 EJ0 INS0 DEL0 22/09/2011_17:14:00 193407869 22/09/2011_17:14:00 193418949 22/09/2011_17:14:00 193409660 22/09/2011_17:14:00 193305710 22/09/2011_17:14:00 193410268 22/09/2011_17:14:00 193409560 22/09/2011_17:14:00 193409476 22/09/2011_17:14:00 #MSG_21 M_COUNT 50_JAZZ_PAGO11M15_12C3DS1_PP001_a00_afp TT14 GD7 BM2 BC0 DB1 EJ0 INS0 DEL0 22/09/2011_17:15:00
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 23-09-2011 a las 21:48:18. |
#9
|
|||
|
|||
ecfisa, eso es, perfecto, eso es lo que quería, gracias...muchas gracias.
Solo una pregunta mas, crees tu que con este código podría manejar agilmente ficheros con unas 60.000 lineas? lo comento porque veo que utilizas un Tstrings. Desde ya muchas gracias y si estas por Madrid te invito a unas cervezas por tu tiempo y por lo que me estas enseñando |
#10
|
||||
|
||||
Cita:
Si algún día pudiera viajar allá... encantadísimo Un saludo.
__________________
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 texto | Taburiente | Varios | 7 | 14-09-2011 18:34:17 |
Ficheros de texto !!! | Ledian_Fdez | C++ Builder | 4 | 17-02-2010 09:06:06 |
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 |
|