Descrição
| Transforma uma cadeia de caracteres no formato OEM / MS-DOS Text para uma cadeia de caracteres no formato ANSI Texto (formato do Windows). |
Sintaxe
| OemToAnsi( <cTexto>) |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
| 01 |
cTexto | Caracter | Cadeia de caracteres que será convertida do formato OEM / MS-DOS Text para o formato ANSI Texto | X |
Retorno
| Retorno | Tipo | Descrição |
| cRet | Caracter |
Texto em Ansi |
Exemplo
#INCLUDE "TOTVS.CH" User Function OemToAnsi() Local cTexto := 'UniversoADVPL' MsgInfo( 'Valor: ' + cTexto + CRLF + 'Retorno: ' + OemToAnsi(cTexto), 'UniversoADVPL' ) Return( Nil )
Resultado
Informações adicionais
|
Quando utilizamos um programa baseado no MS-DOS para alimentar uma base de dados , os acentos e os caracteres especiais são gravados como texto OEM. Para que esses dados sejam visualizados corretamente numa interface Windows, utilizamos a função OemToAnsi() para convertê-los |
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