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
|