Conversão U8-DOS para Oem

por **asimoes** » 06 Nov 2017 13:43

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) Visualizado 539 vezes

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

Existe outra função ?

por **janio** » 06 Nov 2017 13:48

Tentou HB_OemToAnsi?

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

por **asimoes** » 06 Nov 2017 14:10

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

por **asimoes** » 06 Nov 2017 20:37

Pessoal,

Resolvi usando iconv

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

por **asimoes** » 07 Nov 2017 06:22

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

por **asimoes** » 07 Nov 2017 06:48

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

por **rubens** » 07 Nov 2017 08:28

Bom dia

Asimoes...

Isso aí serve para prg também ?

Obg

Rubens

por **asimoes** » 07 Nov 2017 09:13

Rubens,

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

por **asimoes** » 07 Nov 2017 13:26

Sintaxe do ICONV

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