リストから選択してアイテム番号を返す

AppleScriptの配列変数であるリスト型の変数（ただし、１次元）から選択し、選択した要素のアイテム番号（1はじまり）を数値で返すAppleScriptです。

AppleScriptに標準で用意されている「choose from list」コマンドは、選択した項目の文字列を返してきますが、その仕様だと困るケースがけっこうあります。

選択された要素の内容（文字列）ではなく、何項目（インデックス、アイテム番号）が選択されたかという情報を返してきてほしいところです。

そこで、ないなら作ってしまえばよいわけで、そういう仕様のルーチンを自分で作っておいたわけです。

AppleScript名：リストから選択してアイテム番号を返す

set aList to {"red", "blue", "green", "white"}
set aMes to "項目を選択してください"
set aRes to retItemFromListByItemNo(aList, aMes) of me
–> 3 (選択したアイテムの番号（１はじまり）が返る

–リストから選択してアイテム番号を返す
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