ASOCで辞書検索じっけん

AppleScript名：ASOCで辞書検索じっけん

— Created 2015-10-22 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "dictKit" –https://github.com/mattt/DictionaryKit

set aDictionary to current application’s TTTDictionary’s dictionaryNamed:"Apple用語辞典" –macOS 10.12で"Apple 用語辞典"から"Apple用語辞典"に名称が変更された
set dRes to aDictionary’s |name|()
set dRes to dRes as text
–>　　"Apple 用語辞典"

set aTerm to "AppleScript"
set hitEntryList to (aDictionary’s entriesForSearchTerm:aTerm) as list
if hitEntryList = {missing value} then return "" –ヒットしなかった場合

repeat with i in hitEntryList
　　set j to contents of i
　　
　　set headW to (j’s headword)
　　set headW to headW as text
　　–>　　"AppleScript"
　　
　　set aText to (j’s |text|)
　　set aText to aText as text
　　(*)
　　–>　　"AppleScript
OS X に内蔵されたスクリプト言語です。AppleScript 言語のコマンドを使用すれば、“メール”、Safari、“カレンダー”など、さまざまなアプリケーションで繰り返しの作業や複雑な作業を自動化できます。
*)
　　
end repeat