Page 1 of 1
De ANSI a UTF-8, como ?
Posted: Mon Mar 14, 2016 4:46 pm
by 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
XML notepad 2007 me reporta error
en que estoy fallando?
Saludos
Re: De ANSI a UTF-8, como ?
Posted: Mon Mar 14, 2016 5:42 pm
by 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
Re: De ANSI a UTF-8, como ?
Posted: Mon Mar 14, 2016 5:44 pm
by cnavarro
Armando wrote: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
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)
Re: De ANSI a UTF-8, como ?
Posted: Mon Mar 14, 2016 5:50 pm
by Armando
Karinha y Cristóbal:
Mil gracias por la pronta respuesta, voy a probar y les aviso como me va.
Saludos
Re: De ANSI a UTF-8, como ?
Posted: Tue Sep 19, 2017 8:59 pm
by chiaiese
wery useful, it worked for me to output from a memo file to a web page in utf-8
thank you