Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-09-2011
Taburiente Taburiente is offline
Miembro
 
Registrado: may 2006
Posts: 26
Poder: 0
Taburiente Va por buen camino
Espero que esta vez vaya el fichero.

Saludos
Archivos Adjuntos
Tipo de Archivo: zip fichero.zip (603 Bytes, 6 visitas)
Responder Con Cita
  #2  
Antiguo 23-09-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Taburiente.

Si, ahora creo que está más claro , fijate si te sirve de este modo:
Código Delphi [-]
procedure GenerarArchivos(const Ruta: string; const Nombre: string);
const
  SEPARADOR = '     ';
var
  Origen, Destino: TextFile;
  Linea: string;
  TS: TStrings;
begin
  AssignFile(Origen, Ruta + Nombre);
  AssignFile(Destino, Ruta + 'DESTINO.KCL');
  Reset(Origen);
  Rewrite(Destino);
  try
    TS:= TstringList.Create;
    while not Eof(Origen) do
    begin
      Readln(Origen, Linea);
      if Pos('M_COUNT', Linea) <> 0 then
        Writeln(Destino, Linea)
      else if Pos('L_CODE', Linea) <> 0 then
      begin
        TS.Clear;
        TS.Delimiter:= ' ';
        TS.DelimitedText:= Linea;
        Writeln(Destino, TS[3] + SEPARADOR + TS[5]);
      end;
    end
  finally
    TS.Free;
    CloseFile(Origen);
    CloseFile(Destino);
  end;
end;

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
DESTINO.KCL
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
Saludos.
__________________
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.
Responder Con Cita
  #3  
Antiguo 23-09-2011
Taburiente Taburiente is offline
Miembro
 
Registrado: may 2006
Posts: 26
Poder: 0
Taburiente Va por buen camino
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
Responder Con Cita
  #4  
Antiguo 23-09-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
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.
No vas a tener ningún problema de memoria por que la variable TS sólo almacena la cadena leída, sobreescribiendo la propiedad Text en cada lectura.

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 ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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


La franja horaria es GMT +2. Ahora son las 22:44:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi