Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_IsBase64
Überprüft, ob der übergebene Text T das Format Base64 hat.
Rückgabewert ist True für Base64-kodierte Texte, ansonnsten wird False zurückgegeben
Dim txt As String
Dim kodiert As String
txt = "Wer reitet so spät durch Nacht und Wind?"
kodiert = CNCL_Base64Encode(txt, True)
Print txt
If CNCL_IsBase64(txt) Then
Print |Die Variable "txt" ist Base64 kodiert|
Else
Print |Die Variable "txt" ist nicht Base64 kodiert|
End If
Print kodiert
If CNCL_IsBase64(kodiert) Then
Print |Die Variable "kodiert" ist Base64 kodiert|
Else
Print |Die Variable "kodiert" ist nicht Base64 kodiert|
End If
Ausgabe:
Wer reitet so spät durch Nacht und Wind?
Die Variable "txt" ist nicht Base64 kodiert
V2VyIHJlaXRldCBzbyBzcOR0IGR1cmNoIE5hY2h0IHVuZCBXaW5kPw==
Die Variable "kodiert" ist Base64 kodiert