De ANSI a UTF-8, como ?

[Armando]

Hola amigos del foro:

Necesito crear un archivo .XML, recibo un archivo TXT con texto como el siguiente:

"HERMAN & HOLLERIT" o el siguiente texto
"RICHARD O'CONNORS"

Aunque lo paso por la función

Code: Select all

cDes := hb_strToUTF8(cDes)
 

XML notepad 2007 me reporta error

en que estoy fallando?

Saludos

[karinha]

Code: Select all

#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."

   /*
   "HERMAN & HOLLERIT" o el siguiente texto
   "RICHARD O'CONNORS"
   */
   cStr := "RICHARD O'CONNORS"

   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
 

[cnavarro]

Hola amigos del foro:

Necesito crear un archivo .XML, recibo un archivo TXT con texto como el siguiente:

"HERMAN & HOLLERIT" o el siguiente texto
"RICHARD O'CONNORS"

Aunque lo paso por la función

Code: Select all

cDes := hb_strToUTF8(cDes)
 

XML notepad 2007 me reporta error

en que estoy fallando?

Saludos

Intenta asi, para crear la cadena de caracteres a grabar

Code: Select all

   local cCad1    := Chr( 239 ) + Chr( 187 ) + Chr( 191 )

  cDes := cCad1 + hb_strToUTF8(cDes)
 

[Armando]

Karinha y Cristóbal:

Mil gracias por la pronta respuesta, voy a probar y les aviso como me va.

Saludos

[chiaiese]

wery useful, it worked for me to output from a memo file to a web page in utf-8
thank you