Caractere extraños

[FranciscoA]

Hola, amigos del foro.
Tengo el siguiente caso, que he buscado solucion en foro pero solo incontré parecidos:

Desde una tabla excel exporté a .dbf sus datos (con algunas palabras acentuadas)

En la tabla .dbf las vocales acentuadas se ven correctamente, pero al cargarla en el browse se ven, como se muestra a continuacion.
SOFÃA MARGARITA VÍLCHEZ CABRERA

Si las modifico a travez de mi programa, se graban correctamente, pero es un trabajo arduo.

Existe alguna function para automatizar la actualizacion, o corrección debida??

Gracias por cualquier solucion.

[karinha]

Code: Select all  Expand view

FUNCTION BORRA_ACENTUACION( cStr )

   local cStrNew := "", nX

   cAcentos := {"—","ƒ","Æ","Ç"," ","µ","…","·","‚","É","ê","ˆ","","Ò","í","Í","ó","¢","à","ä","å","“","â","ú","é","","š","ç","€","ã","Ã","á","Á","à","À","é","É","ê","Ê","í","Í","ó","Ó","õ","Õ","ô","Ô","ú","Ú","ü","Ü","ç","ù","AAO","§","¦","º","ª","€","‡","Ç","ç","'","`","ø","¡","Þ","×","Ø","ÿ","Ö",chr(239)}

   cLetras  := {"U","A","A","A","A","A","A","A","E","E","E","E","E","E","I","I","O","O","O","O","O","O","O","U","U","U","U","C","C","A","A","A","A","A","A","E","E","E","E","I","I","O","O","O","O","O","O","U","U","U","U","C"," ","AAO",".",".",".",".","C","C","C","C","" ,"" ,".","I","I","I","I","", "I",  ""   }

   For nX := 1 TO LEN(cAcentos)

      cStrNew := StrTran(cStr, cAcentos[nX], cLetras[nX])

      cStr := cStrNew

   Next

Return( cStrNew )
 



[FranciscoA]

Karinha, muchas gracias.
Asi lo estuve probando, pero me hacían falta algunos caracteres que defines en tu array cAcentos.
Solucionado...
Gracias nuevamente.