役に立つかもしれないapplescriptのscript

ちょっと褒めて終わりましょう、ということで一日二回更新。極端。

内省報告でもなんでもいいんですが、何かしらテキストで回答したものを、エクセルに自動的にはっつけるスクリプトです。これは多分、うまく使えば結構便利だと思います。

set questionList to {"本日の体調は？", "本日の実験に対する感想は?", "次に参加する際の連絡先は？"}
--質問のリスト。{}内に、要素をコンマで区切って並べると、リスト内要素になります。
set answerList to {}
--回答のリストを入れるための変数を作っておく
repeat with i from 1 to number of questionList
--質問リストの個数分繰り返す
display dialog item i of questionList default answer "" buttons {"Answer", "Cancel"} with icon 1 default button 1 with title "内省報告" cancel button "cancel"
--質問リストのi個目を、dialogに出す。default answerは空。[Answer]と[Cancel]ボタンを入れる。ひとつめ（Answerの方）のボタンをデフォルトにする。タイトルは"内省報告"。"cencel"の方は、cancelボタンにする。
set end of answerList to text returned of the result as Unicode text
--結果として、テキストに入力したものを、answerListの最後に入れる（Unicode textとして）
end repeat
--繰り返しおわり

tell application "Finder"
--Finderを呼び出す
open application "Microsoft Excel"
--Excelを開く
tell application "Microsoft Excel"
--Excelをactivate
make new workbook
--新しいworkbookを開く
repeat with i from 1 to number of answerList
--answerListの個数分繰り返し
set formula of column 1 of row i to item i of answerList
--answerListのi個目のアイテムを、excelの開いたシートの1列目のi行目に入れる
end repeat
--繰り返し終わり
end tell
--Excelのactivate終わり
end tell
--Finderのactivate終わり

ボタンをあれこれ弄ると、五件法で回答させたりもできるかも。あと、たとえばこっちでsubject numberとかを入れておくと、記録するシートを開いて、subjectnumberに対応するセルにデータをだーっと入れて行く、ということも可能かも。

もう多分applescript記事は当分書きません。