Convertir TXT UTF-8 a ASCII (Problema con la Ñ)

[Enrrique Vertiz]

Saludos Estimados,

Tengo un problema, al hacer un "Append From ARCH.TXT SDF" de un archivo UTF-8, las letras con Tilde o la "Ñ" me las cambia por 2 caracteres, cambiando asi toda la posición del registro importado.
Hay alguna forma de evitar ese problema ? y que la Ñ pase tal como esta asi como las letras con tilde ??

Yo lo he solucionado (solo para pruebas) abriendo el archivo con un editor (EmEditor) y grabandolo inmediatamente, pero cambiando en guardar como la codificación de "UTF-8 sin firma" a "Binario (Vista Ascii)", el TXT grabado de esta forma, si es importado de manera correcta, dejando la Ñ y las vocales con tilde tal como se ven en el editor.

Alguna idea ??, gracias

[cnavarro]

Has intentado utilizar ?

HB_StrToUTF8( cStr )
HB_UTF8ToStr( cUtf8 )

[Enrrique Vertiz]

Cristobal, buen dia, gracias por contestar

Esas funciones son de Hb, Yo uso xHb, hay funciones equivalentes ??
Para aplicarlas le hago un memoread y luego un memowrite al archivo y asi convertiría el TXT completo ??
Gracias por tu atención.

[karinha]

Code: Select all  Expand view

#Include "FiveWin.ch"

REQUEST HB_CODEPAGE_PTISO  // lib: CODEPAGE.LIB de xHarbour
REQUEST HB_CODEPAGE_PT850
REQUEST HB_LANG_PT

FUNCTION Main()

   LOCAL cStr, cAsc, cUtf8

   HB_SETCODEPAGE( "PT850" )  // cambia a espanhol
   HB_LANGSELECT( "PT" )      // cambia a espanhol
   HB_SETCODEPAGE( "UTF8EX" ) // or HB_CDPSELECT( "UTF8EX" )

   cStr := "Isto é um teste de conversão."

   cUtf8 := hb_strToUTF8( cStr )

   cAsc := hb_UTF8ToStr( cUtf8 )

   ? "Texto: ",+ cStr

   ? "Utf8:  ", cUtf8

   ? "Asc:  ", cAsc

RETURN NIL

/*

REQUEST HB_CODEPAGE_ESWIN

        cAnsi := "áéíóú"
        cUTF8 := HB_STRTOUTF8(cAnsi, "ESWIN")

        HB_MemoWrit ("ejemplo.txt", cUTF8)
*/

// fin
 



[karinha]

Code: Select all  Expand view

proc main()

   REQUEST HB_CODEPAGE_RU866

   memowrit('c:\utf8',hb_strtoutf8(hb_ansitooem('ðÒÉ×ÅÔ, ÒÏÍÁÛËÉ!'),'RU866'))

return nl
 

[Enrrique Vertiz]

Kariña, Cristóbal, GRACIAS ...

Con vuestras indicaciones funciono OK