cStringOEMCaractereObrigatório
Texto codificado em OEM.
FUNçãOEm revisão
OemToAnsi
OEMToAnsi(cStringOEM) -> cRetConverte texto OEM/MS-DOS para ANSI/Windows.
Visão geral
A conversão existe para dados provenientes do ambiente OEM exibidos em ANSI. Não é conversão genérica para UTF-8, correção de acentos por tentativa nem normalização Unicode. A referência é histórica e seu exemplo contém caracteres que já aparentam corrupção; usamos apenas ASCII, comum às codificações envolvidas, sem prometer qual code page será aplicada no seu runtime. (Fontes: refs. 1–1.)
Sintaxe
OEMToAnsi(cStringOEM) -> cRetParâmetros
Retorno
String convertida para ANSI conforme o runtime.
Exemplo comentado
#Include "Protheus.ch"
User Function Ed561()
Local cTexto := "ED01"
// ASCII nao comprova conversao correta de acentos.
ConOut(OEMToAnsi(cTexto))
Return NilResultado esperado
Imprime ED01. Validar bytes acentuados exige amostras com origem conhecida. Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
- Identificar encoding de entrada e saída antes de converter; evitar conversão dupla e preservar o original para diagnóstico. Não substituir bytes em produção para testar.
- Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.