–リストから選択してアイテム番号を返す
on retItemFromListByItemNo(aList, aMes)
　　set aRes to choose from list aList with prompt aMes
　　if aRes = false then return 0
　　
　　set aRes to contents of item 1 of aRes
　　set hitNum to 1
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is equal to aRes then
　　　　　　exit repeat
　　　　end if
　　　　set hitNum to hitNum + 1
　　end repeat
　　return hitNum
end retItemFromListByItemNo

★Click Here to Open This Script