Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_ByteXOR
Erzeugt eine logische Antivalenz-Verknüpfung der korrespondiernden Elementen der beiden Arrays.
Dim A(0 To 2) As Byte
Dim B(0 To 1) As Byte
Dim C As Variant
A(0) = &b00011011
A(1) = &b01110111
A(2) = &b11001111
B(0) = &b11000011
B(1) = &b10101010
C = CNCL_ByteXOR(A, B)
ForAll wert In C
Print Right(UString(8, "0") + Bin(wert), 8)
End ForAll
Ausgabe:
11011000
11011101
11001111