Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_ByteReverse
Dreht die Reihenfolge der Bits eines Bytes oder eines Arrays von Bytes um.
Dim a(0 To 3) As Byte
Dim x As Byte
Dim b As Variant
a(0) = &b00110011
a(1) = &b01010101
a(2) = &b00111001
a(3) = &b10010000
x= &b001110
b = CNCL_ByteReverse(a)
ForAll werta In a
Print Right(UString(8, "0") + Bin(werta), 8)
End ForAll
Print
ForAll wertb In b
Print Right(UString(8, "0") + Bin(wertb), 8)
End ForAll
Print
Print Right(UString(8, "0") + Bin(x), 8) + " => " + Right(UString(8, "0") + Bin(CNCL_ByteReverse(x)), 8)
Ausgabe:
00110011
01010101
00111001
10010000
00001001
10011100
10101010
11001100
00001110 => 01110000