import.css=/download/attachments/6062824/tecnologia.css |
Altera uma sequencia de bits de uma string para 1.
StuffBit( < @cStr >, < nStart >, < nTest >, < nLength > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cStr | caractere | Indica a string que será modificada. | X | X |
nStart | numérico | Indica o índice do bit inicial. | X |
|
nTest | numérico | Indica a quantidade de bits que serão colocados em 1. | X |
|
nLength | numérico | Indica o índice do último byte que será modificado. | X |
|
User Function tstStuff() Local cStr := "", cRet := "" Local nStart := 0, nTest := 0, nLen := 0 cStr := chr( 0 ) + chr( 0 ) + chr( 0 ) + chr( 0 ) nStart := 5 nTest := 8 nLen := Len( cStr ) - 1 StuffBit( @cStr, nStart, nTest, nLen ) //será exibida a string "00001111111100000000000000000000" conout( bitstrdump( cStr ) ) return STATIC Function BitStrDump( cString, nStart, nLength ) Local cStrDump := '', cAsc := '' Local nTamStr := len( cString ), nI := 0 DEFAULT nStart := 1 DEFAULT nLength := nTamStr cString := SubStr( cString, nStart, nLength ) For nI := 1 to nTamStr cASC := SubStr( cString, nI, 1 ) cStrDump += NToC( Asc( cASC ), 2, 8, "0" ) Next nI Return cStrDump |