Exibir origem

import.css=/download/attachments/6062824/tecnologia.css

Converte uma string do formato ANSI Text (formato Microsoft Windows) para OEM/MS-DOS

Sintaxe

AnsiToOEM( < cStringAnsi > )

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
cStringAnsi	caractere	Indica a string (formato ANSI Text) que será convertida.	X

Retorno

Nome	Tipo	Descrição
cRet	caractere	Retorna a string convertida (formato OEM/MS-DOS) para ser exibida no MS-DOS

Observações

Este tipo de conversão somente faz-se necessária em condições muito específicas, como por exemplo a geração de um arquivo de texto ou de dados que será lido por um aplicativo que espera tal formato.
A conversão para string OEM parte do princípio do uso da página de código (Codepage) 437, onde nem todos os caracteres Ansi possuem correspondente, como por exemplo o caractere "ã" (letra A minúscula com til): Neste caso, a representação em OEM é feita com o caractere "ä" (a minúsculo com trema).

Exemplos

User Function teste()
  cTexto := "José Coração"
  MsgInfo(cTexto) // mostra no smartclient de forma correta 
  cEcho := ANSIToOEM( cTexto ) 
  conout(cEcho) // mostra no log de console do appserver Windows de forma correta
Return

Abrangência

Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

Veja também

OEMToANSI