CODIFICACION UTF-8

[Laurel]

Hola a todos!

¿Alguien puede ayudarme para saber como puedo convertir un archivo .TXT a UTF-8?

Mil gracias de antemano

Laurel

[mastintin]

puedes usar AnsiToWide() para ello .
Sería algo asi.

Code: Select all  Expand view  RUN

Function TxttoUtf( cFile ,cNewfile)
       memowrite( cNewFile , AnsitoWide( Memoread( cFile ) ) )
Return nil

 

[karinha]

Code: Select all  Expand view  RUN

REQUEST HB_CODEPAGE_PTISO  //-> Para UTF8

   LOCAL cUTF8, cStrUtf8, cAsc, cUTF8Fin

   cStrUtf8 := "Texto em caracteres UTF-8: (dígrafo BR)'ção',(dígrafo espanhol-enhe)'ñ',(trema)'Ü',(ordinais)'ªº',(ligamento s+z alemão)'ß'."

   cUTF8 := HB_STRTOUTF8( cStrUtf8 ) // funcao do XHARBOUR

   cAsc  := HB_UTF8TOSTR( cUtf8 )

   cUTF8Fin := cAsc

   ? cUTF8Fin
 

http://www.pctoledo.com.br/forum/viewto ... _STRTOUTF8

Saludos