Ver Mensaje Individual
  #3  
Antiguo 30-11-2004
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Si se trata de SQL, algo tan cutre como lo que sigue te puede servir:

Código Delphi [-]
   procedure TForm1.Button1Click(Sender: TObject);
   var
   s:String;
   begin
   s:='ábacos ínclitos ubérrimos decía la canción';
   s := StringReplace(s, 'á', 'a', [rfReplaceAll]);
   s := StringReplace(s, 'é', 'e', [rfReplaceAll]);
   s := StringReplace(s, 'í', 'i', [rfReplaceAll]);
   s := StringReplace(s, 'ó', 'o', [rfReplaceAll]);
   
   ShowMessage(s);
   end;

La idea sería buscar por la palabra o frase clave tal y como nos la dan es decir con tildes si las tiene:
Código SQL [-]
   Select * 
   From MiTabla
   Where LoQueSea Like sOld or Like sNew
sOld sería la palabra o frase con acentos
sNew sería la palabra o frase sin acentos.

No he puesto mayúsculas ni acentos circunflejos ni agudos.

La idea final, construir una función que quite toda tilde a cualquier frase o palabra, con lo cual ya tendríamos los 2 patrones a comparar.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita