import.css=/download/attachments/6062824/tecnologia.css |
Altera uma sequencia de bits de uma string para 0.
UnStuff( < @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 0. | X |
|
nLength | numérico | Indica o índice do último byte que será modificado. | X |
|
User Function tstUnStuff() Local cStr := "", cRet := "" Local nStart := 0, nTest := 0, nLen := 0 cStr := chr( 255 ) + chr( 255 ) + chr( 255 ) + chr( 255 ) nStart := 5 nTest := 8 nLen := Len( cStr ) - 1 UnStuff( @cStr, nStart, nTest, nLen ) //será exibida a string "11110000000011111111111111111111" 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 |