Str2Bin - Resultado

Str2Bin

 

Descrição

Converte Valor Caracter para Binário

Sintaxe

Str2Bin( <cValor> )

Parâmetros

ParNomeTipoDescriçãoDefaultObgRef
01cValorCaracterValor a ConverterX

Retorno

RetornoTipoDescrição
cValorCaracterResultado da Conversão

Exemplo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#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

Str2Bin – Resultado

Str2Bin - Resultado

Str2Bin – Resultado

Str2Bin - Resultado

Str2Bin – Resultado

Str2Bin - Resultado

Str2Bin – Resultado

Informação Adicional

Exemplo Adicional
01 Str2Bin("x")
02 Str2Bin(" x     x x    x  x    xx")
X 1
Vazio 0

 

3 respostas
    • Universo ADVPL
      Universo ADVPL says:

      Fala aee…
      Sinceramente no dia a dia ainda não vi utilidade, nunca precisei e nunca vi usarem.
      Acredito que o uso seja interno da totvs. Por Exemplo: Colocar informações no campo X3_OBR/RESERV => "€€€€€€€€€€€€€€ " / "€€" / "–À" / "›€" / "šÀ" e por ai vai.
      Agora a função Bin2Str (Inverso) pode ser usado para ver se um campo é obrigatório. Existe claro a função X3Obrigat(), mas já vi q não funciona direito.
      Ex: Subs(Bin2Str(SX3->X3_OBRIGAT),1,1)== "x" ou Subs(X3Reserv(SX3->X3_RESERV),7,1)=="x"

      Agora. Pega a Str2Bin e usa assim:
      Str2Bin("x")
      Depois Usa
      Str2Bin(" x x x x x xx")

      X ==> 1
      Vazio ==> 0

      Mas a ideia é documentar as funções no site e divulgar

      Responder

Deixe uma resposta

Want to join the discussion?
Feel free to contribute!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *