Programación General > Delphi

 Buscar Cadenas En Archivos Txt

<< < (2/3) > >>

bartolomeo:
ahhh se me olvidaba decirte hay lo que haces es tomar el texto y pasarlo aun memo y desde hay ppuedes hacer busquedas, eso te podra servir para lo que quieres.  :unsure:
te lo recomiendo por que es que buscar desde un memo es SUPER pero SUPER pero SUPER facillll  :devil:

bartolomeo:

--- Código: Text ---procedure TForm1.Button1Click(Sender: TObject);vari:Integer;j:Integer;Posicion:Integer;begin   for j:= 0 to listbox1.Items.Count - 1 do  begin       for i:=0 to memo1.lines.count-1 do      begin       if Pos(Listbox1.Items[j],memo1.lines[i]) &#60;&#62; 0 then      begin      ShowMessage('Encontrada '+Listbox1.Items[j]);      end;      end;  end;end; procedure TForm1.Button2Click(Sender: TObject);varnBlanco:Integer;nCont:integer;cPalabra:String;begin  for nCont:=1 to Length(Edit1.text) do  begin   cPalabra:=cPalabra + edit1.text[nCont];      if edit1.text[nCont] = ' ' then     begin     ListBox1.Items.Add(cPalabra);     cPalabra:=''     end;  end;  ListBox1.Items.Add(cPalabra); end; 
Este es un ejemplo de busqueda que encontre, talves te sriva para lo que quieres:

pasa palabras de un edit a un listbox, y comprueba si las palabras del listbox estan en el memo.  :ph34r:

Espero te sirva, y sigue escribiendo por si hay alguna duda  :hola:

Sergini:
Gracias Barto, el ejemplo esta exelente y esa opcion es muy buena y fácil, pero el problema es que voy a abrir varios archivos y son muy muy extensos, he leido que se puede copiar el contenido del archivo a un buffer pero no he encontrado ejemplos donde se haga esto.

Aunque no creo que haya mucho problema si no utilizo buffers, simplemente quiero leer el archivo y buscar línea por línea, cuando encuentre la cadena deseada voy a guardar la posisción donde se encontró en una lista que va a contener todas las posisciones en donde se encontro la cadena buscada.

Ya tengo casi todo resuelto menos como leer líneas de un archivo TXT.   :angry:  

bartolomeo:
Pues por eso por que no lo pasas a un memo eso es mas facil que intentar leer el archivo desde su origen

bartolomeo:
es mas si no quieres que el memo se vea simplemente no lo pones visible y va a a ser transparente para el usuario

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior