topic-33141

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Caractere extraños
Posted: Thu Nov 03, 2016 03:22 PM

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.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Caractere extraños
Posted: Thu Nov 03, 2016 04:58 PM

Code (fw): Select all Collapse

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 )

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Caractere extraños
Posted: Thu Nov 03, 2016 08:14 PM

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion