Tempo de leitura: 1 minuto
A função OEMToAnsi converte uma string do formato OEM/MS-DOS Text para ANSI Text(formato do Microsoft Windows). Ela é uma das funções de manipulação de string em ADVPL.
Sintaxe:
OEMToAnsi(cStringOEM)
Parâmetro(s):
Retorno:
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.
Exemplo de OEMToAnsi em ADVPL:
#include 'protheus.ch'
/*{Protheus.doc} User Function POEMToAn
(Essa função tem por finalidade mostrar a função de Manipulação de String OEMToAnsi em ADVPL)
@type Function
@author Adilio Costa
@since 29/11/2023
@version Protheus 12.1.2210
@site https://www.protheusadvpl.com.br
@canal https://www.youtube.com/protheusadvpl
@instagram https://www.instagram.com/protheusadvpl
@Portal ProtheusAdvpl:https://hotm.art/portal_protheusadvpl
@Post:OEMToAnsi
*/
User Function POEMToAn()
Local cTexto := "Atenção"
MsgInfo("O texto "+cTexto,"Função OemToAnsi")
cTexto := OEMToANSI(cTexto) // Resultado: "Atençäo"
MsgInfo(cTexto)
Return
É isso aí, finalizamos mais um post aqui no Blog ProtheusAdvpl. Caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br, até um próximo post, grande abraço e fica com Deus.
Link(s) de referência(s):
