ASSINE A NEWSLETTER

Cadastrando...

PIX uDesenv

(CARACTER) STR2BIN

Autor: Eurai Criado: 01/01/2016 Atualizado: 28/07/2021

Descrição

Converte Valor Caracter para Binário.

Sintaxe

Str2Bin( )

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
str2bin_-_resultado_01

str2bin_-_resultado_02

str2bin_-_resultado_03

str2bin_-_resultado_04

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! 😎

Facebook