Descrição
| Converte Valor Caracter para Binário. |
Sintaxe
| Str2Bin( <cValor> ) |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
| 01 |
cValor | Caracter | Valor a Converter | X |
Retorno
| Retorno | Tipo | Descrição |
| nRet | Numérico |
Resultado da Conversão |
Exemplo
#INCLUDE "TOTVS.CH" User Function Str2Bin() Local cValor := 'UniversoADVPL' MsgInfo( 'Valor: ' + cValtoChar(cValor) + CRLF + 'Retorno: ' + cValtoChar( Str2Bin( cValor ) ), 'UniversoADVPL' ) cValor := " x x x x x xx" MsgInfo( 'Valor: ' + cValtoChar(cValor) + CRLF + 'Retorno: ' + cValtoChar( Str2Bin( cValor ) ), 'UniversoADVPL' ) cValor := " x x x x " MsgInfo( 'Valor: ' + cValtoChar(cValor) + CRLF + 'Retorno: ' + cValtoChar( Str2Bin( cValor ) ), 'UniversoADVPL' ) cValor := "x" MsgInfo( 'Valor: ' + cValtoChar(cValor) + CRLF + 'Retorno: ' + cValtoChar( Str2Bin( cValor ) ), 'UniversoADVPL' ) Return( Nil )
Resultado
Exemplo adicionais
|
01 |
Str2Bin("x") |
|
02 |
Str2Bin(" x x x x x xx") |
|
X |
1 |
|
Vazio |
0 |
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