Descrição
OemToAnsi [AS] - Transforma uma cadeia de caracteres no formato OEM / MS-DOS Text para uma cadeia de caracteres no formato ANSI Texto (formato do Windows).
|
Sintaxe
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! 😎
