Fehler gefunden:

Im Handbuch wird unter "Funktionen->Textfunktionen" die Funktion falsch beschrieben.

Richtig im Handbuch "Erweiterte Funktionen->Funktions- und Sprachreferenz-> Textfunktionen"

Hallo,

du kannsteunen Text ganz leicht Zeichenweise in ein Array umwandeln:

let myArray := split(Text, "")

Oder auch Text direkt zeichenweise in einer Schleife durchlaufen:

for myZeichen in Text do ... end

VG Frank

ABSOLUT TOLL - jetzt habe ich eine schlanke Version, um die Prüfziffer einer EAN zu berechnen.

Danke Dir!

let myEAN := 0;
let gerade := false;
"kleiner Workarround, weil man die Quersumme von der letzten Stelle an berechnet";
if odd(length(Text)) = true then
gerade := false
else
gerade := true
end;
"Quersumme wird berechnet";
for ii in Text do
if gerade = false then
myEAN := myEAN + number(ii) * 3;
gerade := true
else
myEAN := myEAN + number(ii);
gerade := false
end
end;
Quersumme := myEAN;
"Als workarround die Formel für die Prüfziffer - Mod 10";
'Prüfziffer' := abs(Quersumme / 10 - ceil(Quersumme / 10)) * 10