Formato do arquivo: texto (Text Encoding = UTF-8
Enviado: 25 Jan 2011 22:58
Ola amigos forenses.
Tô ressucitando esse tópico , q dscobri por acaso, pq achei ele interessante pra quem quer ter um fonte próprio de conversão para UTF8, em vez de usar executáveis de terceiros, como o STR2UTF8.EXE.
A questão é: baseando-se neste código de conversão abaixo (conversão de texto curto) q o HASA postou neste tpc, sera q alguém aqui im plementou um fonte para converter um arquivo TXT ? Eu tentei mas apanhei tanto com os caracteres estranhos q apareciam, usando tanto os memoread como os fopen da via, q acabei desistindo..
Grato a quem se dispuser a colaborar.
Gabriel
Tô ressucitando esse tópico , q dscobri por acaso, pq achei ele interessante pra quem quer ter um fonte próprio de conversão para UTF8, em vez de usar executáveis de terceiros, como o STR2UTF8.EXE.
A questão é: baseando-se neste código de conversão abaixo (conversão de texto curto) q o HASA postou neste tpc, sera q alguém aqui im plementou um fonte para converter um arquivo TXT ? Eu tentei mas apanhei tanto com os caracteres estranhos q apareciam, usando tanto os memoread como os fopen da via, q acabei desistindo..
Código: Selecionar todos
REQUEST HB_CODEPAGE_PTISO
REQUEST HB_CODEPAGE_PT850
Proc main()
local cStr, cAsc, cUtf8
HB_SETCODEPAGE( "PT850" )
cStr := "Isto é um teste de conversão."
cUtf8 := hb_strToUTF8( cStr )
cAsc := hb_UTF8ToStr( cUtf8 )
? cStr
? cUtf8
? cAscGabriel