Autor Tema: Buscar Cadenas En Archivos Txt (Leído 5990 veces)

Sergini · « **en:** Miércoles 31 de Agosto de 2005, 22:48 »

Hola a todos, espero que alguien me pueda ayudar a buscar una cadena de caracteres en varios archivos TXT (en un mismo directorio).

Lo que no se es como leer los archivos... se lee por letra, palabra o línea?
Luego de encontrar la palabra, quiero guardar la posiscion del archivo para accesarlo mas tarde, se puede?

Gracias por su ayuda

Yo seguire trabajando

bartolomeo

Hola comando como estas???

para buscar un string puedes usar la pos, y para buscar un string apartir de una posicion puedes usar posex.

si tienes dudas pos nomas dime

Nos vemos y bienvenido a solocodigo, en lo que se te presente ayuda tendras

bartolomeo

Citar

Gracias por su ayuda

Yo seguire trabajando

que bacana tu actitud, asi se habla

Sergini

Gracias por tu "ayuda", pero mi pregunta es:

¿Como leer un archivo de texto para luego buscar una cadena de caracteres dentro de el?

Espero que esta vez la pregunta haya sido mas clara.

bartolomeo

que huev.....n

ahora que leo tienes toda la razon, para leer un archivo, PRARA LEERLO puedes usar esto:

MiMemo.Lines.LoadFromFile('C:\a.txt');

y listolisssss

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.

te lo recomiendo por que es que buscar desde un memo es SUPER pero SUPER pero SUPER facillll

bartolomeo

Código: Text

procedure TForm1.Button1Click(Sender: TObject);
var
i: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);
var
nBlanco: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.

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

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.

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

Sergini

Ya pude!!!!

La verdad es que es bastante sencillo, solo abri el archivo con el comando AssignFile y declare una variable de tipo TextFile.

Para leeer una linea Radln y ya!
Ahora a programar

Amilius

Más sencillo es usando un objeto TStringList:

Lo creas, llamas a un LoadFromFile con el nombre del archivo y ya tienes el archivo en buffer y puedes acceder a cualquiera de sus líneas como si fuera un arreglo estático. Puedes ordenar la lista de cadenas, modificar lo que quieras y puedes guardarla con SaveToFile.

Después de usarlo recuerda llamar a .free para destruirlo.

bartolomeo

Uffff me alegro,

lo "normal" con delphi, un TextFile, abierto con AssignFile, leer con ReadLn, escribir con WriteLn, etc...

aunque personalmente me gusta mucho la idea del memo

, no es por que la haya formulado yo

si no que la considero mas facil para buscar cadenas y tener un directorio de palabras

, pero que bacano que lo hayas logrado.

espero que sigas escrbiendo y me ayudes cuando lo necesite dado que hasta hace muy poco empece con delphi

SoloCodigo

Autor Tema: Buscar Cadenas En Archivos Txt (Leído 5990 veces)

Sergini

Buscar Cadenas En Archivos Txt

bartolomeo

Re: Buscar Cadenas En Archivos Txt

bartolomeo

Re: Buscar Cadenas En Archivos Txt

Sergini

Re: Buscar Cadenas En Archivos Txt

bartolomeo

Re: Buscar Cadenas En Archivos Txt

bartolomeo

Re: Buscar Cadenas En Archivos Txt

bartolomeo

Re: Buscar Cadenas En Archivos Txt

Sergini

Re: Buscar Cadenas En Archivos Txt

bartolomeo

Re: Buscar Cadenas En Archivos Txt

bartolomeo

Re: Buscar Cadenas En Archivos Txt

Sergini

Re: Buscar Cadenas En Archivos Txt

Amilius

Re: Buscar Cadenas En Archivos Txt

bartolomeo

Re: Buscar Cadenas En Archivos Txt