topic-32099

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

De ANSI a UTF-8, como ?
Posted: Mon Mar 14, 2016 04:46 PM

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 (fw): Select all Collapse

cDes := hb_strToUTF8(cDes)

XML notepad 2007 me reporta error

en que estoy fallando?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: De ANSI a UTF-8, como ?
Posted: Mon Mar 14, 2016 05:42 PM

Code (fw): Select all Collapse

#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

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

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: De ANSI a UTF-8, como ?
Posted: Mon Mar 14, 2016 05:44 PM

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
Code (fw): Select all Collapse
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 (fw): Select all Collapse

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

  cDes := cCad1 + hb_strToUTF8(cDes)

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: De ANSI a UTF-8, como ?
Posted: Mon Mar 14, 2016 05:50 PM

Karinha y Cristóbal:

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

chiaiese

Posts: 113

Joined: Wed Feb 08, 2006 10:32 PM

Re: De ANSI a UTF-8, como ?
Posted: Tue Sep 19, 2017 08:59 PM

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

Roberto Chiaiese
R&C Informatica S.n.c.
https://www.recinformatica.it
info@recinformatica.it

Harbour 3.2 - FW2512

FiveTech Support Forums

Continue the discussion