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;-)