Acentos

[TOTOVIOTTI]

Hola amigos, es posible procesar de alguna manera con alguna función que convierta
directamente las palabras acentuadas en la misma palabra, pero sin el acento?
Por ejemplo:

EDUCACIÓN FÍSICA -> convertirla en EDUCACION FISICA

Sin tener que procesar letra por letra?
Muchas gracias!
Roberto

[cmsoft]

Manualmente, con un función. No conozco una función de Harbour o Fivewin que lo haga.

Code: Select all  Expand view

...
cVar := Reemplazar(cVar)
...
**************************************
** Reemplazar caracteres acentudos
STATIC FUNCTION Reemplazar(cTexto)
   cTexto := OemToAnsi(UPPER(cTexto))
   cTexto := STRTRAN(cTexto,"á","A")
   cTexto := STRTRAN(cTexto,"é","E")
   cTexto := STRTRAN(cTexto,"í","I")
   cTexto := STRTRAN(cTexto,"ó","O")
   cTexto := STRTRAN(cTexto,"ú","U")
   cTexto := STRTRAN(cTexto,"ñ","Ñ")
RETURN cTexto

[karinha]

Code: Select all  Expand view

#include "FiveWin.ch"

Function Main()

   Local cConteudo := "A Carta de Correção é disciplinada pelo § 1º-A do art. "+ ;
                      "7º do Convênio S/N, de 15 de dezembro de 1970 e pode "  + ;
                      "ser utilizada para regularização de erro ocorrido na "  + ;
                      "emissão de documento fiscal, desde que o erro não "     + ;
                      "esteja relacionado com: I - as variáveis que "          + ;
                      "determinam o valor do imposto tais como: base de "      + ;
                      "cálculo, alíquota, diferença de preço, quantidade, "    + ;
                      "valor da operação ou da prestação; II - a correção "    + ;
                      "de dados cadastrais que implique mudança do remetente " + ;
                      "ou do destinatário; III - a data de emissão ou de saída."

   Local cConteudoSemAcentos := TiraAcentos( cConteudo )

   msgAlert( cConteudo )  // con acentos

   msgAlert( cConteudoSemAcentos )  // sin acentos

Return Nil
*-------------------------------------
Static Function TiraAcentos( _Conteudo )

   Local x ,cRet := _Conteudo
   Local aArray1 := {"Á","É","Í","Ó","Ú","á","é","í","ó","ú","Â","Ê","Ô","â","ê","ô","Ã","ã","Õ","õ","Ç","ç"}
   Local aArray2 := {"A","E","I","O","U","a","e","i","o","u","A","E","O","a","e","o","A","a","O","O","C","c"}

   For x := 1 to Len(aArray1)
      cRet := StrTran( cRet , aArray1[x] , aArray2[x] )
   Next x

Return(cRet)
 

Saludos.

[TOTOVIOTTI]

Gracias!
Supuse que el proceso era letra por letra!
Muchas gracias!!!!!!!!!!!!!!!!!!!!