システムソフト電子辞典 Scripts

●入力キーワードを検索

display dialog "検索キーワードを入力してください。" default answer "" buttons {"検索"} default button 1
set find_words to text returned of result
tell application "システムソフト電子辞典3.5.1"
    activate
    setDictName "国語辞典"
    -- 辞典名でもいいし、ツールメニューの「辞典のグループ化」で作成したグループ化辞典名でもいいです。
    -- OS X版ではこのスクリプトは動きません。このコマンドが無いみたいで、今のところどうすればいいかわかりません。
    -- ちょっと逃げの解決策ですが、Jammingを使えばOS Xでも同様のスクリプトで辞書が使えますね。
    -- EGWord 14に付属する電子辞典ビューア (EGWord内で動くものではなく、ちゃんと独立したアプリケーション) もいいかも。
    -- setDirection "完全"
    doSearch find_words
end tell

●選択キーワードを検索

tell application "OpenMenu Prefs" to set find_words to cmContext as string
-- ここではOpenMenuを利用しましたが、アプリケーションによっては選択部分を取得できます。
-- 例えばEGWordやJedit, mi, QuoEdit, Tex-Edit Plus, uNote, IBM SpeakPadなどでは以下のようにします
-- set find_words to selection of front document
-- LightWayTextやiTextでは以下のようにするといいです
-- set find_words to text item of front document
-- (上のtext itemの代わりにwordとかでも動作する，文法的にふさわしいのは？)
-- iCabでは以下のようにすればいいです
-- set find_words to selection of front window
-- Eudoraでは以下のようになります
-- set find_words to selected text of front window
-- OS 8.5-9ではCMScriptを利用してもいいでしょう 。
-- クリップボードの内容を検索キーワードにするという手もあります。
-- set find_words to the clipboard as string
-- ちなみにシステムソフト電子辞典のウィンドウにキーワードをドロップしても検索できますよ。
tell application "システムソフト電子辞典3.5.1"
    activate
    setDictName "国語辞典"
    -- setDirection "完全"
    doSearch find_words
end tell