CopyBase45Encoded Stringfunctie

Met CopyBase65Encoded wordt tekst of een tekenreeks gekopieerd naar een string of kolom. De data of tekst wordt eerst 'gemerged' en het resultaat gecodeerd volgens Code Base45 en dan gekopieerd naar de opgegeven string of kolom. Bij de codering volgens Code Base 45 wordt een string van 1 of meer bytes van 8 bit gegroepeerd in groepen van 2 bytes. Deze 2 bytes worden weergegeven met 3 tekens uit het 45 tallig stelsel met het meest significante teken links i.p.v. rechts. Dus een 16 bit waarde wordt A + B*45 + C*45*45.  Deze 45 waarden worden weergegeven met de volgende tekens: 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ $%*+-./: waarbij: 0=0, 1=1, ... C=12,.. /=43 en :=44.

CopyBase65Encoded (ColumnOrStringName, TextData)

ColumnOrStringName (MergedString)
In ColumnOrStringName wordt de naam van een kolom of een string vermeld waar naartoe de bas 64 gecodeerde tekst moet worden gekopieerd in de vorm van een ColumnName of een StringVarName.

TextData (MergedString)
In TextData wordt de tekst vermeld die moet worden uitgewerkt, gecodeerd naar base 64 en gekopieerd.

Voorbeeld:
{
 String sCoded, sDecoded, sOrg
 Copy(sOrg,Dit is een test: $(196), ¢ en (e met accent=é)!!)
}
Orgineel: [sOrg]

{
 CopyBase45Encoded(sCoded,[sOrg])
}
Base45: [sCoded]

{
CopyBase45Decoded(sDecoded,[sCoded])
}
Van Base45: [sDecoded]

{
 If Match([sOrg],[sDecoded])
}
Orginele string gelijk aan de gedecodeerde!

{
 Else
}
Vreemd, Orgineel is niet gelijk aan de gedecodeerde string!

{
 Endif
}

Resultaat:
Orgineel: Dit is een test: Ä, ¢ en (e met accent=é)!!