Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 4 Atual »

Função: Bin2Str

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

Bin2Str ( < cString> ) --> cRet

NomeTipoDescriçãoObrigatórioReferência
cStringCaracterIndica a string que será convertida. X
    cRet(caracter)
  • Retorna uma string formatada de acordo com a string informada.

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(cString)   Binário correspondente
"A" "  x     x" 01000001
"AB" " x     x x    x "
 0100000101000010
"ABC"
  " x     x x    x  x    xx"
  010000010100001001000011

 

#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")

Exemplo da função Bin2Str
Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • Sem rótulos