Formato do arquivo: texto (Text Encoding = UTF-8

[lugab]

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

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 
? cAsc

Grato a quem se dispuser a colaborar.

Gabriel

[Stanis Luksys]

Olá,

Não entendi... Aqui este simples trecho que você postou funcionou perfeitamente!

Olha só, na última linha você coloca:

Código: Selecionar todos

memowrit("teste.txt",cUtf8)

E depois com algum editor de texto você abre já informando para abrir com codificação UTF8.

Aqui funfou normal!

[lugab]

Obrigado, Stanis, e desculpe a demora..

Agora é tentar fazer a conversão com um arquivo texto de várias linhas, pra ver se consigo...