liste aus string erstellen

[herkules]

hallo zusammen!
diese kleine routine erstellt aus einem string eine liste. praktisch für schlaufen oder prüfungen.

--****************************
-- Liste aus String generieren
--****************************

-- Aufruf
set Variabel to |ListeErstellen|("Input_String", "_") as list

-- Liste aus String erstellen
--***************************
on |ListeErstellen|(Input, Delimiter)

-- Output loeschen
set Output to {}

-- Delimiter uebergeben
set AppleScript's text item delimiters to Delimiter

-- Liste mit den einzelnen Werten zurueckgeben
set Output to (text items 1 thru -1 of Input) as list

-- Delimiter auf "" setzen
set AppleScript's text item delimiters to ""

-- Liste zurueckgeben
return Output

end |ListeErstellen|
_________________
gruss christos;-)

[TomasTe]

Hat anschließend keine 3 Tage gedauert und man teilte mir mit, dass man "ausnahmsweise" auf die Gebühren bestes online casino verzichten würde und diese meinem Girokonto gutgeschrieben hätte.