TOTVSTEC

Árvore de páginas

Converte uma string com caracteres para uma string com o valor binário de cada caractere.

Sintaxe

Bin2Str( < cString > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cString

caractere

Indica a string que será convertida.

X

 

Retorno

Nome

Tipo

Descrição

cRet

caractere

Retorna uma string formatada de acordo com a string informada.

Observações

A string retornada possui o valor binário da string informada em que os espaços em branco " " correspondem ao 0 e o "x" minúsculo corresponde ao 1.

Exemplo

cString

Bin2Str

Binário correspondente

"A"

" x x"

01000001

"AB"

" x x x x "

0100000101000010

"ABC"

" x x x x x xx"

010000010100001001000011

Exemplos

Exemplo 1
#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
  Local cMensagem := ""
  //+----------------------------------------------------------------------------+
  //|Exemplifica o uso da função Bin2Str                                         |
  //+----------------------------------------------------------------------------+  
  cMensagem += Bin2Str("A")          + " = Bin2Str(         'A')" + CRLF  
  cMensagem += Bin2Str("A" + Chr(0)) + " = Bin2Str('A' + Chr(0))" + CRLF  
  cMensagem += Bin2Str("AB")         + " = Bin2Str(        'AB')" + CRLF  
  cMensagem += Bin2Str("ABC")        + " = Bin2Str(       'ABC')" + CRLF
  //+----------------------------------------------------------------------------+
  //|Apresenta uma mensagem com os resultados obtidos                            |
  //+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do Bin2Str")

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

Veja também

  • Sem rótulos