Búsqueda sin diferenciar acentos

[José Luis]

Hola amigos,

Tengo un formulario donde busco los resultados que contienen una cadena de texto para el cual utilizo este código:

WITH thisform
        .TextoBusqueda="%"+ALLTRIM(UPPER(THIS.VALUE))+"%"
        SELECT * ;
            FROM curExpedientes ;
            WHERE STR(ID_EXPEDIENTE) LIKE .TextoBusqueda ;
            OR UPPER(SOLICITUD) LIKE .TextoBusqueda ;
            OR UPPER(CERTIFICADOCONFORMIDAD) LIKE .TextoBusqueda ;
            OR UPPER(CLIENTE) LIKE .TextoBusqueda ;
            INTO CURSOR curBusqueda
  ENDWITH

El problema es que diferencia entre entre carácteres con acento y sin acento, y claro el resultado es diferente

¿Existe una forma sencilla de eliminar los acentos de una cadena de carácteres?

Gracias por sus respuestas

[Allan Raúl Acuña]

lcCadena = "áéíóú"
? STRTRAN(lcCadena, 'áéíóú', 'aeiou')

Saludos cordiales.

Lic. Allan Raúl Acuña
Analista Programador
msn= allan...@hotmail.com
skype= NicEasySoft
            +(505) 8 999 8950

Managua, Nicaragua

Centroamérica

---

Date: Thu, 7 Jan 2016 08:22:49 -0800
From: maste...@hotmail.com
To: publice...@googlegroups.com
Subject: [vfp] Búsqueda sin diferenciar acentos

[José Luis]

No me funciona

lcCadena = "Localización"

? STRTRAN(lcCadena, 'áéíóú', 'aeiou')

Resultado: Localización

[iam...@gmail.com]

Pueba con esta función José Luis

lcCadena = "Localización"
? CHRTRAN(lcCadena, 'áéíóú', 'aeiou')

Daniel Burgos

Enviado desde mi Móvil LG

------ Mensaje original------

Desde: José Luis

Fecha: jue., 7 de ene. de 2016 15:25

Para: Comunidad de Visual Foxpro en Español;

Asunto:Re: [vfp] Búsqueda sin diferenciar acentos

[Víctor Hugo Espínola Domínguez]

With Thisform

.TextoBusqueda = "%" + Alltrim(Lower(This.Value)) + "%"

.TextoBusqueda = Chrtran(Lower(.TextoBusqueda), "áéíóú", "aeiou")

Select * ;

From curExpedientes ;

Where Str(ID_EXPEDIENTE) Like .TextoBusqueda ;

Or Chrtran(Lower(SOLICITUD), "áéíóú", "aeiou") Like .TextoBusqueda ;

Or Chrtran(Lower(CERTIFICADOCONFORMIDAD), "áéíóú", "aeiou") Like .TextoBusqueda ;

Or Chrtran(Lower(CLIENTE), "áéíóú", "aeiou") Like .TextoBusqueda ;

Into Cursor curBusqueda

Endwith

Saludos,

Víctor.

Lambaré - Paraguay.

[José Luis]

Perfecto Victor, ahora si

Muchas gracias a todos

[Checo]

Gracias Victor

He estado leyendo y me ha servido de mucho la ayuda que brindas

gracias nuevamente