Conversão U8-DOS para Oem

[asimoes]

Prezados,

Qual função do harbour eu posso usar para converter U8-DOS para Oem, eu usei a função hb_UTF8ToStr e teve caracteres convertidos para "?"

2017-11-06 14_42_16-UltraEdit-32 - [D__Users_asimoes_AppData_Local_Temp_XPgrpwise_282263CXCV20171101.png (1.89 KiB) Exibido 652 vezes

2017-11-06 14_40_33-UltraEdit-32 - [J__Harbour_h-PrintFileRawPDF_retorno.ret].png (1.95 KiB) Exibido 652 vezes

Existe outra função ?

[janio]

Tentou HB_OemToAnsi?

Ou a junção das duas? HB_OemToAnsi( HB_UTF8ToStr(

[asimoes]

Janio,

Eu uso harbour 3.4 a função é Win_OemToAnsi, mas não é isso não.

O arquivo tá no formato U8-DOS vendo pelo ultraedit

Preciso converter para DOS/OEM

[asimoes]

Pessoal,

Resolvi usando iconv

iconv -t WINDOWS-1252 -f UTF-8 282263CXCV2017110117115301.ret > CONVERSAO.ret

[asimoes]

Quem precisar fica a dica do iconv para converter um arquivo UTF8 para ANSI/DOS WINDOWS-1252

Descompactar, instalar e copiar o iconv + dll da pasta bin ou colocar no path

[asimoes]

A conversão pode ser feita pelo harbour, mas tem um processo extra

cBuffer := Win_OemtoAnsi( hb_UTF8ToStr( hb_MemoRead( "282263CXCV2017110117115301.ret" ) ) )
cBuffer := StrTran( cBuffer, "?", "Ç" )

Porque o Ç na conversão fica com o caracter "?"

É por isso que eu utilizei o iconv

[rubens]

Bom dia

Asimoes...

Isso aí serve para prg também ?

Obg

Rubens

[asimoes]

Rubens,

Sim se o arquivo estiver codificado com UTF-8 ou outro formato, o utilitário faz a conversão

[asimoes]

Sintaxe do ICONV

https://www.ibm.com/support/knowledgece ... /iconv.htm