global OriginalList
set OriginalList to {"String 1", "String 2", "String 3", "String n"}
set ListOfSelections to addIndexToItem(OriginalList)
set r to choose from list ListOfSelections with prompt "Pick one or more:" with multiple selections allowed
set ListOfItemsOfOriginalList to getItemsOfOriginalList(r)
on addIndexToItem(Array)
set tmpList to {}
repeat with i from 1 to count of Array
set theItem to item i of Array
set theItem to (i as text) & ": " & theItem
copy theItem to end of tmpList
end repeat
return tmpList
end addIndexToItem
on getItemsOfOriginalList(r)
set tmpList2 to {}
set TID to AppleScript's text item delimiters
set AppleScript's text item delimiters to ":"
repeat with d from 1 to count of r
set dItem to item d of r
set dItem to (text item 1 of dItem as number)
copy item dItem of OriginalList to end of tmpList2
end repeat
return tmpList2
set AppleScript's text item delimiters to TID
end getItemsOfOriginalList
Hope it'll work :)
Hans-Gerd claßen
Tel. 02406 65515
Büro 0241 5101 302