Script Beispiele

Diese Seite enthält einige kurze Beispiele der häufig verwendeten Funktionen der eingebauten Scriptsprache.

Die Beispiele können in eine action Script kopiert werden und mit Menü->Ausführen getestet werden. Die Ausgabe wird in das Log von Automagic geschrieben, siehe Menü->Log.

String Operationen

Test ob eine Variable einen bestimmten Wert enthält (exakt)

value = "test";
result = value == "test";
log(result); // true

result = value == "abcd";
log(result); // false

// result in einem if-then-else prüfen
if (result)
{
    log("gleiche Werte");
}
else
{
    log("verschiedene Werte");
}

// ohne erst eine temporäre Variable zu erstellen
if (value == "test")
{
    log("es ist test");
}
else
{
    log("der Wert enthält etwas anderes");
}

Test ob eine Variable teilweise einen bestimmten Wert enthält

value = "this is a test value";
result = contains(value, "test");
log(result);// true

result = contains(value, "1234");
log(result);// false

Test ob ein String einen regulären Ausdruck matched (siehe Regular expressions)

value = "my suitcase code is 1234";
result = matches(value, '.*\\d{4}.*');
log(result);// true

result = matches(value, '.*\\d{5}.*');
log(result);// false

Extrahiere den Inhalt der Gruppen eines regulären Ausdrucks

value = "my code is 1234";
list = newList();
result = matches(value, '.*(\\d{4}).*', list);
log(result);// true

log(list);// [my code is 1234, 1234]

Erstelle eine Liste von Zeilen aus einem mehrzeiligen Text

value = "line1\nline2\nline3\nline4";
lines = split(value, "\\n"); // oder für Windows+Unix auch "\\r?\\n"

// jede Zeile einzeln ausgeben
for (line in lines)
{
    log(line);
}

Eine Liste von Worten erstellen

value = "The code of my suitcase is 1234";
words = split(value, "\\W");
log(words);// [The, code, of, my, suitcase, is, 1234]

Extrahiere den Inhalt eines HTML-Elementes

text = "<html>this is the content</html>";
start = indexOf(text, "<html>") + 6;
end = indexOf(text, "</html>", start);
value = substring(text, start, end);
log(value);// this is the content

Eine Rufnummer von 00411234567 zu 0 0 4 1 1 2 3 4 5 6 7 verändern, damit die Sprachausgabe die Nummer zeichenweise vorliest

value = "00411234567";
optimized_value = replaceAll(value, "(.)", "$1 ");
log(optimized_value);// 0 0 4 1 1 2 3 4 5 6 7

Test ob ein Dateiname mit .mp3 endet

filename = "test.mp3";
result = endsWith(filename, ".mp3");
log(result);// true

Drei Zeichen der Dateiendung abschneiden

filename = "test.mp3";
name = left(filename, length(filename) - 4);
log(name);// test

Einen Text in Grossbuchstaben umwandeln

value = "This is a test";
upper = toUpperCase(value);
log(upper);// THIS IS A TEST

Leerzeichen um einen Text entfernen

value = "   test   ";
trimmed = trim(value);
log(trimmed);// test

Variablen in einem Stringliteral ersetzen

date = getDate();// aktuelles Datum+Zeit abfragen
number = 42;
value = "Today is the {date,dateformat,dd.MM.yyyy} and the answer to the ultimate question of life, the universe, and everything is {number}";
log(value); // Today is the 29.03.2014 and the answer to the ultimate question of life, the universe, and everything is 42

Datum & Zeit

Aktuelles Datum + Zeit abfragen (siehe Date Format Pattern)

date = getDate();
log("It's {date,dateformat,yyyy.MM.dd HH:mm:ss.SSS}");// It's 2014.03.29 14:03:25.437
log("It's {date,dateformat,yyyy.MM.dd hh:mm:ss a}");// It's 2014.03.29 02:03:25 PM
log("It's {date,dateformat,dd. MMM yy}");// It's 29. Mar 14
log("It's {date,dateformat,dd. MMMM yy}");// It's 29. March 14
log("It's {date,dateformat,EEE dd. MMMM yy}");// It's Sat 29. March 14
log("It's {date,dateformat,EEEE dd. MMMM yy}");// It's Saturday 29. March 14
log("It's week {date,dateformat,w}");// It's week 13

