1D List中の存在確認（ASOC）

AppleScript名：1D List中の存在確認（ASOC）

— Created 2017-10-03 17:56:08 +0900 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set kinsokuCharList to {"︒", "︑", "﹁", "﹂", "﹃", "﹄", "︻", "︼", "﹇", "﹈", "︷", "︸", "︵", "︶", "︱", "⌇", "ァ", "ィ", "ゥ", "ェ", "ォ", "ョ", "ぁ", "ぃ", "ぅ", "ぇ", "ぉ", "ょ"}
set aRes to offsetInList("ぁ", kinsokuCharList) of me
–> 22
set aRes to offsetInList("あ", kinsokuCharList) of me

on offsetInList(aChar, aList)
　　set anArray to current application’s NSArray’s arrayWithArray:aList
　　set aInd to (anArray’s indexOfObject:aChar)
　　if aInd = current application’s NSNotFound or (aInd as number) > 9.99999999E+8 then
　　　　return false
　　else
　　　　return aInd as integer
　　end if
end offsetInList