–case 1
using terms from scripting additions –ここ、AppleScriptObjC（use framework "Foundation"宣言時）では必要になる
　　set bRes to offset of "a" in "bcdefa"
end using terms from
–> 6

–case 2 (The target case)
set aTargList to {"Safari", "の", "メニュー", "で", "「", "ファイル", "」", "＞", "「", "PDF", "を", "書き出す", "」", "を", "実行"}
set bList to {"の", "メニュー", "で"}
using terms from scripting additions
　　set aRes to offset of bList in aTargList
end using terms from
–> 2

–case 3 (Illegular case)
set aTargList to {"Safari", "の", "メニュー", "で", "「", "ファイル", "」", "＞", "「", "PDF", "を", "書き出す", "」", "を", "実行"}
set bList to "で"
using terms from scripting additions
　　set aRes to offset of bList in aTargList
end using terms from
–> 4

–case 4 (Illegular case)
set aTargList to "で"
set bList to {"で"}
using terms from scripting additions
　　set aRes to offset of bList in aTargList
end using terms from
—> 1

on offset of bArg in anArg
　　set aClass to class of anArg
　　set bClass to class of bArg
　　
　　if {aClass, bClass} = {text, text} then –case 1
　　　　return getOffset(anArg, bArg) of me
　　else if {aClass, bClass} = {list, list} then –case 2 (The target case)
　　　　return execOffsetList(bArg, anArg) of me
　　else if {aClass, bClass} = {text, list} then –case 3 (Illegular case)
　　　　return execOffsetList(bArg, {anArg}) of me
　　else if {aClass, bClass} = {list, text} then –case 4 (Illegular case)
　　　　return execOffsetList({bArg}, anArg) of me
　　end if
end offset

–1D List同士のoffset演算を行うルーチンの本体
on execOffsetList(aList as list, bList as list)
　　set resList to {}
　　repeat with i in aList
　　　　set j to contents of i
　　　　set aCount to 1
　　　　
　　　　repeat with ii in bList
　　　　　　set jj to contents of ii
　　　　　　if jj = j then
　　　　　　　　set the end of resList to aCount
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　set aCount to aCount + 1
　　　　end repeat
　　end repeat
　　
　　–見つかったItem No.が連続値かどうかチェック
　　set sRes to chkSequential(resList) of me
　　if sRes = true then
　　　　return contents of first item of resList
　　else
　　　　return false
　　end if
end execOffsetList

–与えられた1D Listが連続値かどうかをチェックする
on chkSequential(aList)
　　if length of aList = 1 then return true
　　
　　set aFirst to first item of aList
　　set aList to rest of aList
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is not equal to (aFirst + 1) then
　　　　　　return false
　　　　end if
　　　　copy j to aFirst
　　end repeat
　　
　　return true
end chkSequential

–テキスト同士のoffset ofを（2.5x fasterで）実行する
on getOffset(str, searchStr)
　　set d to divideBy(str, searchStr)
　　if (count d) is less than 2 then return 0
　　return (length of item 1 of d) + 1
end getOffset