Caracteres especiais(RESOLVIDO)

[Arthur Silvestre]

Alguém conhece alguma função para retirar caracteres especiais?

ex: ã -> a

é -> e

ü -> u

FWH.11.12 + xHarbour12.1 + Pelles C IDE

E-mail:ArthurSilvestreSnt@hotmail.com

Editado por - arthursilvestre on 22/10/2012 11:41:06

Editado por - arthursilvestre on 22/10/2012 11:59:15

[Arthur Silvestre]

Alguém conhece alguma função para retirar caracteres especiais?

ex: ã -> a

é -> e

ü -> u

FWH.11.12 + xHarbour12.1 + Pelles C IDE

E-mail:ArthurSilvestreSnt@hotmail.com

Editado por - arthursilvestre on 22/10/2012 11:41:06

Editado por - arthursilvestre on 22/10/2012 11:59:15

[aferra]

Algumas idéias

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=19177

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17791

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=11073

Um grande Abraço

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red>

[Arthur Silvestre]

Muito Obrigado Alessandro, rodou que é uma beleza (:

FWH.11.12 + xHarbour12.1 + Pelles C IDE

E-mail:ArthurSilvestreSnt@hotmail.com

[kleber]

Uma função que retorna o caractere sem acento.

FUNC TRADUZ2( C_VAR1 )

LOCAL N_TAM1,C_AUX1,N_SETEM,CARACT1,CARACT2

CARACT1 := "ŽÂ„ …†ƒ€‡Â‚ˆ‰Š¡‹ŒÂ“¢™â€â€¢Â£Å¡Â–¦§·µÇ€åä¡Öµ ÆÇ飃¶µ ƒ¶´ï"

CARACT2 := "AAAAAAACCEEEEEIIIIOOOOOUUUU¦§AAACOoiIAaaAUuaAAaaA I"

C_VAR1 := ALLTRIM(C_VAR1)

N_TAM1 := LEN(C_VAR1)

C_AUX1 := ''

FOR n_CONTAR = 1 TO N_TAM1

N_SETEM := AT( SUBSTR(C_VAR1,n_CONTAR,1),CARACT1 )

IF N_SETEM <> 0

C_AUX1 := C_AUX1 + SUBSTR(CARACT2,N_SETEM,1)

ELSE

C_AUX1 := C_AUX1 + SUBSTR(C_VAR1,n_CONTAR,1)

END

END

RETU C_AUX1