Ein bestimmtes Datum erstellen

date = getDate(2014, 3, 29);// 29.03.2014 00:00:00
date = getDate(2014, 3, 29, 14, 3, 0);// 29.03.2014 14:03:00
date = getDate(date, 13, 0, 0);// 29.03.2014 13:00:00

Dauer zwischen zwei Datumsangaben

date1 = getDate(2014, 3, 29, 14, 0, 0);// 29.03.2014 14:00:00
date2 = getDate(2014, 3, 29, 15, 7, 30);// 29.03.2014 15:07:30
difference = date2 - date1;

// Differenz in Millisekunden ausgeben
log(difference);// 4050000

// Differenz in Sekunden ausgeben
log(difference/1000);// 4050

// Differenz als Text ausgeben
log(getDurationString(difference));// 1h 7m 30s

// Differenz im Format HH:mm:ss ausgeben (funktioniert nur bei Differenzen < 24 Stunden)
log("{difference,dateformat,timezone,UTC,HH:mm:ss}");// 01:07:30

Datum aus einem Text konvertieren und anders formatiert wieder ausgeben

value = "03/29/2014 14:00";
date = getDate(value, "MM/dd/yyyy HH:mm");
log("{date,dateformat,EEEE dd. MMMM}");// Saturday 29. March

Ein Datum verändern

date = getDate(2014, 3, 29, 14, 0, 0);// 29.03.2014 14:00:00
new_date = addSeconds(date, 30);// 29.03.2014 14:00:30
new_date = addMinutes(date, 15);// 29.03.2014 14:15:00
new_date = addHours(date, 3);// 29.03.2014 17:00:00

// das Selbe aber durch Addieren von Millisekunden
new_date = date + 30*1000;// 29.03.2014 14:00:30
new_date = date + 15*60*1000;// 29.03.2014 14:15:00
new_date = date + 3*60*60*1000;// 29.03.2014 17:00:00

Listen

Erstellen von Listen

list = newList();
log(list);// [] (empty)

list = newList("a", "b", "c");
log(list);// [a, b, c]

list = [1 to 10];
log(list);// [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]

Elemente zu einer Liste hinzufügen

list = newList();

// Elemente hinzufügen
addElement(list, "a");
addElement(list, "b");
addElement(list, "c");
addElement(list, "d");
addElement(list, "e");
log(list);// [a, b, c, d, e]

Werte einer Liste sortieren

list = newList("c", "a", "d", "b");
sort(list);
log(list);// [a, b, c, d]

Liste umdrehen

list = newList("a", "b", "c", "d");
reverse(list);
log(list);// [d, c, b, a]

Index eines Elementes suchen

list = newList("a", "b", "c", "d");
index = indexOfElement(list, "c");
log(index);// 2

Element an einem Index entfernen

list = newList("a", "b", "c", "d");
removeElement(list, 2);
log(list);// [a, b, d]

Element an einem Index einfügen

list = newList("a", "b", "c", "d");
addElement(list, 2, "x");
log(list);// [a, b, x, c, d]

Test ob ein Element in der Liste enthalten ist

list = newList("a", "b", "c", "d");
result = containsElement(list, "c");
log(result);// true

Element zu einer Liste hinzufügen, wenn es nicht bereits enthalten ist

list = newList("a", "b", "c", "d");
element = "x";
if (not containsElement(list, element))
{
    addElement(list, element);
}
log(list);// [a, b, c, d, x]

Wert "c" aus der Liste entfernen

list = newList("a", "b", "c", "d");
removeElementValue(list, "c");
log(list);// [a, b, d]

Länge der Liste prüfen

list = newList("a", "b", "c", "d");
length = length(list);
log(length);// 4

Element in die Liste aufnehmen aber die Liste maximal 4 Elemente lang werden lassen

