Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_ByteToText
Wandelt das übergebene Byte oder Array von Bytes in einen Textstring im angegebenen Zahlensystem um.
Dim bytes(0 To 7) As Byte
Dim i As Integer
For i = 0 To 7
bytes(i) = CByte(Rnd()*256)
Next
Print "Binär: " + CNCL_BytetoText(bytes, "b")
Print "Oktal: " + CNCL_BytetoText(bytes, "o")
Print "Dezimal: " + CNCL_BytetoText(bytes, "d")
Print "Hexadezimal: " + CNCL_BytetoText(bytes, "h")
Ausgabe:
Binär: 0001001001011111101111110110011100110110001110100011111001101000
Oktal: 0111375766346616437150
Dezimal: 1323987265482538600
Hexadezimal: 125FBF67363A3E68