Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_BinInverse
Invertiert den übergebenen Binärstring.
Dim i As Integer
Dim s As String
For i = 1 To 8
s = CNCL_mkCode(14, CNCL_code_bin)
Print s + " => " + CNCL_BinInverse(s)
Next
Ausgabe:
10110011111111 => 01001100000000
10100010001000 => 01011101110111
11110111101100 => 00001000010011
11001111100111 => 00110000011000
00001011101100 => 11110100010011
10000111111001 => 01111000000110
10010001010000 => 01101110101111
00110011010100 => 11001100101011