Club Delphi  
    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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-11-2017
Racso2006 Racso2006 is offline
Miembro
 
Registrado: nov 2017
Posts: 19
Poder: 0
Racso2006 Va por buen camino
Question Filtrar las filas encontradas en un txt

Buenos dias y muchas gracias de antemano.

Lo que intento hacer es lo siguiente.

tengo un texto txt que al hacer un buscar me tiene que sacar todas las filas que contengan lo que se ha escrito en ese edit.

He provado de varias maneras diferentes pero no me llega a salir correctamente, y actualmente no tengo casi nada ya que nada me ha servido:
Código Delphi [-]
procedure TFconfigcliente.SpeedButton1Click(Sender: TObject);
 var 
 Archivo: TStrings;
 fichero:string;
 i: Integer;
 PosIni, PosFin : Integer; 
 CadenaTmp, Resultado : String; 

   begin  
   Archivo := TStringList.Create;
     if Open1.execute then  
     begin  
     fichero := open1.Files.Strings[0]; 
     Archivo.LoadFromFile(fichero); 
     end; 
   CadenaTmp := Archivo.text;  
     for i:=0 to (Archivo.Count-1) do
     begin
       if Ansipos(trim(edit1.text),trim(CadenaTmp))<>0 then //esto no se si lo tengo bien definido para que realize el if solo a las filas que tengan la palabra  
       begin   
       memo1.Text := archivo. ;    //no se como definir que imprima toda la fila 
       end; 
    end;

si hay algun codigo que no cuadre es de todas las pruebas que he realizado que ya me he liado un poco.

espero podais arrojar luz sobre este desastre :P
Responder Con Cita
  #2  
Antiguo 03-11-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Pero qué quieres hacer? ¿cargar un fichero de texto y mostrarlo?
Responder Con Cita
  #3  
Antiguo 03-11-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
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.

Según te entiendo, sería algo así:
Código Delphi [-]
procedure AddLocated(const FileName, Searched: string; Lines: TStrings);
var
  TS: TStrings;
  i : Integer;
begin
  TS := TStringList.Create;
  try
    TS.LoadFromFile(FileName);
    for i := 0 to TS.Count - 1  do
      if AnsiPos(Searched, TS[i]) <> 0 then
        Lines.Add(TS[i]);
  finally
    TS.Free;
  end;
end;

Ej. de uso:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  AddLocated('C:\ARCHIVO.TXT', Edit1.Text,  Memo1.Lines);
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #4  
Antiguo 03-11-2017
Racso2006 Racso2006 is offline
Miembro
 
Registrado: nov 2017
Posts: 19
Poder: 0
Racso2006 Va por buen camino
cargar un fichero y mostrar en un memo (o meterlas en un DBgrid) las lineas del fichero que contengan la palabra definida en el edit1.

ejemplo:

(lunes 13:30) juan: hola que tal?
(martes 12:45) maria: perfecta aqui comiento
(martes 20:32) jose: yo tambien perfecto, y tu juan?

si este es el fichero, y en el edit ponemos juan tendriamops que optener lo siguiente:
(lunes 13:30) juan: hola que tal?
(martes 20:32) jose: yo tambien perfecto, y tu juan?
Responder Con Cita
  #5  
Antiguo 03-11-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
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.
Cita:
Empezado por Racso2006 Ver Mensaje
cargar un fichero y mostrar en un memo (o meterlas en un DBgrid) las lineas del fichero que contengan la palabra definida en el edit1.

ejemplo:

(lunes 13:30) juan: hola que tal?
(martes 12:45) maria: perfecta aqui comiento
(martes 20:32) jose: yo tambien perfecto, y tu juan?

si este es el fichero, y en el edit ponemos juan tendriamops que optener lo siguiente:
(lunes 13:30) juan: hola que tal?
(martes 20:32) jose: yo tambien perfecto, y tu juan?
Entonces te entendí bién...


Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #6  
Antiguo 13-11-2017
Racso2006 Racso2006 is offline
Miembro
 
Registrado: nov 2017
Posts: 19
Poder: 0
Racso2006 Va por buen camino
si, entendiste bien y me fue perfecto, lo que no se porque no se publico mi anterior post

muchisimas gracias
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
Filas a Columnas amerika111 Firebird e Interbase 40 18-03-2015 21:08:52
Lectura de variables encontradas en HTML WebBrowser jucabb Internet 6 12-03-2010 21:48:36
To Be or Not To Be: Filtrar o no Filtrar esa es la cuestion gorsan Conexión con bases de datos 10 04-10-2007 12:14:10
Filas a columnas nightynvid MS SQL Server 0 31-05-2006 17:22:44
Problema al utilizar dos bases de datos MySQL encontradas en diferentes Serveres FernandoFAI MySQL 3 16-04-2004 13:00:49


La franja horaria es GMT +2. Ahora son las 20:53:51.


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