TOTVSTEC

Árvore de páginas

Tempo aproximado para leitura: 2 minutos

Retorna a quantidade de bits com nível lógico igual a 1 em uma string.

Sintaxe

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

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cStr

caractere

Indica a string que será verificada.

X


nStart

numérico

Indica o índice do bit inicial.

X


nTest

numérico

Indica a quantidade de bits que serão verificados.

X


nLength

numérico

Indica o índice do último byte que será testado.

X


Retorno

Nome

Tipo

Descrição

nRet

numérico

Retorna a quantidade de bits 1 na string apontada por cStr.

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 Exemplo()
  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

Veja também

  • Sem rótulos