Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_Base64urlEncode
Kodiert den übergebenen Text in das Format Base64url. Gemäß Standard werden nötige "=" angehängt.
Wenn ncr=True werden alle 76 Zeichen ein CRLF eingefügt.
Rückgabewert ist der kodierte Text
Dim txt As String
Dim kodiert As String
txt = |Wer reitet so spät durch Nacht und Wind?
Es ist der Vater mit seinem Kind.
Er hat den Knaben wohl in dem Arm,
Er faßt ihn sicher, er hält ihn warm.
|
kodiert = CNCL_Base64urlEncode(txt, True)
Print txt
Print kodiert
Ausgabe:
Wer reitet so spät durch Nacht und Wind?
Es ist der Vater mit seinem Kind.
Er hat den Knaben wohl in dem Arm,
Er faßt ihn sicher, er hält ihn warm.
V2VyIHJlaXRldCBzbyBzcOR0IGR1cmNoIE5hY2h0IHVuZCBXaW5kPwpFcyBpc3QgZGVyIFZhdGVy
IG1pdCBzZWluZW0gS2luZC4KRXIgaGF0IGRlbiBLbmFiZW4gd29obCBpbiBkZW0gQXJtLApFciBm
Yd90IGlobiBzaWNoZXI