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

Sintaxe

OEMToAnsi( < cStringOEM > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cStringOEM

caractere

Indica a string (formato OEM/MS-DOS) que será convertida.

X

 

Retorno

Nome

Tipo

Descrição

cRet

caractere

Retorna a string convertida (formato ANSI) para ser exibida no Microsoft Windows

Observações

  • Ao utilizar um programa baseado no MS-DOS para alimentar uma base de dados, os acentos e caracteres especiais são gravados como texto OEM. Porém, para visualizar esses dados, na interface do Microsoft Windows, é necessário converter a string de OEM/MS-DOS para ANSI Text.

Exemplos

Exemplo 1
User Function teste()
  cTexto := "Aten‡„o"
  msginfo(cTexto)
  cTexto := OEMToANSI( cTexto ) // Resultado: "Atençäo"
  msginfo(cTexto)
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

  • Sem rótulos