Histórico da Página

import.css=/download/attachments/6062824/tecnologia.css

Retorna a quantidade de bits que estão em 1 numa com nível lógico igual a 1 em uma string.

Sintaxe

Look4Bit( < cStr >, < nStart >, < nTest >, < nLength > )

...

Retorno

Observações

• nStart inicia em 1.
• nLength inicia em 0.
• nTest inicia em 0.
• Caso seja passado um valor menor do que 1 em nStart, a aplicação AdvPL é interrompida com a exceção "Start Bit out of bounds on Look4Bit".
• Caso seja passado um valor menor do que 0 em nLength, a aplicação AdvPL é interrompida com a exceção "Length Bit out of bounds on Look4Bit".
• Caso o tamanho da string passada em cStr seja menor do que o valor passado em nLength, a aplicação AdvPL é interrompida com a exceção "Bit string out of bounds on Look4Bit".

Exemplos

User Function tstL4BitExemplo()
  Local cStr := ""
  Local nStart := 0, nTest := 0, nLen := 0, nRet := -1
  
  cStr := chr( 240 ) + chr( 240 ) + chr( 10 ) + chr( 160 )
  nStart := 1
  nTest := 32
  nLen := Len( cStr ) - 1
  nRet := Look4Bit( cStr, nStart, nTest, nLen )
  
  //será exibido 12
  conout( nRet )
return

...

• StuffBit
• UnStuff
• NotBit
• BitOn

...