list = newList("a", "b", "c", "d");
addElement(list, "x");
if (length(list) > 4)
{
    removeElement(list, 0);
}
log(list);// [b, c, d, x]

Schleife über die Elemente einer Liste

list = newList("a", "b", "c", "d");
for (element in list)
{
    log(element);
}
// gibt a, b, c, d auf jeweils einer Zeile aus

Maps

Leere Map erstellen

map = newMap();
log(map);// {} (leer)

Schlüssel/Wert-Paare einer Map hinzufügen

map = newMap();
addMapEntry(map, "key1", "a");
addMapEntry(map, "key2", "b");
addMapEntry(map, "key3", "c");
log(map);// {key1=a, key2=b, key3=c}

Eintrag überschreiben

map = newMap();
addMapEntry(map, "key1", "a");
addMapEntry(map, "key2", "b");
addMapEntry(map, "key3", "c");

addMapEntry(map, "key3", "x");
log(map);// {key1=a, key3=b, key3=x}

Wert eines Schlüssels auslesen

map = newMap();
addMapEntry(map, "key1", "a");
addMapEntry(map, "key2", "b");
addMapEntry(map, "key3", "c");

value = getMapValue(map, "key2");
log(value);// b

Liste aller Schlüssel und Werte einer Map auslesen

map = newMap();
addMapEntry(map, "key1", "a");
addMapEntry(map, "key2", "b");
addMapEntry(map, "key3", "c");

// Liste aller Werte einer Map
values = getMapValues(map);
log(values);// [a, b, c]

// Liste aller Schlüssel einer Map
values = getMapKeys(map);
log(values);// [key1, key2, key3]

XML

Die Beispiele in diesem Kapitel verwenden folgendes XML (in Variable input):

<books>
    <book>
        <title>Book 1</title>
        <price>12.50</price>
        <pages format="A4">745</pages>
    </book>
    <book>
        <title>Book 2</title>
        <price>35.70</price>
        <pages format="A5">120</pages>
    </book>
    <book>
        <title>Book 3</title>
        <price>17.90</price>
        <pages format="letter">1230</pages>
    </book>
</books>

Büchertitel extrahieren

// Titel des ersten Buches
title = evaluateXPathAsString(input, "/books/book[1]/title");
log(title);// Book 1

// Titel des zweiten Buches
title = evaluateXPathAsString(input, "/books/book[2]/title");
log(title);// Book 2

// Titel des letzten Buches
title = evaluateXPathAsString(input, "/books/book[last()]/title");
log(title);// Book 3

Preis der Bücher extrahieren

// Preis vom Buch mit Titel 'Book 1'
price = evaluateXPathAsString(input, "/books/book[title='Book 1']/price");
log(price);// 12.50

// Preis des ersten Buches mit mehr als 1000 Seiten
price = evaluateXPathAsString(input, "/books/book[pages>1000]/price");
log(price);// 17.90

Seitenformat von Book 1 ausgeben

format = evaluateXPathAsString(input, "/books/book[title='Book 1']/pages/@format");
log(format);// A4

Titel des Buches mit Seitenformat A5 ausgeben

format = evaluateXPathAsString(input, "/books/book/pages[@format='A5']/../title");
log(format);// Book 2

Zahlentheorie

RSA (verwendet experimentelle Funktionen)

p = randomProbablePrime(512);
q = randomProbablePrime(512);

phi = (p-1)*(q-1);
n = p*q;
e = 65537;

pk = modInverse(e, phi);

log("n: " + n);

orig = "This is a test";
log("orig: " + orig);

m = convertStringToBigInteger(orig);
log("m: " + m);

enc = modPow(m, e, n);
log("encoded: " + enc);

dec = modPow(enc, pk, n);
log("decoded: " + convertBigIntegerToString(dec));

Diffie Hellman (verwendet experimentelle Funktionen)

g = 5;
p = randomProbablePrime(512);

a = 6;
b = 15;

alice = modPow(g, a, p);
bob = modPow(g, b, p);

log(s = modPow(bob, a, p));
log(s = modPow(alice, b, p));