おもろい、めずらしいアップルスクリプト発表会 5

【前スレ】
おもろい、めずらしいアップルスクリプト発表会 4
http://pc.2ch.net/test/read.cgi/mac/1026844857/l50
おもろい、めずらしいアップルスクリプト発表会
http://pc.2ch.net/test/read.cgi/mac/971295440/l50
おもろい、めずらしいアップルスクリプト発表会
http://mentai.2ch.net/mac/kako/957/957215209.html
面白い＆便利なアップルスクリプト
http://mentai.2ch.net/mac/kako/962/962044994.html

・OSXのスクリプトに関してはこちら
「AppleScript,Perl,Shell」OS Xでスクリプトｽﾚ
http://pc.2ch.net/test/read.cgi/mac/1055091471/l50

・関連スクリプトのまとめ
ttp://members.tripod.co.jp/obto/script/script.html

【入門サイト】
AppleScript入門
ttp://www.apple.co.jp/applescript/begin/index.html
AppleScriptTutor（掌田津耶乃氏）
ttp://www.netjoy.ne.jp/~tuya/AppleScriptTutor/
AppleScript Lab（狩野正嗣氏）
ttp://www.drycarbon.com/applescript/
AppleScript Beginner's（JinJin氏）
http://homepage.mac.com/jinjin/applescript/

訂正。
3スレ目はこちら
http://pc.2ch.net/mac/kako/971/971295440.html

>>俺
乙。

>>1-3
乙

乙
前スレ、早くも落ちてしまいますた。

前スレ、何レスまで行ったの?

次スレ用にとっておく？

http://kfn.ksp.or.jp/~gauche/MacTweaks/Hiragino/

こちらに載っている

補足情報（2001/07/03)
　ATMで「画面上でフォントの縁をスムージング」を指定するのはアンチエイリアス機能を使うためですが、256色モードではこ
の機能が効果を発揮しません。フルカラーでお使いください。また、アピアランスで「Finder 表
示用フォント」を変更しても再起動するとデフォルトの［Osaka］に戻ってしまうことを確認しました。Finder 表示用フォントまで
変更したい方は、起動のたびに指定するかAppleScriptを書いて自動化する必要があります。

これに載ってるフォントを切り替えるスクリプト教えてください〜

アピアランスコンパネの用語説明を見るといいよ

>>1
乙
>>6
987くらいかな

tell application "アピアランス"
set views font to "ヒラギノ丸ゴ Pro W4"
set views font size to 12
end tell

自分でここまでは発見出来たのですが、実行するとアピアランスコンパネが開いてしまいます。
アピアランスコンパネを開かないで変更するにはどうしたらよいのでしょう？？？

閉じれば？

>>12
アピアランスコンパネの画面がでないようにしたいんです.

tell application "アピアランス"
set views font to "ヒラギノ丸ゴ Pro W4"
set views font size to 12
quit
end tell

ってしたら閉じるんですけど、コンパネの画面が前面に来てしまうんです。
出ないようには出来ないのでしょうか？？

保守

MOをイジェクトさせるスクリプトを書いてファンクションに割り当てたんだけど
Finderがアクティブになっちゃうのね。
んで、たとえばイラレ使っててMOを取り出した後に、イラレをアクティブに戻す
ってのはどうやればいいですかね？

>>15
Finderの用語辞書のProcessにある、frontmostを使えば出来るよ。

OSA Menuから使うようにすれば？

safariからURLドラッグすると、pdf作成してくれるようなスクリプトありますか？
メニューでもいいけど。

>>18
コマンド+P

>>19
スクリプトかメニューでって言ってるでしょ!!

>>18
メニュー→プリント

pdfを作成そのものをASにしろというのは、まずむりかと。
そんで、探し物なら他でどうぞ。

>>18
ぺn

選択された文字列を取ってくるのはSystem Eventsを使えばいいんでしょうか？
具体的にはSafariで選択した文字列を取ってきてURLに加工したいんですが。

>>23
keystrokeでコマンド＋Cをポストしてクリップボードから文字列とりだせばよいんでないか？
Quickeysと組み合わせた方が簡単だけど。

>>23
以前からそれやってます
OS9にiCabでCMScript使って、、だけど
コンテクストメニューから出来ると便利です
Safariでもittecみたいなの使って出来ないかな

CMScriptって便利なのにほとんど普及しなかったね。
iCab＋CMScriptは漏れも使ってまつ。

>>25
コンテクストメニューでいいなら
OnMyCommandCM
http://free.abracode.com/cmworkshop/on_my_command.html
ってので選択した文字をゲットできますが
AppleScriptだけでは無理なので結構めんどくさいですね。
日本語が絡むとさらにめんどくさくなるけど
一回テンプレートになる物を作ればあとは楽になるかな。
わたしはPerlで書いてます。
・選択文字をgooの和英、英和辞書で検索する
・選択文字をGoogleで検索する
・選択文字の中からURLっぽい部分を探して開く
ってのが今は登録されてます。あんまり使ってないけどね

CMScript、私も使ってますよ。特にFinderで。
必要なメニューだけが出てくるのがいいですね。
FinderでOSAメニュー開くとズラッと並んじゃうようになったんで、
OSAメニューの方はほとんど使わなくなりました。

特にFinderで、っていうよりFinder以外ではいまひとつ使えないのが欠点だからな。

対象項目によって出現するしないを制御できるのが便利だよね。

5になってから伸びないね

なんかさびしいんで外出ネタをひとつ
以前、別スレで発表したWindows Media 連続再生メタファイルを作るスクリプト。
パンサで使えますかねえ？

on open file_list
tell application "Finder"
set file_list to (sort file_list by name) as list
set current_folder to container of item 1 of file_list
set wvx_text to ""
repeat with wm_file in file_list
set wvx_text to wvx_text & "<entry><ref href=\"./" & name of wm_file & "\"/></entry>" & return
end repeat
set wvx_text to "<asx version=\"3.0\">" & return & wvx_text & "</asx>"
set wvx_file to (make file with properties {creator type:"Ms01"} at current_folder) as alias
try
open for access wvx_file with write permission
write wvx_text to wvx_file
close access wvx_file
on error
close access wvx_file
end try
end tell
end open

ついでに「abc1.wmv」みたいなファイル名を「abc01.wmv」みたいに書き換えるスクリプト。

on open file_list
tell application "Finder"
set suf_fix to text returned of (display dialog "拡張子" default answer "")
set old_delim to AppleScript's text item delimiters
repeat with cur_file in file_list
set file_name to name of cur_file
set AppleScript's text item delimiters to suf_fix
set file_name to text item 1 of file_name
set AppleScript's text item delimiters to old_delim
if (character -1 of file_name) is in {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"} then
if (count file_name) = 1 then
set name of cur_file to "0" & character -1 of file_name & suf_fix
else if (character -2 of file_name) is not in {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"} then
set name of cur_file to plain text 1 thru -2 of file_name & "0" & character -1 of file_name & suf_fix
end if
end if
end repeat
end tell
end open

メタファイル関連のスクリプトをもうひとつ
Windows Mediaの特定の箇所だけをリピート再生


on open file_list
tell application "Finder"
set wm_file to item 1 of file_list
set current_folder to container of wm_file
set start_time to (text returned of (display dialog "開始秒" default answer "0")) as integer
set start_time to "<starttime value=\"0:" & ((start_time div 60) as string) & ":" & ((start_time mod 60) as string) & "\"/>" & return
set duration_value to (text returned of (display dialog "再生秒数" default answer "30")) as integer
set duration_value to "<duration value=\"0:" & ((duration_value div 60) as string) & ":" & ((duration_value mod 60) as string) & "\"/>" & return
set repeat_count to (text returned of (display dialog "再生回数" default answer "3")) as integer
set repeat_count to "<repeat count=\"" & (repeat_count as string) & "\">" & return
set wvx_text to "<entry>" & return & start_time & duration_value & "<ref href=\"./" & name of wm_file & "\"/>" & return & "</entry>" & return
set wvx_text to "<asx version=\"3.0\">" & return & repeat_count & wvx_text & "</repeat>" & return & "</asx>"
set wvx_file to (make file with properties {creator type:"Ms01"} at current_folder) as alias
try
open for access wvx_file with write permission
write wvx_text to wvx_file
close access wvx_file
on error
close access wvx_file
end try
end tell
end open

そういえば、ここって「発表」するスレだったのね。

いきなり落ちそう、保守

捕手

質問ですが、
bpmカウンターというのをapple scriptで作る事は可能ですか？

===
bpmカウンターとは、
bpm、beat par minute（１分間にビートを何回刻んだかを表した数字）
を計測する装置で、大体4~8回程度、タップするとbpmを計算して表示してくれる。

4~8回程度って書きましたが、
2度目のタップからbpmを表示し続けるのもあるし（タップ毎に表示が変わる）
>>37で書いたように、例えば8回タップした後にbpmを表示するのもあります。

>>37
キータイピングを検知するOSAXを使えばできそう

>>37
iTunes-BPM inspectorは？　iTunesで再生しているトラックに限るが。

>>39
OSAX?
参考書買って来ます。。
>>40
ほとんど、12インチなのと、リッピングもしないんで
今のとこ使えないんだけど、情報ありがとうございます。

ストップウォッチと計算機のほうが早いね・・・

ほしゅ

おめでた保守

>>42
BPMカウンタの用途を考えるとその方法は手数が多すぎて実用的じゃないね

BPMカウンタ使用時ってのは恐らく曲を再生しながら他の作業もしているはず
例えば、２枚のレコードのテンポ(BPM)を合わせたりとか
だから2回のタップで即座にBPMが表示される様な仕組みでないと使ってられない

>>37
OS XのAppleScriptStudioならApplicationクラスにon keyboard downイベントがあるんだけど

アップルスクリプトの同期の正確さってどのぐらいなんだろ・・・
まあ厳密さは要求されないけどさ。

>>37
市販のBPMカウンタ買った方が良いと思うよ
操作性とか携帯性とか考えると
BOSSのDB-12とかマジおすすめ

板違いレススマソ

ほしゅ

だけでは申し訳ないので、一応
keydownはJonﾕs CommandsやS穫di's Additions
あとはGetMilliSecなどのOSAX使えば出来ると思いまつ。
しかし、keydownなんぞで苦労するとは…
やはりHyperCardは偉大だなと今更ながらに思う今日この頃。

質問なんですけど、特定階層のフォルダに命令を与えるには、どうすればいいでしょうか？
上層のウィンドウさえ開いていれば
set fList to every folder of window 1
repeat with obj in fList
open obj
end repeat
これでいけるんですが、
というか、特定階層だけじゃなく、階層の深さ別に別々の命令を実行させたいのですが。

>>49
鳶嶋工房さんとこのAppleScript/Tips/Basic/複数参照に有ったものを
ほとんどそのまま利用して…
tell application "Finder"
activate
set theFolder to choose folder
repeat with fdepth from 1 to 3
if fdepth = 1 then
open theFolder -- １階層目の処理
else if fdepth = 2 then
-- ２階層目の処理
else if fdepth = 3 then
-- ３階層目の処理
end if
set theFolder to (a reference to (folders of theFolder))
if contents of theFolder = {} then exit repeat
end repeat
end tell
こんな感じでしょうか？
if文はスマートじゃないのでハンドラやスクリプトオブジェクトなどを使って
工夫してみて下さい。

>>50
なるほど。ありがとうです。

ご教示いただいたサンプルとは関係ないんですが、
複数のフォルダを開き、その１つ１つ対してウィンドウ操作の命令を与えようとすると、
命令がずれますね。
ウィンドウ位置などを統一しようとすると、避けられない問題でしょうか。

>>51
命令がズレると言うのが良くわからないので
スクリプト書いてもらえませんか？　
一応、ココ「発表会」だし。

もしかして、window 1とかで操作対象指定してます？
そういう事ならcontainer window of 〜 とかを使って下さい。

open thefolder
repeat with thisfolder in thefolder
set view of (container window of thisfolder) to 2
end repeat

こんな感じで、どですか。
操作するウィンドウが無いとエラーになるので
その可能性が有る場合は操作直前にウィンドウの存在チェックするか
又はエラー構文など用意しておいた方がいいですよ。

>>52
ズレるというのは、複数ウィンドウの各階層ごとに与える命令が、
複数ウィンドウの連続open動作に、追随しないという意味で書きました。

で、ウィンドウの指定には、
window 1
window of insertion location
の両方で試行錯誤していました。container window of thisfolderは、
set position命令を受けつけないので。

今は、>>50のif下を
open theFolder
set position of window 1 to {361, 78} --階層ごとに数値が変わる
こうしていますが、複数ウィンドウを次々に開ききった後の
一番上のウィンドウだけしか、動かないです。
set position式をrepeatしても同じです。

最初から、何をやろうとしているのか全部書けばよかったです。
すいませんでした。

特定階層のフォルダに（←>>50で解決）
open命令を与えて開き、
set positionでウィンドウの左上位置を指定する。
（ここまで正常に動けば、close windowを追加）

これをやろうとしています。

container window ofを受け付けないというより
theFolder の中身が１つの時はリストにならないので
repeatを受け付けないのだと思います。
あと、目的がそういう事ならIF文より計算かpropertyで指定する方がいいかも。
ということで>>50のif構文を以下の様なスクリプトに置き換えてはどうですか
set X to 60 + (fdepth * 30)
set Y to 40 + (fdepth * 30) --適当に
set folderlist to (open thefolder) as list --強制的にリスト化
repeat with thisfolder in folderlist
set position of (container window of thisfolder) to {X, Y}
end repeat

>>55
なるほど。これは簡潔ですね。

ただ、新しい問題が起きました。
これを実行すると、上層フォルダの仕分けに関わらず、同一階層の全フォルダを
一度に開こうとするので、Finderメモリ割り当て量か、命令結果の待ち時間を
オーバーすることが多くなります。

同時に開くフォルダの数を少なく抑えるために、上層フォルダ別にopen~closeを
完了するか、深めの階層のフォルダをターゲットにしてシーケンスを実行するかで
今夜帰ったら作ってみます。

windowが開いて無いとエラーになってしまいます。
これを避けるためにFinderのresultが来るのを待つ必要が有るため
速度が遅いのは最初から覚悟していました。
時間が掛り過ぎる場合はtimeoutを調整して下さい。
操作対象のwindowが確実に開いているなら
ignoring application responses
で実行速度をあげる事も出来るでしょう。

なんでopenしたfolderを位置設定だけしてすぐ閉じるのか良くわからなかったんですが、
朧げながら、あなたのやろうとしている事が分って来た様な気がします。
もしかすると、opening folderなどのフォルダアクションが利用出来るかもしれません。
フォルダアクションはスクリプトで任意のフォルダに付け外し出来ますので…

出来たら、ここにスクリプトを書き込んでみて下さい。

>>45,47
bpmカウンタは持ってるんですが、複数あればより正確に測定できるという目的と
ただMacで、やってみたいなって理由です。

あらかじめbpmは測定してフロア用のはだいたい覚えてるし、ジャケにもシールで貼ってるんですが
アンビエントのdjする時はけっこうbpmの管理って大変で。
最初、ｽﾊﾟｺﾗで作りたいな。って思ったんですが
もともと他のパッチを修正して使うぐらいしかできないので
0から作るのは無理でした。
時間ができたらオブジェクト指向のプログラムの本でも買ってがんばります。

亀レススミマセン
レスありがとう。

OS9なんですけど日時設定って実現できませんか？

電池が切れたMacにNTPで自動修正させたいんですが、
1904年の状態だとTCP/IPが動作しないんで、
起動時に最近の適当な日時に設定したいんです。

Akua SweetsっていうOSAXでできました。
ほかにも機能もりだくさんでうれしいかぎりです。

>>59
とりあえず、そういうOSAXが無いか探してみる

>>61
レスどうも^^

自己IPの取得法を教えてくらさい
10.3

>>62
かぶったw

>>63
OSXはこちらの方がよいかと
「AppleScript,Perl,Shell」OS Xでスクリプトｽﾚ
http://pc.2ch.net/test/read.cgi/mac/1055091471/l10

たぶんターミナルでサクッと出来ると思うよ

★

ネタがないので面白くも珍しくもないけどいいっすか？

tell application "Finder"
　set tr to (choose from list {"Shut down", "Restart", "Sleep", "Quit", "StartupDisk"} with prompt "Tell Finder to..." default items "Shut down" with empty selection allowed) as text
　if tr = "Shut down" then
　　shut down
　else if tr = "Restart" then
　　restart
　else if tr = "Sleep" then
　　sleep
　else if tr = "Quit" then
　　quit
　else if tr = "StartupDisk" then
　　open "omaesama:System:Library:PreferencePanes:StartupDisk.prefPane:"
　else
　　error number -128
　end if
end tell


俺はF4に割り当てて使ってます。

control + EJECTで良いじゃん。

>>66
Super Shut Down 1.0.2
ttp://www.bajram.com/downloads/softwares/

>>67
終了系のキーコンビネーションは知っているけど使いたくないので。
「ボタン一つで」かつ「マウス使わず」終了系のメニューを実行させたいって
のがもともとのコンセプトです。
>>68
というわけでこのソフト良さげですね。対応するメニューのイニシャル打てば
選択できるっぽいし。しばらく使って様子を見た上で乗り換えます。
ありがとう。

保守

保守

こらー
なんでこんなに寂れてる!!!

あるスクリプトを書いて、スクリプトエディタから「実行」すると、正常に実行される。
しかしそれをアプリケーション形式で保存してダブルクリックで実行すると、
途中で実行が終わって不完全なまま終了してしまう。

何が原因なんだろう・・・？　バグ？　OSX10.3.3です。

とにかくあげる

日本語関連のバグが原因だったようで、
OSXスクリプトスレにあった下記の方法を試したら正常に動作しますた。

FAQ: アプリケーションに保存すると日本語が使えません
(1) 保存時の「フォーマット」を「アプリケーションバンドル」に。
(2) Finderで「Japanese.lproj」という名前の空フォルダを作っておく。
(3) Finderで(1)で保存したアプリを選択し、
　　情報を見る=>言語=>追加で、(2)のJapanese.lprojを選ぶ。

DVDプレーヤで指定した時間へ飛んで再生するスクリプト。
標準でついてる「Go To Time...」だと、時間を入力する際に、1時間14分35秒なら「01:14:35」
のように入力しなければならず面倒（「11435」と入力すると「11435秒」と解釈される）。
このスクリプトなら「11435」と入力すれば1時間14分35秒に、「845」と入力すれば8分45秒に
飛べるのでコロンを入力する手間が省けます。
「スクリプト」形式で保存して、「ホーム/ライブラリ/Application Support/DVD Player Scripts」
に入れてください。

tell application "DVD Player"
set et to elapsed time
set h to round (et / 3600) rounding down
set et to et - 3600 * h
set m to round (et / 60) rounding down
set s to et - 60 * m
set t to text returned of (display dialog "Go to time" default answer (h & m & s as string))
if t as number < 10000 then set t to ("0" & t as string)
if t as number < 1000 then set t to ("0" & t as string)
set {h, m, s} to {(character 1 of t), (character 2 of t & character 3 of t), (character 4 of t & character 5 of t)}
if (h as number) > 0 then set h to (3600 * h)
if (m as number) > 0 then set m to (60 * m)
set elapsed time to h + m + (s as number)
end tell

ほしゅ

関連スクリプトのまとめが見れません。

http://members.at.infoseek.co.jp/obto/script/script.html
見れました

URLの一部を抽出して、他のURLにくっつけたいのですが。

(ﾟДﾟ)ﾊｧ?

例えば、このスレの1067367790 って部分だけ抜き出して、
他のある特定のURLの後ろにくっつけてそのページを表示したいんですけど。

質問はスレ違いじゃないかと思うんだが？

>>82
例えばこんな感じかな

tell application "Safari"
set hokanourl to "http://nantara/kantara/"
set motonourl to URL of document 1
--仮に"http://pc3.2ch.net/test/read.cgi/mac/1067367790/l50"とかなら
set AppleScript's text item delimiters to "/"
set nukidasi to text item -2 of motonourl
open location hokanourl & nukidasi
end tell

ありがとうございます。
set AppleScript's text item delimiters to "/"
set nukidasi to text item -2 of motonourl
この部分を
.netより前の一単語を抜き出すとか、
もっと具体的に指定することは可能ですか？

テメエで書く気はこれっぽちもないわけですかそうですか

>>85
set AppleScript's text item delimiters to "/"
set nukidasi to (text item 3 of motonourl)
set AppleScript's text item delimiters to "."
set nukidasi to (text item 2 of nukidasi)

こんな感じの考え方で

今更だけど、発表会というより講習会だねぇこりゃ

まあいいんじゃないの。
人の書いたスクリプトをもとに自分なりにああしたいこうしたいと思って学ぶものだし。

このスレって伝統的に半々ってところじゃない？

>>87
わかりやすいサンプルありがとうございます。
一応思った通りのものは出来たのですが、
コンパイルしてCMScriptで使おうとしても反応しないのですが、
CMScriptで使う場合に変えなければならない部分があるんでしょうか？

徹底して教えてくんだな。
もう放置ってことで。

>>91
ttp://homepage.mac.com/tkurita/scriptfactory/Monologue/CMScript/
この辺を参考に。

何となく厚顔無恥、という単語が頭に浮かんだ。

聞かれても無視してちゃスレが盛り上がらないじゃん。
つーか、91が一連のやりとりで作ったスクリプトを発表してみれば、
丸く収まる。

さぁ、、、、、、、発表ｼﾙ！

そんな発表なんて厚顔無恥な真似は出来ないっす。
しかしながらアドバイスを下さった諸先輩方には感謝の念を禁じ得ません。
煽って下さった方々の新たなスクリプトの発表を期待しつつ
私はこの辺で失礼したいと思います。では

>>97
発表しなければ逆に「単なる教えて君」で厚顔無恥だと思うよ。

>私はこの辺で失礼したいと思います。では
これって、食い逃げじゃないか。

ネットというものはギブ＆テイクでなりたってんだぞっていう
10年も前の話を蒸し返したくなった。

まぁ餅搗け。こういうタイプはヒット＆アウェイだから多分もうこのスレにはいない。
文句を言っても無意味っしょ。マターリいきましょ。
#彼が旋毛をまげたのも俺が「厚顔無恥」なんて言葉を持ち出したせいだろうし。
ちょい反省。

http://www.excite.co.jp/dictionary/japanese/?search=%E6%97%8B%E6%AF%9B&match=beginswith&itemid=13660700

（´･∀･`）つ〃∩ﾍｰﾍｰ

ヤフオク自動ログインスクリプトを創って下さい。

作成してくれた人にあなたはどういう対価を支払えますか？

当スレッドの繁栄を保証いたします。

103のレスがないので本日のマネーの虎はここまでです。

safariのブックマークを名前順にソートするスクリプトなんてありませんかね？・・・

>>104
具体性が不足しています。その「保証」を実現するための明確かつ可能なプランを
提示してください。

ないか・・・OTZ

>>102
アップルスクリプトじゃなくて、ブックマークレットと呼ばれてるものらしいけど、
俺は↓のようなのをお気に入りに入れてるんだけど、

if (window.location == 'http://my.yahoo.co.jp/'){
document.fm.login.value='ここにID'; document.fm.passwd.value='ここにPASSWORD'; document.fm.submit(); void(0)
}

もちょっと汎用性があるように誰か改良して欲しい。

>>109
無理です。諦めて下さい。

>>109
かういふ生パスワードをブックマークファイルに保存するやうなマネは
よゐこのみなさんはしない方がよいでせう。

>>109
こっちの方がいいかも。
http://pc3.2ch.net/test/read.cgi/mac/1047361032/l50

エキサイトの日英翻訳スクリプトを使かっているのですが
翻訳結果を新たに開いたウインドウに表示するのではなく
同じウインドウの異なるタブに表示するにはどこを変えれば
宜しいのでしょうか？

>>113
browser側で設定する。

>>113
まず、使ってるブラウザを教えなさい。

>>114
それは既に設定してあって、タブで開かれるスクリプトもあるのです。
>>115
iCabです。

>>116
OpenURL "www.apple.com" toWindow -2
で新規タブで開くよ。

>>116
ここにあるjavascriptをホットリストに入れてじゃ駄目？
俺これ重宝してるよ

ttp://freezone.kakiko.com/bookmarklets/

>>102
javascript:
document.forms[0].passwd.value='パスワード';void(0);
setTimeout('document.forms[0].Login.click() ',1000);void(0);

bookmarkletだけど。

「AppleScript,Perl,Shell」OS Xでスクリプトｽﾚって鯖移転で消えた？

>>120
消えたね。たぶん。
もしかして漏れはマカー用だから見えないのか？w

>>121
俺もマカー用w
pc3鯖には978まで残ってるね。手許のログは983まで。pc5鯖じゃもう見られない。

OS X用の新スレは立たないの？
ここと併合するの？

アップルスクリプトだけ併合して、その他は別に立てるのがいいんじゃない？
アップルスクリプトが２つあるのはややこしいよ。
このスレもともとクラシック専用じゃないし、もう「OSXで」って時代じゃないでしょ。
OS9の場合はそのことを書くようにすれば？

AppleScriptとPerl、Shellの組み合わせって微妙に違和感あったから
AppleScript
オンリーのスレが出来るのは賛成なんだけど、そうなると「おもろい、めずらしい」
という括りが邪魔な気が。AppleScriptがカタカナ表記なのも正直ちょっと……。
最近このスレも停滞気味だし、いっそAppleScript総合スレってのができると嬉しい。
#「AppleScript,Perl,Shell」OS Xでスクリプトｽﾚ自体、結構重宝してたんだけどね。

スレタイどおりの機能はしていないが、これをやめると
作って作ってクレクレスレに成り下がるので。

スレタイに違和感はあるけど、伝統ってことで。。。
それに、他にAppleScriptスレ作らなければ嫌でも総合スレになるのでは？

[製作依頼]AppleScript-総合-アップルスクリプト[すんなｺﾞﾗｧ]


AppleScriptを語るスレです。
AppleScriptの発表、質問なんかあったらどうぞ。
製作依頼は原則的に受けません。自分で頭ひねろう。

関連スレはこちら
・おもろい、めずらしいアップルスクリプト発表会4
http://pc.2ch.net/test/read.cgi/mac/1026844857/l50

前ｽﾚはこちら
・「ご主人様ご命令を！」OSXでスクリプトスレ
http://pc.2ch.net/test/read.cgi/mac/1010546884/l50
・「AppleScript,Perl,Shell」OSXでスクリプトｽﾚ
http://pc5.2ch.net/test/read.cgi/mac/1055091471/l50

参考リンクは>>2-5あたり

★AppleScirpt参考リンク★

・AppleScriptリファレンス--古いけどAppleScripterの聖典
ttp://store.sbpnet.jp/isbn/1011/preface.html

・AppleScriptタコ入門
ttp://www.macos.com/octopus/

・ビブロスのプログラム
ttp://www.dd.iij4u.or.jp/~banban/program/program.html

・ちゃらんぽらん
ttp://www1.odn.ne.jp/~cge02410/index.html

・鳶嶋工房(Tobishima-Factory)
ttp://homepage1.nifty.com/ton_b/

★その他★
・mi　スクリプト書きに便利なエディタ
AppleScript、Perl、C言語、その他色々の言語に便利な機能が付いたエディタ。
ttp://www.asahi-net.or.jp/~gf6d-kmym/

・Scriptmenu
AppleScript、シェルスクリプト、Perlスクリプトをメニューバーから実行できる。
ttp://www.apple.com/applescript/macosx/script_menu/

・SystemOSAX
シェルコマンドをAppleScirptから実行できるスクリプティング機能拡張。
めちゃくちゃ便利。SAMPLEも勉強になる。
ttp://www.bekkoame.ne.jp/~iimori/sw/systemOSAX.html

>>128-130
お〜、乙。個人的には【ｸﾚｸﾚ】〜【厳禁！】の方がいいかと思ったり、制作依頼は「原則禁止」じゃなく「絶対禁止」にした方が気持ちよく常駐できるかと思ったり。

ところでいつの間にか「AppleScript,Perl,Shell」OSXでスクリプトｽﾚ復活してるね。
新ｽﾚ立てる必然性が弱くなった気もするけれど、総合ｽﾚがあればやはりありがたい気がするので、総合ｽﾚ新規立ち上げに一票。
私見だが、将来的には
・AppleScript総合ｽﾚ
・作品発表系の本ｽﾚ
・OSXで〜＆「AppleScript,Perl,Shell」OSXで〜ｽﾚを統合してスクリプト全般ｽﾚ
・Xcode＆DeveloperTools等、開発環境総合ｽﾚ
なんてラインナップになると嬉しいかも。

作るんなら、スクリプト総合スレが先だろ。
AppleScript総合スレが「OSXでスクリプトｽﾚ」の次スレってのも変だし。

他板から移ってきました。くだらない質問ですいません！
AppleScriptで、Classicの起動有無チェックや、停止、起動は制御できるのでしょうか？
Classic内フォントフォルダのフォントを出し入れするScriptを作っているのですが、
出し入れの前にClassicを停止し、出し入れが終わったらClassicを起動させるようにしたいのです。
OSX10.3.3です。どうかみなさん、よろしくです。

>>133

tell application "System Events"
processes
end tell

"Classic Support" の有無でclassicが起動しているかどうかを調べられる。
name of processes でやったほうが処理は楽だけど。
classic起動アプリは"Classic Startup" という。

最近OS Xに乗り換えはじめたばかりです。

OS 9で使っていたスクリプトをOS Xに持ち込んだら、
　empty (trash of disk "ABC")
ここで「"trash of disk "ABC""が取得できません」とエラーがおきるので、
　empty trash
にしたらいけました。
OS 9での指定はおかしかったのかな…？

あと、
　duplicate selection to disk "Disk123" with replacing
ってやったら、OS 9時代と違ってコピーされたファイルの修正日が変わっちゃうんだね。
バックアップだから修正日も同じがよかったのに…（ ´･ω･) ｼｮﾎﾞｰﾝ

>>134
どうもありがとうございました。
すみません、もっと頭を使うようにします。

すっげぇ久々にアップルスクリプト触る必要が出たので
昔使っていたリファレンス本探したらみつからない…………

なんだかよくわかんないけど、
逆ギレののたん置いていきますね
　　　∋oノハヽo∈
　　　　（｀?D´　）　＜なんに！
　　　Ｏ^ｿ⌒とヽ
　　　（_（＿ﾉ､_ソ

ﾓｰｵﾀイラネ

教えてください。
OSX 10.2.8で、System Events 経由で他のアプリケーションの特定の
menu item の enabled 属性を調べたいのですが、うまくいきません。

tell application "System Events"
　tell process "Jedit4"
　 　 tell menu "編集" of menu bar 1
　 　 　 get enabled of menu item 1
　 　 end tell
　 end tell
end tell

みたいな感じ。position とかsizeとかどうでもいい属性はきちんと取り出せる
のに、enabled属性だけはgetすると、

"System Events でエラーが起きました：
NSCannotCreateScriptCommandError"

になって、成功しません。どうすればいいんでしょうか？

tell application "System Events"
tell process "Jedit4"
tell menu "編集" of menu bar 1
get every menu item whose enabled is true
end tell
end tell
end tell

すいません、質問です。
QuarkXPress3.3Jを、OSXのClassic環境で動作させているのですが、
AppleScriptで、例えばPictureBoxのプロパティを得ると、
bounds:《data FRMS0038B1630038B16300C66CDA00C66CDA》
みたいになってしまいます。
通常ならbounds値は、
bounds:{100mm,100mm,100mm,100mm}
のようなリストで帰ってくるはずなのですが……。
これはOSXのClassic環境では仕方のないことなのでしょうか？
それとも、設定が必要とか……。

>>141
どうもです。でもそれもやはり同じエラーが出て蹴られるんだな。

get every menu item whose name is "カット"

なら問題なく通るのに、enabled属性の時だけ蹴られるんですわ。なんでenabledだけ、
いつものような書式が通用しないのか理由がわからん。
これってひょっとして私のところだけ？　他の人のところでは、enabledも他の属性
同様に扱えてるんですか？　私のところでは対象アプリケーションはJedit4だけでなく
とも、なんであっても同じように蹴られるんですが。
====================
で、なんとか自己解決しました。

get (properties of menu item "カット") as list
copy item 10 of the result to x

みたいに、属性レコードを一度リストに変換してitemを取り出せばできました。
でも、なんでこんな回りくどいことしなければならないのだろう？

うちは10.3.3なので、>>141で無問題。

>>144
そうですか。じゃあ10.2のSystem Eventsの不具合かもしれませんね。

PowerBook G3のOS X 10.3.3で、LCDの明度を変更する（暗くする）スクリプトを考え中です。
とりあえず、

tell application "System Preferences"
activate
end tell

tell application "System Events"
tell process "System Preferences"
click menu item "ディスプレイ" of menu "表示" of menu bar 1
delay 10
click radio button "ディスプレイ" of tab group 1 of window "カラー LCD"
delay 1
set value of slider 1 of group 2 of tab group 1 of window "カラー LCD" to 0.1
end tell
end tell

っていうのは作ったんですけど、実行速度が遅くって...

tell application "System Events"
key code hogehoge
end tell

っていうスクリプトで、明度↓キーを押せないかと考えたんですが、キーコードが分からず。
107（F14？）を指定してやるとそれらしい表示は出るんですが、明度が下がらない。
困ったんでどなたかアドバイスください。

★

なぁ、誰かそろそろ「スクリプト総合スレ」立ててくれよん。（´･ω･｀）

建前だけでも発表会にしておかないと作ってクレクレスレに成り下がります。

safariで使えるscript一覧がみたい！ってときどこを探せばよいですか？

>>151
用語説明なら
スクリプトエディタのメニュー「ウインドウ」の「ライブラリ」で表示できる
ウインドウにSafariがあるならそれをダブルクリック。無ければ追加する。
もしくはSafariをスクリプトエディタにドロップ。

>>151
スクリプトエディタで shift+command+L

>>150,151 thx ﾊｹﾞﾐﾏｽ。

AppleScriptでHomeにある

Desktop
Library
Music
Public
Documents
Movies
Pictures
Sites

あたりのフォルダを参照するのって"Macintosh HD:Users:〜ってずらずら書くしかないの？

/Library/Scripts/Navigation Scripts/Open Special Folder.scpt
を見る。

(´･ω･`)

/Library/Scripts/(´･ω･`)/Navigation Scripts/

yahooのログインスクリプトSafariで使えないぞ
どうにかしてくろよ

良ｽﾚ　保守age

昔、Dialogue Editorをイジってヘンな警告メッセージを出す
AppleScript、ってなかったでしたっけ？

「あなたの脳ミソに重要な欠陥が発見されました。修復はできません。」みたいな。

display dialog "「あなたの脳ミソに重要な欠陥が発見されました。修復はできません。」"

ここは[発表のスレですが、他に適当なスレが見当たらないので
ここに書かせてもらいます。10.3.4を使ってます。

ライブの音源（録音、配布はすべて許可されていました）
をたくさんダウンロードしたのですが、曲名が日付になっています。
01-2004-06-21.wav
02-2004-06-21.wav
...

そして、正しい曲名がはいったテキストファイルもいっしょに
ダウンロードしました。iTunes（v4.6）で手作業で曲名を
変更していますが、これをアップルスクリプトをつかって
テキストファイルから曲名を読み込ませて一気に変更
するにはどうしたらいいでしょうか？
テキストファイルのなかみはこんな感じです。
01　song1.wav
02　song2.wav
...

>>162
不可能

手作業でやれ

awk

順番はその通りなの？
01-2004-06-21.wav = 01　song1.wav
02-2004-06-21.wav = 02　song2.wav
という事？
て言うか、共通する部分が有れば良いけど。
だったら可能だよ。

やり方としてはまず、元ファイル名をリストに取って、
変更したいファイルネームの入ったファイルを開いて、リストに取って。
んで、共通する部分でsortして、
リピートして名前変えて行けば良いんじゃん？

漏れだったらperlだな。

>>166
彼はAS何も知らないと思う。
レスしたなら最後まで面倒見てあげてね。

>>167
なんで？

>>163
どうしたらいいでしょうか？じゃなくて作りなさいよ。
易しい記述でできるから。実際俺はよく使ってる。

必要なのはiTunesのリストの取得とファイルのオープン／クローズだけ。

ん〜、30分考えてみたが、
ｵｶｼｲﾅ。
>>164
>不可能
>手作業でやれ

これは嘘、出来るもの。

>>167
>彼はAS何も知らないと思う。
>レスしたなら最後まで面倒見てあげてね。

何故163がASを何も知らないと言うのか、意味が分からん。
>>163 は
>一気に変更するにはどうしたらいいでしょうか？
こう言っている。
だから考え方を言っただけだし、これ以外の方法も何通りでもある。
漏れなら、perlでsortしながらglob()して、ファイルをopenして、…

レスしたから全部面倒を見る？
ｵﾏｲそうしているのか？
だとしたら、良い香具師だな。
嘘つきではあるが。

みなさん、レスありがとうございます。
>>166
>順番はその通りなの？
>01-2004-06-21.wav = 01　song1.wav
>02-2004-06-21.wav = 02　song2.wav
>という事？

そういうことです。
ちなみにASのことはほとんど知りません。
他のスクリプト言語は昔少しだけかじったことがありますが、
ほとんど忘れています。

>>169
>易しい記述でできるから。実際俺はよく使ってる。

もしさしつかえなければ、あなたが使っているスクリプトを
ここにのせていただければ感謝いたします。

>>171
まず作ったスクリプト、できたとこまで晒してみた方が早いかと
（できてるなら）

ここは一切努力したくない人は受け入れられないスレです。
もっともそれを承知でクレクレ言ってる節もあるが。

>>173
まあここはスクリプトの質問スレではないですもんね。
昔使ったスクリプトの本をさがしてトライしてみます。
こまったら質問にきますね。

何だ結局クレクレ房か

すいません、質問です。

スクリプトエディタから実行すると正常に実行できて、
アプリケーション形式で保存してダブルクリックで実行
するとエラーになるという現象が起きてます。

>75
に10.3.3での解決方法がありますが、うちは10.2.8のせい
か、「アプリケーションバンドル」で保存や情報を見る=>
言語=>追加が出来ません。解決方法を御存じの方がいらっ
しゃいましたら御教授願います。
（10.3にする、ってのはなるべくさけたいです）

晒せないのか？

エラーの内容くらい晒してくれないとどうしようもない。
そのスクリプト自体を晒してくれるのが一番良い。

>178
根本的な解決には至らなかったのですが、一応目的は達成した
ので報告します。

tell application "SystemSound Extension"
activate
open file "Shutdown.SSIDoc"
end tell
tell application "Finder"
activate
shut down
end tell

サウンドファイルを鳴らしてからシャットダウンするスクリプト
です。SystemSound ExtensionはSystem7サウンドファイル
を鳴らすアプリで、これ入れとけばシャットダウン時に音が鳴る
って聞いたんですが、ダメなのでスクリプトを書きました。

で、新規作成でアプリケーション形式で保存・実行すると
エラーになるので、HDにあったKuGoShutdownという
スクリプトをコピーして上記のスクリプトをコピー・上書き
保存したら、正常に動作するようになりました。
長文失礼しました。

★

なるほど

質問なんですがちょうど良いスクリプトスレがないのでお願いします。
do shell scriptについてなのですが、

tell application "terminal"
do script " "
end tell

の場合ように、shell scriptに処理はまかせてapple Scriptで処理を継続する方法は
ないでしょうか？
try timeout と ignoring applicatiron responsesを試したのですが、
どちらも処理が終わるまで戻ってきませんでした。
terminalを立ち上げたくないんですけど、仕様なんですかね…？

>>182
ttp://developer.apple.com/ja/technotes/tn2065.html

Q: スクリプトの出力に非常に時間がかかります。
結果が出た時点でそれを読むにはどうすればよいですか？

A: これについても、方法はありません。
do shell script は、コマンドが完了するまで戻ってきません。
ただし、対処法としては、コマンドをバックグラウンドで実行し（次の Q&A を参照）、
出力をファイルに送信し、ファイルが完成したらファイルを読むという方法があります。

Q: バックグラウンドサーバプロセスを開始したい場合、do shell script に
コマンドの完了を待機させないようにするにはどうすればよいですか？

A: 「do shell script "command > file_path 2>&1 &"」を使います。
do shell script は、結果なしで直ちに戻り、AppleScript スクリプトは
シェルスクリプトと並行して実行します。シェルスクリプトの出力先は file_path になります。
出力に関心がない場合は、"/dev/null" を使用します。AppleScript からの
バックグラウンドプロセスの取得や操作は、直接的にはサポートされていません。

>>183
ありがとうございます。そこのページは読んでいたのですが、見落としていました。
で、やってみたのですが、

Q: 1 つの do shell script で複数のコマンドを使用するにはどうしたらよいですか？
A: 1 回の呼び出しで複数のコマンドを実行するには、次のようにセミコロンでコマンドを区切ります。

これとの共存は出来ないみたいですね。複数コマンドの最後に付けただけでは戻ってきませんでした。
こりゃ、terminal立ち上げないと駄目かな。

>>184
試してないけど、こんな感じで入れ子にできないかなw

do shell script "osascript 'do shell script "command a;command b"' > file_path 2>&1 &"

>>184
よーわからんけど、普通に ; の代わりに & じゃ行かんの？

コマンド列を全体で、ってこと？　(a; b)& とかは？

>>185
""大杉とスクリプトエディタに怒られました。
だめっぽいです。

>>187
うほ！できた。普通に括弧使えたんですね。知らなかった（ｗ
&で並行処理ができるってのもさっき調べて知りました。
ただ今回の場合処理の順番が重要なので&だと駄目だったんですよね。
これを機にshell scriptもきちんと勉強することにします。
ありがとうございました。

また質問なんですけどいいでしょうか？
今度はdelayコマンドなんですけど、これって馬鹿みたいにCPU喰うんですけど、
仕様でしょうか？
appleScript Studioで使うと消費しないみたいなんですけど、
will finishing launchと組み合わせて使うとやっぱりCPU喰いまくる模様。

do shell script "sleep" でやるとCPUの消費は回避できたんですけど、
今度はdo shell scriptから戻ってこないので、操作不能に陥って、
途中で処理を終了させたいような場合にどうしようもなくなってしまいます。

CPUを喰わずに数秒間処理を待たせる方法って無いでしょうか？

>>189
sleep 10とかは？

ごめんなさい。中途半端に書いちゃいましたね。
もちろん do shell script "sleep 秒数"　でやってます。

ファイルを監視して、サイズの増加がなければ処理を続行するというスクリプトで、
repeat until ファイルA = ファイルB
ファイルA
delay 10　（またはdo shell script 〜）
ファイルB
end repeat
こんな感じでやってます。
この状態で、delayなら他のオブジェクトをクリックしたら処理を中断する
といったことが出来るのですが、代わりにCPUを馬鹿食いする。
do shell scriptだと、CPUを喰わない代わりにRepeatを抜けるまで操作不能で強制終了しか
手段が無くなるといった状況です。

on idle
return 秒数
end idle

だと軽いという話もあるようですが

普通にコマンドを二つ並べただけでは処理が早すぎてファイルの増加を
捉えられないため、ファイルの増加を捉えるにはチェックする２点間の時間差を
作る必要があります。

idleの使い方がいまいちわからないのですが、
調べた限りではidleに挟まれたスクリプトを延々続ける
常駐スクリプトを作るためのものですよね。
となると時間差を儲けるためには利用できないような…。
idleを呼び出して待機させるみたいな使い方って出来るのでしょうか？

idle
ファイルA
do shell script "sleep1"
ファイルA'
return 30
end idle
（ファイルABは不適切だったので変更しました。）

これでCPUの消費を抑えつつ30秒に一回チェック（但し一秒間固まる）
という風にできるのでなんとかごまかしにはなるのですが、
プログレスバーとかを利用するとその都度止まるのでやはり目立ちますね。
う〜ん…。

質問です。
普段使わないパーティションをアンマウントする
スクリプトはどう書けば良いのでしょうか？ 10.3.5です。

以前、たしか10.1.5のころは

tell application "Finder"
activate
eject disk "普段使わないHD"
end tell

でいけてた気がするんですけど、10.3.5だとできない、
ひさびさにXをさわっているので、よくわからない…

教えてくんですみません。

とりあえず

do shell script "diskutil unmount /Volumes/ボリューム名"

>195
ありがとうございます！できました。
けど、アンマウントするまでにけっこう時間(10秒くらい)がかかりますね。

>>193
delay 10
じゃだめ？

>>197
もしかしてdelayで馬鹿みたいにCPUを喰うのはうちだけですか？
AppleScript , Delayあたりでぐぐって見たんですけど、
CPU消費に関する記述を見つけれられず。
海外のフォーラムで一件、CPUを消費しないようなことが書いてあったのですが、
たとえば、
repeat
delay 10
beep
end repeat
だけでもうちでは半分以上のCPUを消費してます。同時に別の重い処理をさせたいので
これだとお話にならないんですよね。
今のところ、インジケータなどの動きが鈍くなるのは諦めて、
idleとdo shell script "sleep 〜"の組み合わせでごまかしてるんですが…。

>>198
試してみました。
CPU食いまくりです。
10.3.5

>>198
CPU消費を気にするくらいならアップルスクリプトは卒業した方が良いよ。

>>199
やっぱそうですか。仕様なのかな？
>>200
う〜ん、趣味のレベルなのでそれを言われると辛い（笑）
入門用にはApple Scriptってわかりやすくて良かったと思います。
（未だにファイル参照とかでなんでうごかねーんだよ！とかしょっちゅうですが…）
Apple Scriptで出来るようなことは、shell Scriptで大抵出来るのでしょうか？
今回いくつかの箇所で利用しているので、次はこの辺りに手をつけようかとは
思っているのですが…。

　 ／(_,
　(、　)
　 )／
AppleScript

ファイル増加捉えるなら、フォルダアクション使こたら？

>>202
Safariでずれてる。
xていうか、OS Xでまともなノンプロポーショナルフォントがないような気が...

キーボードのコマンドキーと上の列の数字を擬似的に押す
Scriptはできまんのん？

tell application "Finder" to activate
tell application "System Events"
tell process "Finder"
keystroke "N" using command down
end tell
end tell

あ、間違った。こっちだ。

tell application "System Events"
tell process "Finder"
keystroke "#" using {command down, shift down}
end tell
end tell

text -5 thru -1 of "123456789"
が
"56789"
になるという書き方をさっき知りました。
items -3 thru -1 of {1, 2, 3, 4, 5}
もできるのですね。

AppleScript Studioで初期設定を利用する方法について教えてください。

on will finish launching theObject
try
set str1 to contents of defult entry "field1" of user default
set contents of cell "field1" of matrix "form1" of window "Main" to str1
on error
make new default entry at end of default entries of user defaults with properties {name:"field1" ,contents:""}
end try
end will finish launching

on will quit theObject
set str1 to contents of cell "field1" of matrix "form1" of window "Main"
set contents of dafault entry "field1" of user default to str1
end will quit

これで起動時に初期設定ファイルを読み込んでcellに文字を入力するのは
理解できたのですが、ラジオボタンやポップアップボタンで同様に初期設定を
利用するにはどうしたらよいのでしょうか。
state of 〜 とか title of 〜 とかに変更してやってみてはいるのですが動いてくれません。

>>209
will finish launchingでは読み込んだのをproperty変数に代入するだけにして
launchedでコントロールをセットするようにしてみれば？

スクリプト関係の質問をしたいのですが、そういうスレってないですか？
タイトルからは見つからなかったんですが。
スレ汚しですみませんがちょっと教えてください。

以前は、OS Xでスクリプトスレとかあったけど消えた。

>>210
色々試したところ、popup buttonについてはコントロールの理解がイマイチだったようで、
set contents of popup button "popup1" of window "Main" to str2 でいけました。
ただ、ラジオボタンはうまく動かないので、（この辺も私の理解が甘いだけだとは思うのですが…）
得られるtrue,falseからそれぞれのボタンを起動時に個別にON OFFすることで対応しました。
launchedは使いませんでしたが、別で処理させる参考にさせていただきました。
ありがとうございました。

>213
true,false は as boolean を付けて明示的にboolean値として
default entry に書き込んでやればよい。
as boolean を付けないと、次にdefault entry から読み出すときに
boolean 値として取り出せなくなって、ラジオボタンのstateをset
するときにうまくいかなくなる。

無さそうなのでちょっと教えてください。
Mail.appで指定のメールをスクリプトから表示させたいのですが
何か方法はありますか？

>>215
辞書は見てみたの？

tell application "Finder" to shut down

スクリプトから表示、ってとこの意味がわからん。

>>216
一応見ました。
messageクラスがメールの参照ですよね？
これを外部から参照する方法と、ウィンドウで表示（選択でも良いですが）する方法が分かりません。
前者はmessage viewerなどでselected messagesで取り出すくらいしかわからなかったです。
メールボックス内の番号とかでメッセージの参照を取り出せないもんでしょうか？
後者は簡単にできそうなのにさぱーり見つかりません。
ここを良く見ろ、程度のヒントで良いのでよろしくお願いします。

>>218
分かりにくくてすみません。
Mail.appを前に持ってきて指定のメールを表示させる、ということです。
「何日までに返事をしなくてはいけないメール」を表示するスクリプトを作って、
cronで自動表示させるとかそんな感じのことをやってみたいわけです。

>>219
辞書の message viewer に selected mailboxes と selected messages があります。
リスト形式なので注意、あと動かない場合はバグです。

アイコン表示でぴっちり並べるスクリプト
tell application "Finder"
set thePath to folder "my:hd:folder:"
set theIconSize to 64
set theTop to 50
set theLeft to 50
set theXMax to 6
set theFiles to (files of thePath)

set theX to 1
set theY to 1
repeat with theFile in theFiles
set position of theFile to {theLeft + theX * theIconSize, theTop + theY * theIconSize}
set theX to theX + 1
if theX > theXMax then
set theX to 1
set theY to theY + 1
end if
end repeat
end tell

★

OS10.3 でシステム終了をAppleScriptで実行したいのですが、出来たらファンクションキーに割り当てられると
どなたか使っている方がいたら教えてください、お願いします。

ファンクションキーに割り当てることの意義がわからんが、Keyboard Maestroでも
買ったら？

tell application "Finder" to shut down

OS9でクリッピングファイルを作るコマンドって無いのでしょうか？
Finderからfileをmakeして、クリエーターとファイルタイプを
それぞれ"drag"と"clpt"に変えてみたのですが、Finderから開けませんでした。
クリッピングファイル作成のコマンドを教えてください。

Tanaka's osax

>>227
"MT Write Clipping" でいけました。THX!

> 217
ありがとうございました。

UI Elementなんですけど、Safariで表示させたページ上のフォームなどはAppleScriptでは扱えないんでしょうか？
Inspectorでは見えてるのに探してもみつからないorz

>>230
答えになってないかもしれんが、do JavaScript "..." in document ... で扱える。
ここら辺を参考に
http://www.apple.com/applescript/safari/

>>198
解決してるかな。
スクリプトのままだと思い切りCPUパワーを食いますが
「アプリケーション」等にすれば問題なかったです(うちで約2％)。

>>206なんと、OSXだと純正で命令方法があるんですね。

>>230ちょっとInspectorで覗いたけど
textfield 、 scrollarea 等の扱いがよくわからなかったです。


「アプリケーションパッケージ」にしたらスクリプト途中の quit (me)を受け付けませんね。
無理矢理解決したけど。

>>232
お、本当ですね。バグなのかな？
結局、idleが使いにくいのと、indicatorが元気に回るとこれまた妙に
CPUを喰うので、do shell script "sleep"一本でやることにして、
反応が鈍くなるのは諦めました。

ちなみに作ったのはこれです。スクリプト内容は公開してませんが、
AppleScriptと基本的なshell scriptの組み合わせで書きました。
http://homepage.mac.com/tarak/AccelerCoder/index.html

で、一応delayに置き換えてみたんですけど、やっぱり駄目ですね。
AppleScript Studioの場合、スクリプト自体はアプリケーション形式に
ならないみたいだから駄目なのかな？

スクリプトの中でquitすると、古いスクリプトアプリケーションではアプリ自身がquitするが、
Studioアプリではアプリの中の1オブジェクトのスクリプトがquitするだけなのかも。
tell my application to quit
でいけそうな予感。
だれか検証して。

quit my application

AppleScript Studio アプリケーションでも

quit

でアプリ自身がquitしてるけどなぁ。

>>236
うちのも単にquitでアプリが終了したよ。


ところで質問なんですけれども。
AppleScript Studio で popup button を使いたいのですが
ポップアップに含まれる項目を設定する方法がわかりません。
デフォルトで「item1」〜「item3」というのが設定されているのですが、
これを変更するにはどうすればよいのですか？　教えてちょうだい。

>>237
「変更」の具体的な内容を書け。
あと、「教えてちょうだい」ではなく「教えてください」だな。

こっちでも叱られた─────!!　ていうか同じひとじゃん！

最初からポップアップにある「item1」〜「item3」ってのを
例えば「あ」「い」「う」「え」にしたいんだけど。
説明ベタ？ですまんね。おねがいだから教えてください。

最近DragThingで遊ぶためにいろいろ調べたのでそのメモ
・画像ファイルのアイコン'icns'を読み込む方法
Satimage.osaxが必要
http://www.satimage.fr/software/en/scripting_additions.html
set icnsData to (load resource -16455 type "icns" from theFile)

tell application "DragThing"
set full trash icon to icnsData
end tell
で設定できます

・画像ファイルにアイコンをつける方法
tell application "Image Events"
launch
set theImage to open theFile
save theImage with icon
close theImage
end tell

・画像データの種類を変換する方法
GraphicsImporter OSAXをつかう
http://www.azug.gr.jp/~h-abe/freeware/gio/index.ja.html
set theTiff to giconvert theImage type "TIFF"
iTunesのアートワークの形式も好きな画像タイプに変換できる

--
これらを組み合わせるとiTunesで再生中の曲のアートワークを
DragThingのゴミ箱アイコンに設定できた

>>239
PopUpButton に MenuItem を追加するには、
PopUpButton をダブルクリックして Menu を表示させた状態で
InterfaceBuilder の Cocoa-Menus パレットにある Item を
その表示された Menu にドラッグ＆ドロップする。

MenuItem に表示される文字を変更するには、
変更したい MenuItem をダブルクリックする。

こういうことが訊きたいのか？

>>241
おおっ、まさにそれが聞きたかった！
なるほどメニューを表示させた状態で設定するんですね。
InfoパネルのAttributesから設定できなかったので
コード内から直接いじくるしかないのかと思ってました。
どうもありがとう。多謝。

ちなみにコード内からset ~ とかでいじくる方法はないんでしょうか？

>240のImage Eventsで画像アイコンをつける方法は
画像を再圧縮するのでjpgとかに使うと劣化しますので注意してください。

最近、カキコを読んで「ああ、あの人だな」とわかることがある...
狭い世界だから...

>>240
アイコンのことなんですがtiff2icnsってtiff画像をicnsに変換できる
コマンドがあるのを知りました。
set theTiffPath to POSIX path of "どっか:foo.tiff"
do shell script "tiff2icns " & (quoted form of theTiffPath)
みたいにやると変換できました。
ただ日本語ファイル名だと変換できないようです。
エラーはでてませんがicnsもできてません。
なんとかならないのかなあ。

age

2バイト文字に限らずファイルパスってのは普通は囲むだろ。

という話ではないのか、、、スイッチの-noLargeだな。

発表会スレなのに、ほかに関連スレが無いようなので質問させていただきます。

AppleScript Studioアプリに非標準UNIXコマンドをパッケージ内にバンドル
したいのですが、アプリの設置パスを獲得する方法はないでしょうか。

>>249
アプリの設置パスって path to current application とか？
バンドルならまんま bundle があるし。
AppleScriptKit を見ればわかるでしょ。

プレーンなテキストファイルのﾄﾞﾗﾄﾞﾛで原稿用紙換算できるAppleScript作ろうと勉強中なんだけどwebにある情報だけじゃどうにもならんですた

なんかそこに至る為のお勧めな本とかありませんか。
技量はベーマガ世代でPHPでシンプルな掲示板くらいなら作れてCocoa+Objective-Cでヘボなシューティングゲーム作った事がある程度です。

N88BASIC以来のほぼ0から初めましたが
「AppleScript Programming for Mac OS X」（掌田津耶乃著・ソシム刊）は
AppleScriptの基礎的な部分の解説が充実しててわかりやすかったですね。
アスキーから出てる「AppleScript Studioでゼンマイびゅんびゅん！！」の方は
Cocoaアプリ作成例集といった感じですた

>>250
プロジェクトのResourcesに'gawk'をドラップして、

set gawkPath to ((POSIX path of (path to current application)) & "Contents/Resources/gawk")
set content of text field "tv" of window "wi" to (do shell script gawkPath & " '{print $0}' " & targetFilePath)

こんな感じでOKでした。ありがとうございます。
単体で機能するフロントエンドが作れますねぇ。うれしい。

http://developer.apple.com/ja/technotes/tn2065.html

ところで、AppleScriptKit(用語辞典?)の中をGrepするにはどうしたらよいんでしょう。
AppleScriptKit.asdictionaryをスクリプトエディタで開いても、
左のコラムでは展開しているクラスやコマンドにしかヒットしないし、
右のコラムでは単ページ検索になってしまいます。
なんかこれ使いにくいですよねえ?

>>252
僕も掌田津耶乃氏のページを見てやっています。
本も欲しいですね。

>>252
レスどもです。
「AppleScript Programming for Mac OS X」所望してみます。

AppleScript Studioで作ったアプリのウインドウを、
常に最上位に表示するにはどうしたらよいんでしょうか。
ヘルパーアプリを作っているんですけど、それがネックで……。
トグルできるといいんですけどね。
ゼンマイびゅんびゅんに載っているっぽい感じですが。
週末には買おうと思いますが、ご存知の方がいらしたら教えてください。

>>255
フローティングウインドウにしたいなら

set floating of window "hoge" to true

で逝けるかと。ググり情報なんで違ったらスマソ。

以前作りかけたアプリで使ったのに削除してたよorz
何か作る度にWebと睨めっこするのは効率が悪いな。
自前でリファレンス作ってまとめなきゃならんか……。

ググりキーワードをありがとうございます。
"最前面"とか"常に最上位"とかでググってました。

> set floating of window "hoge" to true

これだけでは何かダメだったです。

とりあえず、最前面に固定することには成功しました。

question about global floating window
http://lists.apple.com/archives/applescript-studio/2004/Jun/msg00178.html

on awake from nib theObject
set floating of theObject to true
set hides when deactivated of theObject to false
end awake from nib

こういうハンドラを書いて、windowのAppleScriptのActionにNibのawake from
nib のチェックボックスをONにすればOKでした。
後で作り途中のヘルパーアプリに適用してみようと思います。
ありがとうございます。

AppleScript Studioで
progress indicatorの最大値最小値の設定をしたくて以下のようなコードを書きました。

1:　tell progress indicator "indi1"
2: display dialog "aaa"
3: set minimum value to 1
4: display dialog "bbb"
5: set maximum value to 100
6: display dialog "ccc"
7: end tell

しかし３行目でも５行目でも
NSCannotCreateScriptCommandError (10)
というエラーが出てしまいます。

これはテスト用に数字を決め打ちしていますが、実際に作りたいアプリケーションの中では
最大値が時によって変わるため、どうしてもコード上で最大値最小値の設定をしたいのです。
どこか「その書き方間違ってるだろ！」とか「ここの設定見てみろ」とかありましたら
ご指摘願います・・・

OSは10.3です

>>258
構文はあってる。
思うに progress indicator オブジェクトまでのパスが通って無い。
オブジェクトのある Windows もしくは Sub View に tell してないでしょ。

レスありがとうございます。自分勘違いしてました。
２行目のdialogが表示されてれば、１行目のtellは通っているものだと思っていました・・。

確認したところパスが通ってない部分（凡ミス）を発見し
修正して無事動きました。

アホな質問ですみませんでした・・。
レスいただけて助かりました。重ね重ね感謝です。

>>256
無事常に最上に表示されるヘルパーアプリになりました。
ありがとうございます。

>>256
サンプルアプリ作ってわかりやすいファイル名で保存しとくというのも手かと。

立て続けで恐縮ですが、InDesignで既に選択されたオブジェクトを選択から外
すのはどうやるのでしょうか。用語を見ると、

select: Select this ^Object
select reference -- 割愛
[existing selection replace/add to/remove from] -- How to handle the existing selection

このようになっており、

select someItem with existing selection

とやると、選択に追加していくことができるのは分かるのですが、

> replace/add to/remove from

これはメソッドではないようなので、select と existing selection 、そして
その他の修飾語で実現すると思うのですが、よく分かりません。グループ化さ
れたアイテムを複数選択し、その中から操作対象を特定条件で選択。あとはア
ナログ操作、みたいなことをやろうと思っています。
よろしくお願いします。

初心者レベルですが、こんなん作ってみました。

tell application "Finder"
display dialog "何と言わす？" & return & "日本語はローマ字で入力" with icon note default answer "" buttons {"OK"} default button 1
set SPEACH to text returned of result
say SPEACH as text
display dialog "んで、コレど〜するよ？" with icon note buttons {"どうもしない", "AIFFで保存"}
set Ans to result
if button returned of Ans is "どうもしない" then
return
else if button returned of Ans is "AIFFで保存" then
display dialog "ファイル名を決めれ" & return & "（英数字限定）" with icon note default answer "SPEACH" buttons {"OK"} default button 1
set FN to text returned of result
say SPEACH as text saving to {(FN as string) & ".aiff"}
display dialog "HDの第一階層にいるよん" with icon note buttons {"OK"} default button 1
end if
end tell

声はシステム環境設定のスピーチでデフォルトの声で設定されているものになります。
日本語を喋らせるにはちとコツが必要です。
「son na koto yori tyotto ki i te ku da sa i yo」とするよりは、
「son na koto yori chotto key te ku dasigh yo」とするカンジに、
ローマ字そのまんま入力するよりは、発音の近い英単語を組み合わせる方がいいです。
なお、OS10.3でしか動作確認しとりません。

>>264
がんばってますね。
激しく学習のモチベーションになるので、
AppleScript Studioも平行してみるといいですよ。
>>263
自己レスですが、CSの3枚目のCDに付いていたサンプルの中に、

select nothing

という表現を発見しました。

select nothing with existing selection

という表現も可能ですね。selectionから参照を取った後、
select nothing で選択解除、あとは地道にselectしていく
というのでも目的は果たせそうです。

unselect みたいなメソッドがあるといいんですけどね。

InDesignばっかりで申しわけないです。
最前面のウインドウをサイクルさせるスクリプトを作ったのですが、

set myUnSortedWindowList to windows

で取得できる参照のリスト(?)の順序が不定なのでソートしたいのです。
いい方法はあるでしょうか。普通にやろうとすると、型変換に失敗
してエラーになってしまいます。一応、下記で問題はないのですが、
ソートできればスッキリするだけに、ちょっとお聞きしてみました。

--InDesignのウインドウを実行の度にサイクル表示する
--InDesignのダイアログで、タブブラウザみたいに
--ウインドウ選択みたくするのもいいかもですね。
property previousCurrnetItem : 1
property CurrnetItemNumber : 1
property myUnSortedWindowList : {}

tell application "InDesign CS_J"
if (CurrnetItemNumber is not equal to (count of windows)) or (myUnSortedWindowList is equal to {}) then
set myUnSortedWindowList to windows
set CurrnetItemNumber to (count of windows)
end if
if previousCurrnetItem is greater than (count of myUnSortedWindowList) then
set previousCurrnetItem to 1
end if
try
bring to front (item previousCurrnetItem of myUnSortedWindowList)
on error
set myUnSortedWindowList to windows
bring to front (item previousCurrnetItem of myUnSortedWindowList)
set previousCurrnetItem to previousCurrnetItem + 1
return
end try
set previousCurrnetItem to previousCurrnetItem + 1
end tell

>>266
InDesign を持っていないので出来るかわかりませんが、
window の id を取得して地道に並べ替える手が使えるのでは。

>>268
それがよくわからないのですよ。
参照がよくわかってない証拠です。

tell application "InDesign CS_J"
windows
end tell

> layout window id 28009 of document "名称未設定-1"

↑windowsからはこんな山椒が返ってきます。で、

tell application "InDesign CS_J"
set myWindows to windows
repeat with i in myWindows
set end of documentNameList to (name of i)
end repeat

こんな風にnameは取得できるのですが、(id of i)が取得できないのです。
nameは一意とは限りませんからねぇ。
(window id of i)とか、(layout window id of i)も試したのですが。
こんな基本すらできない自分が悲しい。

■おまけ

Microsoft Excel(2004)で>>267と同じことをするスクリプト……っていうかコマンド。
iKeyなどでExcelのApplication in Front(Ver1系で言うSet)に割り当てると至極便利。
というか、標準であるのかな。ショートカット。ちょっと調べた限りではないみたい
だけど。

tell application "Microsoft Excel"
activate next of active window
end tell

>>269
用語辞書は知ってますよね。

set myWindows to windows
properties of front of myWindows

これで属性一覧を取得した中に id は入ってませんか？
これらが参照できる筈の属性なんですけど。

>>271
結局ふつーの方法は無いようです。
do shell script で標準出力として値をもらって、
加工する方法を某せうxーさんのBBSで教えてもらいました。
わりと瞳孔が開く思いです。まさにこのスレの主旨に近い感じかと。

set window_id to word 4 of (do shell script "echo 'tell application \"InDesign CS_J\" to get layout window 1' | /usr/bin/osascript")

Script Debugger超絶便利で、ほかに勝る存在も無いようなので
買おうかと思うんですが、アンチエイリアスが切れなくて、
フォントが変えられない部分の表示が見辛くて仕方ありません。
これって何とかならんもんでしょうか。

▲911が自作自演の可能性は？
http://news17.2ch.net/test/read.cgi/news5/1080481431/l50

すいません。たびたび失礼します。
Global floating window 化には成功したんですが、
Global floating window 化したウインドウをクリックしても、
タスクがスイッチしないようにはできないでしょうか。
親アプリとシームレスなヘルパーアプリにしたいのです。
REALbasic ではウインドウのプロパティにある
Global floating window を ON にすると簡単にできるのですが、
できれば AppleScript Studio で作りたい……。

Interface Builder の NSPanel のプロパティに、
Non activating Panel (Panel Only) というそのものズバリの
ものがありますが、これは AppleScript Studio では、
現状無効なようです。

Info.plist の Expert View に LSUIElement のキーを作り、
Value を 1 にするとバックグラウンドで動くアプリになりますが、
これは Face Less なアプリを作るための属性のようで、
Dock に表示されず、ウインドウも出てこなくなってしまいます。

新規の質問なんですが、お邪魔します。
propertyを並列的に書くことって、できるんでしょうか？

リストから名前を選ぶと、名前に対応した個人データ（URLなんですが）を
クリップボードに収める、というスクリプトを作って使ってるんですが、
名前とデータを別々のpropertyに収めています。

property nameList : {"あ","い","う"}
property siteList : {"Ａ","Ｂ","Ｃ"}

これを

{"あ" "Ａ",ﾉ
"い" "Ｂ",ﾉ
"う" "Ｃ"}

というように書きたいんです。
IMの辞書登録とファイルメーカーでも同じものを作ってますが、
一番使っているのがこのスクリプトなので、なるべくこれを
編集しやすくしたいのです。

「keystroke」(>>207)は、ショートカットにしか対応してないのですか。
キーボードを自由に打たせる、
例えばテキストエディットで文字を入力したり、削除deleteしたりする方法はありませんか。
シェアウェアではあるようですが。(Script Palette)

>>277
tell application "System Events"
tell process "System Events"
key code 38 using {control down, shift down} --日本語入力に

keystroke "watasiha"
key code 49 --スペース
key code 36 --return
keystroke "neko"
key code 40 using control down --k
key code 36 --return
keystroke "desu"
key code 36 --return

delay 4
key code 51 --delete
key code 51 --delete
key code 51 --delete
key code 51 --delete
key code 51 --delete
key code 51 --delete
end tell
end tell

入力はクリップボードに入れてペーストさせた方がいいと思う

>>276
こんな感じ？

property theLists : {{"あ", "A"}, {"い", "B"}, {"う", "c"}}
property theRecords : {{name:"あ", data:"A"}, {name:"い", data:"B"}, {data:"c", name:"う"}}

display dialog item 1 of (item 1 of theLists)
display dialog item 2 of (item 1 of theLists)

display dialog name of (item 1 of theRecords)
display dialog data of (item 1 of theRecords)

display dialog name of (item 3 of theRecords)
display dialog data of (item 3 of theRecords)

>>278
すっげ！

>>279
ありがとうございます。
これは、それぞれの入れ子の１つめ
（theRecords内のnameにある「あ,い,う」の３つのデータ全部、といったようなもの）
だけをリスト化することはできますか？

↓は使用しているスクリプトです。
property nameList : {"あ", "い", "う"}
property siteList : {"Ａ", "Ｂ", "Ｃ"}
set theName to (choose from list nameList) as string
if theName is not "false" then
try
repeat with i from 1 to number of siteList
if item i of nameList is theName then exit repeat
end repeat
end try
set the clipboard to item i of siteList
display dialog (the clipboard)
end if

>>281
property theLists : {{"あ", "A"}, {"い", "B"}, {"う", "c"}}
property theRecords : {{name:"あ", data:"A"}, {name:"い", data:"B"}, {data:"c", name:"う"}}

set nameList to {}
repeat with i from 1 to length of theLists
set nameList to nameList & item 1 of item i of theLists
end repeat

set nameList to {}
repeat with i from 1 to length of theRecords
set nameList to nameList & name of item i of theRecords
end repeat



なんかスマートじゃない、、、

よくわからんけど、こんなんしたいのかね？

property theRecords : {{name:"あ", URL:"Ａ"}, {name:"い", URL:"Ｂ"}, {name:"う", URL:"Ｃ"}}

set theNameList to {}
repeat with i in theRecords
set end of theNameList to name of i
end repeat

set theName to (choose from list theNameList) as string

repeat with i in theRecords
if theName = name of i then set the clipboard to URL of i
end repeat
display dialog (the clipboard)

良いか悪いかはわからんが、おいらは外部にテキスト作って読ませるほうが好き。

（てきすとふぁいる）
あ,Ａ
い,Ｂ

（すくりぷと）
tell application "Finder"
set theRecords to {}
set filenum to open for access file "てきすとふぁいる"
try
repeat
set end of theRecords to read filenum using delimiter "," before return
end repeat
end try
close access filenum
end tell

set theNameList to {}
repeat with i in theRecords
set end of theNameList to item 1 of i
end repeat
・
・
・

そもそも面倒なAppleScriptだけで作ってるのかな？
AppleScript Studioならリストから対を取得すれば済む事だし。

>>282
>>283
>>284
ありがとうございます。なんか、できました。できたかも。
とにかく、入れ子にできるのは知らなかったです。

>>285
勤務先のが、お古のOS9機でして。

マウスクリックを AppleScript で実行することは可能なのかな？

>>287
OS9ではCursor OSAX,S穫di's Additionsなどが有ります。

ScriptDebuggerのDebugモードで動いて、Debugモードを外すと動かなくなるのっ
て何なのだろう。デバッグできねーじゃん!!

あと、ScriptDebuggerでコンパイルできて、ScriptEditorでコンパイルできな
いのがある。

あと、コメントでエラーが出ることがある?

わけわかんねー!!

スクリプトエディタの2バイト文字の処理は最悪で毎度腹が立つ。

そうか？
StringとUnicode textを使えば問題ないと思うけど。

スクリプトエディタでプログラムを書いているときに；
コンパイルできない時の指摘部分選択がずれる。
日本語がうまく入力できない時がある。(後ろに「-」等を書いておくと行けるけど)
>>291どうすればよいでしょ。

上とは別の話です；

「常にこのアプリケーションで開く」でファイルを開くと、
タイプやクリエータは変更されず、リソースフォークが追加される。
(10.3.5にて ／勘違いされていることがある)

それでファイルの整理として、
リソースは嫌いなので削除するとともに、if文を羅列したドロップレットで、
　set file type of obj to "JPEG"
　set creator type of obj to "prvw"
などとやるんだけど、aif等(他の音声形式も？)には命令が効かず、何の変更もされない。
何が悪いのでしょうか？

>>292
俺の場合AppleScriptStudioでファイル文字数を数えるスクリプトなんだけど、
濁点とかを一文字と数える場合があるらしくはまった。
規則性がイマイチはっきりしなくて対処に困ったんだけれど、
あまり意味のなさそうな部分にもひたすらstringを突っ込んだらうまく数えられるようになった。
でも凄く見にくいスクリプトになっちゃったので、俺も日本語のうまい使い方を教えて欲しい。

tell文のネストについて教えてください。

tell app "InDesign CS_J"
　tell app "Microsoft Excel"
　end tell
end tell

こういうネストはダメなんざんしょうか。
tell app "InDesign CS_J"内では、メソッドやオブジェクトはInDesign
のものとして扱われるのでダメだと分かるのですが、
スポット的にこの束縛から逃れる方法は無いでしょうか。

tell app "InDesign CS_J"
　my useExcel()
end tell

on useExcel()
　tell app "Microsoft Excel"
　end tell
end useExcel

ハンドラ化してもダメでした。

>295
別にダメなことはないと思うけど、全てをinDesignのtellブロックに
押し込む必要もないでしょうかね。

on run
　tell application "InDesign"
　　…
　　…
　end tell
　tell application "Excel"
　　…
　　…
　end tell
　tell application "InDesign"
　　…
　　…
　end tell
end run

Script 全体を包むのはInDesign へのtell ではなく、run ハンドラ
という意識を持って。

>>296
ありがとうございます。いちいち閉じて交互にやればいいんですけど……。
InDesignのオブジェクトの中に再帰的に中に入っていって、ループで調べつつ
最後に出てきたものにEXCELから取ってきたデータを流し込み、また次へ行くと
いう流れなもので、そういう交互の流れにはしにくいんですよね。

結局動いたのですが、動かなかったのはScriptDebuggerのDebuggingをONにして
いたからのようでした。なんで動かないのか分からず、髪の毛をかきむしりな
がら先走って書き込んでしまい申し訳ないです。

tell application "Microsoft Excel"
　Select Row ((Row of Selection) + 1)
end tell

例えば、上のようなOne Linerが、Debugging OFFの状態では動くのに、ONだと
動かないといった具合です。(Excel X for Mac)

> Microsoft Excel got an error: row 5 doesn't understand the select message.

ScriptDebuggerの調子が悪いんですかね。メチャクチャ便利なんですが。
動かないといえば、最初のは動くのに次のが動かないのが謎。

tell application "Microsoft Excel"
　Select Row ((Row of Selection) + 1)
end tell

tell application "Microsoft Excel"
　tell worksheet 1 of workbook 1
　　Select Row ((Row of Selection) + 1)
　end tell
end tell

>297
あ、動いたんだ。動かないのは変だなぁと思ってたから
それはそれでよかった。。

ScriptDebbugerとの相性は持ってないから何とも言えないが、
一行スクリプトなら
tell application "Excel" to Select Row hogehoge
と、正に一行で書いてみたら通らないかな。試しに。

Dialog Directorでダイアログ作るときに
front above 〜ってすると、常に特定のアプリの前面に
ダイアログを表示できて、便利だったんだけど
AppleScript Studioで同じようなことする方法あります？

過去ログに常に最前面にする方法があったけど
特定のアプリの前面ってのがわからないんです。

ScriptDebbugerを使っている方に質問です。
ScriptDebbuger v106JはOS9にてよく使っていましたが、現在のv.308+OSXの日本語の相性はどうですか？
デモ版を入れてみたところメニューやウィンウタイトルなどが文字化
けするようですが、その他の不都合などあれば教えてください。

>>298
今試してみたら、どっちでも動きます……。
いろいろ試しているうちに、どっがおかしくなっていたのかな。
何が何やら……。おかしくなったらログアウトするか再起動してみます。

>>299
僕が思い付くのは、常にfrontmostを監視する常駐スクリプトを別に走らせて
おき、ターゲットアプリがactiveになったら、もしくはdeactiveになったら、
AppleScript Studioで作ったヘルパーアプリ(?)に対してtellしてやる、という
ものです。例えば、以下をアプリケーション形式かつ終了しない設定で保存し
実行すると、それを行なう常駐アプリになります。動作は確認しています。

--起動時に一回だけ変数をグローバル宣言/初期値を代入
global oneTimeFlag
set oneTimeFlag to true

--以降起動中は間欠実行
on idle
　　if (((path to of frontmost application) as Unicode text) contains "Your Host Application Name") then
　　　　--ホストアプリケーションがfrontmostになったら実行
　　　　tell application "Your Applecation Name"
　　　　　　set floating of window 1 to true
　　　　　　set hides when deactivated of window 1 to false
　　　　　　if oneTimeFlag is true then
　　　　　　　　activate
　　　　　　　　set oneTimeFlag to false
　　　　　　end if
　　　　end tell
　　else
　　　　--frontmostがホストアプリケーションでなかったら実行
　　　　tell application "Your Application Name"
　　　　　　set floating of window 1 to false
　　　　　　set hides when deactivated of window 1 to true
　　　　　　set window 1 to last window
　　　　　　set oneTimeFlag to true
　　　　end tell
　　end if
　　return 5
end idle

上記のスクリプトは、そのAppleScript Studioアプリ内に記述することができ
ることも分かりました。つまり、on idleハンドラをAppleScript Studioアプリ
内に書けるということです。上記をただ書いただけだと不満が出ると思うので
改良は必要ですが……。

tell application "Your Applecation Name"
↓
tell window "wi"

などとして、自分のウインドウオブジェクトに対してtellします。

on idleを置くことで、通常の処理とは別に、バックグラウンドで別のことをさ
せられるんですね。初めて知りました。on idleを使うスクリプトは専用に作る
しかないと思ってました。これはスクリプトの幅が広がるなぁ。

>>300
変数やリスト、レコードに日本語が入っていても、それが変数モニタ上で文字
化けして見られないということはないようです。

ソース内の文字列、コメントに日本語を使う際、カーソルを右に移動するとき
「1バイト文字、2バイト文字」というならびがあった場合、2バイト文字の間に
入ってしまうことぐらいですかね。

例えば「aあ」という文字のならびで、行頭から行末に向かってカーソルを移動
していくと、aの次にカーソルが移動するのは「あ」の1バイト目と2バイト目の
間です。行末から行頭に向けての移動では問題ないようです。

マウスでの指定は常に正常なので、困ったらマウスでポイントを移動するなり、
選択範囲を作ります。

あとは、特定の環境でフォントの設定が予期せずデフォルトに戻ってしまう、
ということを経験しています。

既に指摘されているように、フォント設定ができないところでは文字化けしま
すね。あと文字が小さい!! 小さい上にアンチエイリアスがかかるのでMac OS
X上では辛いです。

結構困るのは用語説明が文字化けしてしまうこと。本文に日本語が使われてい
るのを見たことがないので使う分には困りませんが、アプリケーション名が日
本語のものについては、開いてみないことには何だか分かりません。

すいません、かなり今更なんですが、
tanaka's osaxの使用方法に関する資料を探しています。
特に文例みたいなものを探しています。Web/書籍問いません。tanaka's osaxに
辞書は付いていますが、辞書だけですぐ使い方が分かるほどのレベルではないのです…。
OSXが使えればPerlなんかで済ませられるんですがOSXを使えない環境で
スクリプト制作をしなければならないもので。

>>306
何を作るのかわかりませんけど、Mac Perlではダメですか？

tell me to run

>>305
ご回答ありがとうございます。
Open Recentなどの日本語ファイル名が化けるのは意外に不便ですが、実質
上スクリプト作成には問題がないようですね。
>あと文字が小さい!!
確かに！ふと気づくと梅干し食ったような顔になっているときがありますw


>>306
ソフトバンクから出版されている「AppleScriptリファレンス」に幾つかの
コマンドについて田中氏本人による用例、解説がのっています。

もしくは、ご存知かもしれませんが田中氏のフォーラムがありますのでそち
らで聞いてみるのも良いかと思います。
http://mtlab.ecn.fpu.ac.jp/webcon.mtxt

ありがとうございます。
AppleScriptリファレンス探してみます。フォーラムは知ってはいるのですが
私のような初心者が厨な質問をするのは失礼かと思いまして…。
Macperlは使えないのですよ。会社で使うので新たにソフトをインストールするのは
色々手続きが面倒で…。 tanaka's osaxはすでに入っている環境なので。

>>310
確認してみたら「AppleScriptリファレンス」に掲載されているコマンドは
MT Parse CGI, MT Pack CGI, MT List Files, MT Parse, MT Pick Strings,
MT Pick Linesの六つだけでしたorz
　
でも何かと役に立つリファレンス本なので持ってても損はしないかと思いま
す。それにしてもそろそろOSX対応版が出ねーかなあ、出ねーだろなあ...

たしかにOSXオンリーな辞書は欲しいかも。いまのソフトバンクパブじゃ
そういうの出す体力ないかもしれないけど。

OSのﾊﾞｰｼﾞｮﾝが細かく上がったりする度に状況が変わってるというのも
出しにくい一つの原因では。

>>310
自分が参考にしているのはこれくらいです

Tanaka's osax 2.0 の解説文書
http://mtlab.ecn.fpu.ac.jp/mySamples/Tanaka_osax_2.txt.sit
（2.0.1とは少し違う部分も有るようです）

Tanaka's osax に関する覚書１
http://mtlab.ecn.fpu.ac.jp/webcon.mtxt$030123081933.html

>>278ありがとう。
でもテキストエディット上で動かしたところ、カタカナ化がうまく行かないです。
(ことえりだし手打ちなら行ける)

>>314
さんくすです。解説文書参考になりますね。

>>304
ていねいな回答ありがとうございます。
個人的にはon idleハンドラってこれまでなんとなく避けてたんです。
OS 9までは常駐アプリってうっとうしい感じがあったので。
今はそんなこと気にしてないくせに、自分では気づかなかったです。
作成中のスクリプトに組み込んでみます。

>>317
InDesignのヘルパーアプリを作っていて、そういう動作ができるのがベストだ
な、と思っていたのでついでですよ。おかげで勉強になりました。

僕も常駐アプリをうっとおしがる方です。用が無いときにも定期的にアップル
イベントが飛んでいるのは気持ち悪いですし。

それより、REALbasic でウインドウのプロパティにあるGlobal floating
windowをONにしたとき相当のGlobal floating windowにする方法は無いですか
ねぇ。これを設定したウインドウは、クリックしてもタスクスイッチしないん
ですよね。あたかも親アプリのツールパレットであるかのようになります。

REALbasicスレあるよー

REALbasicってどうもいつもREALbasic本体にバグがつきまとう感じで
好きじゃなかったけど今は直ってるのかな。

REALbasicの開発状況が改善でもされなけりゃバグは出つづける。

もうだめぽですか？
OSXだとXCodeでアップルスクリプトにGUI簡単に付けられるしね。

すいません、質問させてください。

エクセルファイルをCSVファイルに変換して保存したいのですが、
数が多く、またCSVファイルにしたものを他のアプリケーションで
別の処理を行わせたいため、AppleScriptで組もうと以下のようにしてみました。

property inFile : alias "Mac:aaa.xls"
tell application "Microsoft Excel"
set aaa to open workbook workbook file name ((inFile as text) as Unicode text)
save workbook as aaa filename "Mac:aaa.txt" file format CSV Mac file format
end tell

変換してくれません…。
どこが駄目なのでしょうか。

>322
>どこが駄目なのでしょうか。

質問の仕方とか。情報が足りない。
で、Excelを持っていないのでExcelのAppleScript辞書が見られないのだけど、
openやsaveのその妙な構文、それで合ってるの？

自身と同階層のテキストファイルを読み込ませるにはどうすればよいですか。
path からうまく item扱いにできません。

>>324
read ((((path to me) as string) & "ファイル名") as alias)
これじゃダメ？

ミスった。。。
read ((((path to me) as string) & ":" & "ファイル名") as alias)

>>322
先ずExcelのスクリプトは全くやった事がないのでやっつけですまんが、
ちょっと辞書を見てみたところ...

3行目は単純に open inFile では駄目なの？
でもって

4行目さっぱり意味が分からん。単純に
save workbook 1 in (inFile as string &".csv") as CSV
では駄目？ひょっとして何か他の理由があるのかなあ。

ただこのままだとファイル名が　aaa.xls.csv となってかっこ悪いので拡張子をかえるサブルーチンを作った方が良いと思うがまあそれはおいといて。

でその後に
close workbook 1 saving no
でワークシートを閉じる。

これで取り敢えずCSV形式で保存できると思うが。
もし貴殿の意図と違ってたら御免。

>>326
それじゃあ、アプリ本体のパスも入っちゃうよ。

set thePath to path to me as string
set oldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to ":"
set thePath to (text items 1 thru -2 of thePath) as string
set AppleScript's text item delimiters to oldDelim
read ((thePath & ":" & "ファイル名") as alias)

Finder使えばもっと簡単だけど

うまく読み込めました！
>>328
read ((thePath & ":" & "ファイル名") as alias)
これで行けました(意味が分からないけど)

>set thePath to (text items 1 thru -2 of thePath) as string
→ set thePath to (text items 1 thru -3 of thePath) as string
path末にコロンが潜んでいる？ようです。

delimiter処理も知りませんでしたが
これ単体としては文字扱いのままでも支障無しでした。

>>323,>>327

すいません、環境をきちんと書いていませんでした。
使用OSは10.3.4、Excelのバージョンは2004です。

結論から言うと>>327さんの記述で保存することが出来ました。
今後の参考までに質問までの経緯を書いておきます。

>>327さんで書かれているopen,saveコマンドは、Standard Suiteのものです。
ただ、openは問題なく出来たのですが、他のアプリケーションと同じように
saveコマンドを使おうと、save document 1 や save window 1
と記述してみたのですが、エラーが出てしまいました。
（save のみなら上書き保存として可）
（エラー内容：window 1はsaveコマンドを認識できませんでした、となる。）

そこで他にファイルを保存するコマンドがないかと探すと、Microsoft Excel Suiteに
open workbookとsave workbook asというコマンドがありました。
二つともExcel独自のコマンドなのでしょう。
辞書が見られない状態ならば>>323の言う通り、妙な構文と感じると思います。

つづく

名前入れ忘れた。(汗)　ではつづき


辞書のない人のためにコマンドの説明をします。
カッコのないところは必ず記述、[]は任意に記述、()はユーザが記述するところです。

open workbook
　　workbook file name (Unicode text)
以下省略
Result : workbook

Unicode textのところは要はファイルのパスです。
Unicode textにしたいがために>>322ではas Unicode textにしています。
（as textは要らないですね）
resultでworkbookを返してくれるので、saveの時に確実に
開いたものを指定するためにopenではなくopen workbookを使用しました。

save workbook as (workbook)
　　[filename (Unicode text)]
　　[file format (add in file format/CSV file format/CSV Mac file format/...]
以下省略

>>322ではUnicode textでパスを記述して、file formatでファイルの形式を指定しています。
...で省略していますが、いろんな形式に保存できます。これはsaveでも出来ます。
ただsave workbook asは（open workbookでもそうですが）エクセルの機能をフルに使えます。
省略していますが、パスワードを指定したり、読み取り専用にしたりするオプションを
つければ、openやsaveだけでは出来ない細かな指定が出来ます。
今回はファイルの形式を変えるだけなので、saveで良かったですね。

つづく

つづき

質問するに至った理由は、
(1) Excelは開いたファイルをwindowやdocumentではなく、
　workbookとして保持する事に気付かなかった。
(2) save workbook asがファイルの形式の指定通りに保存してくれなかった。
の２点です。
(1)は完全に失念しておりました。
(2)について、文法的にはコンパイルを通して実行も出来ているし、ファイルの保存も出来ている。
ただしCSV形式にはならかった、と。
何が悪かったかは>>327さんが今回の目的を達成するための、別の方法を利用しての答えを
言ってくださったので、結論は分からずじまいです。

ApplescriptとExcelの情報が日本語では皆無に等しいため、
まとめさせていただきました。
>>322さん、>>327さん、回答ありがとうございました。

おまけ

ここは発表のスレなので、上記を作るまでに作ったサブルーチンを一つ。
最初はGUI Scriptingを利用して作成しようとしてました。

GUI Scriptingを利用して、メニューの選択を行うサブルーチンです。
当然ユニバーサルアクセスをONにしないと使えません。Panther以上です。
メニュー番号での指定は出来ませんので、
言語環境が切り替わると、突然使えなくなります。(汗)

pickAppには、アプリケーションの名称を指定（例；"Script Editor"）
pickListには、メニューの項目名のテキストをリスト形式で指定
（例：{"スクリプトエディタ","スクリプトエディタについて"}）

systemPickMenu("Script Editor", {"スクリプトエディタ","スクリプトエディタについて"})

on systemPickMenu(pickApp, pickList)
tell application pickApp to activate
tell application "System Events"
set pickItem to menu bar 1 of application process pickApp
repeat with i from 1 to (length of pickList)
if i = 1 then
set pickItem to menu bar item (item i of pickList) of pickItem
else
set pickItem to menu item (item i of pickList) of menu (item (i - 1) of pickList) of pickItem
end if
end repeat
pick pickItem
end tell
end systemPickMenu

スクリプトスレここだけになってるんで、
質問していいでしょうか？

ひさしぶりにスクリプト触ったら、基本から忘れてるし、
サブルーチンもライブラリ化してなかったから一々作らないといけないし、
OS Xの仕様の罠にかかって疲れました。

環境はOS X 10.2.8 AppleScript 1.9 スクリプトエディタ 1.9

作ろうとしたのは単に『Finderのあるウインドウの中のファイルのリストをテキストに書き出す』というもの。
１行にファイル名、作成日、修正日、サイズ、コメントを入れて
テキストはAppleScript内部で作るのではなくてデータをJedit4に渡すようにしました。

ところがFinderのファイル名か何かがclass『utxt』になっているらしく、これが『as text』などを使っても変わらないらしくて
Jeditに渡すところでエラーになります。
どうにかならんでしょうか・・。

as string は？

>>334
as Unicode textですかね。
OS Xではtextと使い分けないといけないようです。

>>303でも使ってますが、文字列照合でもハマるので覚えて覚えておいた方がいいですよ。
つまり、textとUnicode textを比較しても一致しません。

いえ、えっと、utxtから普通のテキストにしないといけないと思うので、
as Unicode textではないように思います。
やはりダメでした。

すいません。問題のスクリプトをここにペーストして、
検証・添削してもらっていいでしょうか？

Unicode変換にはTEC.osax、比較にはCompareUnicode.osaxてのが有ったと思う。

tell application "Jedit4"
activate
set aDoc to make new document
end tell

tell application "Finder"
activate
set windowName to name of window 1
set lastNumber to number of items of window 1
repeat with itemNumber from 1 to lastNumber
set aFile to item itemNumber of window 1
set aRecord to "" as text
set aRecord to name of aFile & tab & size of aFile & tab & my date2Str(creation date of aFile) & tab & my date2Str(modification date of aFile) & tab & comment of aFile & return
tell application "Jedit4"
activate
set aRecord to aRecord as text
--display dialog class of aRecord
insert aRecord at end of aDoc
end tell
end repeat
end tell

on date2Str(dateTypeData)
set monthList to {January, February, March, April, May, June, July, August, September, October, November, December}
set theMonth to (month of dateTypeData)
repeat with aNum from 1 to 12
if item aNum of monthList is theMonth then
exit repeat
end if
end repeat
return aNum as string
end date2Str

>>340
ちゃんと動くみたいだよ。

>>341
Σ(・＿・)

マジですか。
よろしければ環境等教えていただけませんでしょうか。

私の環境（10.2.8 AppleScript 1.9？）では
> insert aRecord at end of aDoc
のところで、
『Jedit4でエラーが起きました：一部のデータを目的のデータ型に変換できません』
となります。
スクリプトエディタ上からの実行です。

>>342
マジっす
OSX10.3.6 + AppleScript1.9.3 + Jedit 4.2.3
スクリプトエディタ2.0上で実行

finkのフォルダをスキャンさせてJeditの書き込まれた結果をそのままコピペ
bin8.542373E+6911
etc3500.0911
faq.ja.html1.32403E+599
fink1.8015807E+7911
include2.73065E+5911
lib1.189513E+7911
sbin1.865264E+6911
share1.0915443E+7911
src0.099
var7.957421E+6911

他のフォルダも試しましたが日本語化けもないですよ。

>>343
検証＆報告ありがとうございました。(_ _)

盲点でした・・・。
Jedit4を4.2.0r0から4.2.3r0にアップデートしたところ
動くようになりました。
何だったんだぁ・・。
疲れた。　orz
さてこれからサブルーチンとかちゃんと仕上げないと。

そう言えばAppleScript関係のMLも見なくなってるから、
10.3になって変わった事とか調べてないなあ。
改良とかあったんだろうか。

あら、解決しちゃいましたか。自分のところで書いてみたものです。
repeat with hoge in list形式にするには以下のようにすればいいみたいです。

tell application "Finder"
if not (exists window 1) then
return
end if
end tell
try
tell application "Jedit4"
set tempDoc to make new document
end tell
on error
return
end try
tell application "Finder"
set myFileName to name of window 1
repeat with i in (every item of window 1 & {})
set tempText to (name of i & tab & creation date of i & modification date of i & tab & size of i & tab & comment of i & return)
tell application "Jedit4"
insert tempText at tempDoc
end tell
end repeat
end tell
tell application "Jedit4"
set name of tempDoc to "Folder_" & myFileName & "_File_List.txt"
end tell

>>345
おお！すっきりきれいなコードですね。エラー処理もしてあるし、
変数の名前もカッコ(･∀･)イイ！

> every item of window 1 & {}
の
『& {}』がミソなのでしょうか？
これは一体どういう事なのでしょうか？
けっこう知られてるTipsなのでしょうか。

set theList to 2 & {}で、{2}というリストになります。Finderのevery item
of window 1のresultがリストじゃないみたいなので、リストにしてます。

自分は最近になってXからAppleScriptをいじりはじめたのでいつからかは分か
らないですが、Mac OS Xから、

((month of (current date)) as number)

こんな感じで月を数値化できるようになったそうです。

10.3から変わった点というのは把握してないですが、Mac OS Xから、というこ
とならまだいろいろありますよね。

>>347
ぐっはー。
中断してる期間も含めてだけどキャリア１０年近くなろうとしてるのに、
ぜんぜんわからんかった。
orz

色々ありがとうです！(･∀･)

その情報の源はどこですか？やっぱりMLとか？

(month of (current date)) as numberは知らなかった。

＆で似たようなやつだと
set x to "a" & 1 --> "a1"
set x to 1 & "a" -- > {1, "a"}
set x to "b" & {1, "a"} --> "b1a"
set x to {1, "a"} & "b" --> {1, "a", "b"}

などなど
＆で結合すると第1オペランドのクラスに変換され、第1オペランドがlistやstring
でもなければかってにlistとして結合します。

AppleScriptはこういう事を勝手にやってくれ、それはそれで便利だけど時としてそ
れでどつぼにハマります、今も昔もorz

>>348
monthのas numberについては、APPLESCRIPT 1.9.2かららしいですね。
http://www.apple.com/applescript/releasenotes/192OSX.html

確か、ここを読んで知った気がします。
http://www.asahi-net.or.jp/~va5n-okmt/factory/applescript/as_zaregoto/

"string" & {} / number & {}という表現の初見はどこだったか忘れてしまいま
した。Web上だったと思います。

自分の情報源は、大抵の場合においてGoogleですよ。
情報が古いページが多いですが、AppleScript Studioについて言及しているペー
ジは新しい情報を置いていることが多いです。
MLはおっくうなので入っていません。

本は最近AmazonでAppleScriptと名の付くものを買いまくってますが、
今のところ頻用するのは「AppleScriptリファレンス」です。
コレクションに加えるべく「AppleScript言語ガイドﾑ英語表現形式」を買おう
と思っているのですが、「AppleScriptリファレンス」がある以上、
恐らくは不要のものである上、相場が高くて悩み中。

(month of (current date)) as number
は10.2.8じゃダメみたいですた。

ありゃ。お返事来てたのに気付かずズレた書き込みしてしまった。
orz

>>350
> 「AppleScript言語ガイド 英語表現形式」

昔ﾀﾞｳｿしたpdfもあるけど、これって、Xcodeとかインスコすると見られる奴じゃ
なかったっけ？

AppleScriptKit.asdictionaryのことですか?
これはAppleScript Studioのものですね。

http://developer.apple.com/documentation/AppleScript/Conceptual/AppleScriptLangGuide/AppleScriptLanguageGuide.pdf

内容的には上記のものでしょうが、「AppleScript言語ガイド 英語表現形式」
は日本のアップルから出ていた書籍で、日本語で書かれているはずです。
日本語版のpdfもあったんですかね? うpキボンヌ。

新しいのって言ったら、「ぜんまいびゅんびゅん」はOS Xが出た後に改訂版が出なかったですっけ？

ところで、Jeditの用語のsuspendってどんな時に使うんだろう。
って試してみればいいんだけど・・。
ハイパーカードで画面の変化を隠して動作を速くするようなのがあった気がするけど、そういうのとは違うのかな。

スクリプトマニュアル読め。

as number ちょうど作ってる部分だから助かる。
weekday は無理か。

Macintosh HD9.2/フォルダA 　
このフォルダAの中にある全てのファイル(pdf)をプリントアウトする、
というようなスクリプトってありませんか？

ある

月の as number って逆はできないのかなぁ?

ちょっとちがうけど

weekday of (current date) as text
↓
"Wednesday"

>>360
無精せずにハンドラ定義しませう

>>361
これコンパネの設定に関係なく英語の長い曜日名みたいですね。

>>359
おしえて

>363
まずサンプルはどの程度探したのかと問いたい。apple.comで検索したキーワードとかもあわせて聞きたい。

>>362
なんかくやしいんだよねw

date ({2004, " ", 12, " ", 31} as string)

で数字から直に date を作れるのに
書式の影響で汎用では使えない

>>364
プリントアウト　フォルダ　全て　ファイル　スクリプト
こんな感じのキーワードでググッたけども、めぼしいものにあたらない。
apple.comでサーチですか。　それはやってなかった。
さて
script print out これでサーチしてみましたが、やはりみつからない。

>366
プリント方法より「AppleScript　基礎」とかで検索して
AppleScriptの基本を学んだ方が早いんじゃない？>>1のリンクとか。

あと、「アウト」は要らないよ。プリント。print。

print 命令はrequired suite…全アプリが必ずサポートしているから、
焦点は「どうやって特定のフォルダにあるすべてのpdfファイルを参照するか？」
ということになるでしょう。
repeat ループでフォルダの全ファイルを見て、
name属性やcreator、file type属性をチェックしてpdfだったら
print すればいいんじゃないかな。

印刷と言えば、MLや掲示板で頻出の質問が、セレクターをどうするか。

http://www.apple.com/software/
http://www.apple.com/jp/software/

米アップルにはPantherの次にAppleScriptがあるのに日アップルにはAppleScriptがないｼｮﾎﾞｰﾝ。
Downloadのところとかちょっとバージョンが違ってるようだけど、どうなんだろ。。。

>>366
フォルダ開く
セレクトオールPDF
セレクションから名前を貰う
プリントできるアプリにわたして印刷
ここまで言えばあとはできるっしょ

>>365
-- AS date -> ISO8601 format
((current date) as <<class isot>>) as string

-- ISO8601 format -> AS date
"1997-07-16T19:20:00" as <<class isot>> as date

驚いたな。かなり融通が利くじゃないですか･･･

ISO8601 formatなんてのがあるんだ。
色んなモノで使われてるんでしょうか？
日付の後の『T』って何？タイム？時間と日付の区切りかな。

>>371
動かないけど?なんか必要なの?

>>374
<<と>>を半角のに置き換えてる？
化けると思うけど
"1999-07-16T19:20:00" as «class isot» as date

>>375
あんがとうごいた

OS9.1では動かなかったけど、
XML-RFC and SOAP Suport 絡みなんかなあ?
だとすると10.1あたりから使えてたのかも。

TZの付かない時間表記はISO的には
問題ありそうな気もするけど、
こっちの目的には使えそう。さんくす

>>373
http://www.w3.org/TR/NOTE-datetime
http://www.ietf.org/rfc/rfc3339.txt

>>377
TZの扱いはバグってます。Appleにバグレポートよろ。
AS dateの内部形式はUTCじゃなくてローカルだから、TZ無
しをローカル扱いするのは悪いと思えないが、TZを扱えな
くて良いとは言えない。

OSXにおいて、ユーザーのホームディレクトリのサイズを知りたい場合、
tell app "System Events" to get size of folder "/Users/ｱﾃｸｼ"
すればいいわけですが、結果は"1.2345E+5"となります。
as integerすれば、"123450"としてえられますが、
より大きな数字の場合は前述の書式になってしまします(´･ω･`)。
お手軽に整数を得られませんか？
ShellScriptの中で使う予定というか、AppleScriptと混在するかもなので、
Unixなコマンドでも可です。
クリスマスイブが休日なのに一人で過ごす漏れに間の手を!!

du -ks $HOME とか？
du -hs $HOME とか？

ｱﾘｶﾞ*･゜ﾟ･*:.｡..｡.:*･゜(n‘∀‘)ηﾟ･*:.｡. .｡.:*･゜ﾟ･*ﾄｳｻﾝ

純粋に文字列表記で使うだけなら良いけど、ASのintegerは
2^29が最大だからディスク容量の計算では簡単にオーバー
フローするよ。
"536870912" as integer -- error

>>382
対策ありますか？

integerつかわなきゃいいんじゃ？

doubleの文字化フォーマットを自由に指定できないのが問題の本質だから、
変な方向で解決を図ってはダメ。Cならローカライズ数値表記を得るAPIを呼
ぶだけだが、ASだと簡単なフォーマッタを自分で書けばよろしいかと。

on r2s(x)
if (x < 1000) then return x as integer as string
return r2s(x div 1000) & "," & characters -3 thru -1 of ("00" & (x mod 1000 as integer))
end r2s

on sizeof(x)
tell application "System Events"
return size of x
end tell
end sizeof

--r2s(9.87654321E+6)
r2s(sizeof(path to home folder))

う・・。じゃがやと動かへん・・。
どこをどう変えたら・・。
ああ自分のアホさがうらめしい。

on r2s(x)
if (x < 1000) then return (round x rounding down) as string
return r2s(x div 1000) & "," & characters -3 thru -1 of ("00" & (round (x mod 1000) rounding down))
end r2s

as integerの動作は怪しいね。これだとOS9でも動くので大丈夫では。

10.2.8で>>385を
Script Editor上で実行した時のエラーですが、
まず構文確認の段階で
『path to home folder』が通りません。
そこでその部分に
『alias "×○△:Users:××:"』と直接入れると構文は通ります。
実行すると
on sizeof(x)の３行目の『size』の部分がハイライトされて
『System Eventsでエラーが起きました:NSCannotCreateScriptCommandError』と実行エラーになります。
System Eventsの用語説明を見たところ、
size of 〜 はできないみたいな気がします。
で、System EventsをFinderに変えると、、
あれ？できた。さっきできなかった気がしたのにな。
すいません。
これから本題の数字のフォーマットについて考えさせていただきます。
ありがとうございます。

なるほど。size of xの答えなんかはclass realなんですね。
class realだとﾌﾟﾗﾏｲ1.79769E+308までOK・・とAppleScriptリファレンスに書いてあったんですが、
さすがに大きすぎるのか、
r2s(1.79769E+308)はエラーになりますた。

質問なのですが、AppleScriptで、キー入力ってできないんでしょうか？
ぐぐると補助ソフトのようなものばかり出てくるんですが。

>>390
>278とか

TigerはAppleScript関係もバグ無しで日本語も快適操作になってるといいなー。
Automatorの影響がどっちに転ぶか・・。
もしAutomatorがAppleScriptジェネレーターなら、AppleScriptをきちんと仕上げない事には話にならないわけで。
AppleScriptを介在しないとしたら、AppleScriptはなおざりにされる可能性も・・。

Terminalもいじらなくてもヨユーで日本語使えるくらいであってほしい。

すいません。純粋なアップルスクリプトではないのですが、
JavaとシェルスクリプトとAppleScriptを組み合わせて
メールをチェックしてメールがあったら任意の動作を行わせるというものを作りました。
ソースと手順のテキストをアップしているので、
よかったら見てやってくださいませ。m(_ _)m

ttp://mac.oheya.jp/up/src/macroom0320.gz
圧縮はdmg.gzです。

tell application "Safari"
set theURL to (URL of document of window 1) as text

set theChar to character 1 of theURL

display dialog theChar & " : " & (theChar is "h")
end tell

上のスクリプトをアプリケーションとして保存し、
Safariで適当にURLが"http"で始まるページを開いた状態で、
ダブルクリックで実行すると(theChar is "h")がfalseになりますね。

スクリプトエディタのウインドウの実行ボタンで実行すると
正しくtrueになるのでスクリプト自体のバグではなさそうです。

10.3.7でScriptEditorは2.0。ん〜、なんだかなぁ〜。。

>>394
何だかわからんけど、2行目のas text外したら逝けたよ。

>>394
Unicode text

自分ではさっぱり書けないのですが、こんなのを
ツールバーに登録したいのですが。

・finderのウインド上で選択されてるフォルダを「新しいウインド」で表示するスクリプト

・選択されてる対象に関係なく、クリックすると「同じウインドのままで一つ上の階層に移動する」ボタンとして使えるスクリプト

おながいしまつ。

>>395
おおthx.
URLがUnicode Textで返って来るのを知っていたから、
後で問題が起きないよう最初からtextに変換しておいたのだが、
それが裏目に出るとは、、、orz

ちなみに作っていたのはこんなスクリプト。

tell application "Safari"
set theURL to (URL of document of window 1)

set thePosition to count of character of theURL
set newURL to ""
set theFlag to false
repeat until thePosition = 0
set theChar to character thePosition of theURL
if theChar is "/" then
set newURL to "/" & newURL
set theFlag to true
exit repeat

else if theChar is in {"0", "1", "2", "3", "4", "5", "6", "7", "8"} then
set newURL to (((theChar as number) + 1) as string) & newURL
set theFlag to true
exit repeat
else if theChar is equal to "9" then
set newURL to "0" & newURL
set theFlag to true
else if theFlag then
set newURL to theChar & "1" & newURL
exit repeat
else
set newURL to theChar & newURL
end if
set thePosition to thePosition - 1
end repeat

if theFlag then
set newURL to (characters 1 thru (thePosition - 1) of theURL as string) & newURL
set URL of document of window 1 to newURL
end if
end tell

確かに変だよね
"h" はstring型で theChar もstring型に変換してあるはずなのに
どうして？

実行環境として便利そうなのでコピペ

http://pc5.2ch.net/test/read.cgi/mac/1100447652/320
AppleScriptのスクリプトメニューをONにして、
ユーザ＜ライブラリ＜Scripts（無かったら作って）に
Applicationsフォルダを作りその中にFinderやAppleWorks等のアプリの名前のフォルダを作る。
アプリ名のフォルダの中にそのアプリで使うAppleScriptを入れておくと、
そのアプリがアクティブの時にアプリ名のフォルダに入れてあるAppleScriptだけが表示される。
AppleScriptを多用するする人には良いと思う。

>>401
そんなことはこのスレにいる人はみんな知ってると思うけど

>>401
知らなかった。サンクス。
OS9の頃は何かのユーティリティー使ってそういう事してた気がするけど。
つかスクリプトメニュー表示させてるけど全然使ってないや・・・。
(-_-;

さっきは動いたスクリプトが動かなくなるってのが結構あるのがイヤ。
エラー報告が「タイプ１の・・・」とかクソの役にも立たないのもイヤ。

エラーコード表みたいなものってないのか

エラーコードの意味なんて知ってもまず役に立たんだろ。

>>404
> さっきは動いたスクリプトが動かなくなるってのが結構ある
マジで？
単にスクリプトエディター上から実行した時とアプリケーション形式で実行した時で結果が違うとかじゃなく？

>>405
ちょっと古くなっちゃったけど
AppleScriptリファレンスに載ってる。

>>406
try構文で囲んでエラーコードを拾って分岐処理ってのも一応よくある手段。

<=が実質使えないのがイヤ。
is less than or equal toって毎回忘れるし

> 実質使えない
そうだっけ？そんなバグあった？
算術記号は日本語フォントじゃなくて英語のフォントにしといた方がよかった気がする。

>>407
＞単にスクリプトエディター上から実行した時とアプリケーション形式で実行した時で

それ。それが言いたかった。言葉足らずでごめんなさい。
アプリ形式だと実際上バグ追っかけられないのがツラい。
せいぜいダイアログで進行状況表示するくらいか。

>>408
is not greater than ではどうか。

>>409
新規テキストと演算子が欧文フォントになっていてもエラーが起きない？

>>411
<=がコンパイル後に≦の半角のやつになるんだけど
和文フォントにこれは含まれてないので
半角の『ｲ』になっちゃうんだよね？

だからスクリプトエディタの編集メニューの
『AppleScriptフォーマット』で
上から２番目の『演算子など』を欧文フォントにしておくと、
コンパイル後にちゃんと≦が出るよね。
（スクリプトエディタのバージョンによってメニューの名前は違うかも）

この事を言ってるんじゃなかったらごめんね。

>>410
そですねー。。
beepとかダイアログが頼り。
一ヶ所クリアしたらコメントアウトして、また次。
たいへんですよね。
なまじ『イベントログ』がわかりやすいだけにアプリ形式の時は困る。
idleハンドラを使う時なんかはアプリにしてみないとわからんですからね。

普通のデバッガに慣れてる人はAppleScriptStudioを使うと多少はマシなのかな？

漏れはAppleScriptから入ったんで、HyperCardのデバッガの使い方もよくわかんなくて、上記のASのアプリの時のような方法で確認したりしてた。ｗ

Studioは純正AppleScriptからの変更点がいくつかあって変なところでよくハマる。
デバッガが使えるのはいいんだけど、エラー報告は基本的にデタラメのまま。
GUI部品の参照がダラダラと長くなるのもウザイ。

なので漏れはStudioは嫌いです。

あーたしかにStudio使うとできない事とかあるみたいですね。
あのできたアプリがパッケージ形式？になってるのがややこしい。
自分自身へのパスとか出すと変だったような気が。

>>400
文字列比較はUnicode textじゃないと意味不明にうまくいかないことがあるで
す。判定がおかしいと思ったらUnicode text、これです。

>>410
Script DebuggerでDebuggingをONにした状態で保存したアプレットは、実行時
にScript Debuggerでデバッグできますよ。

Script Debuggerにフックされた状態で起動して、一時停止になります。
その後はステップ実行したりと思いのまま。すべての変数とかも丸見え。

Affrusを買おうかどうしようか迷ってるところです。
あれがあるとScript Debugger同様経過と結果が丸見えなので、Perlの上達も早
い気がします。

>>416
やっぱり有償の開発環境はそれ相応の機能があるって事ですね。
あれ？前はフォーサイトが日本語版売ってたような・・。
今フォーサイトのサイトに行ったら無いみたいですね。扱いやめちゃったのか・・。
AppleScriptを本格的に使ってるような人は英語に困らない人が多いって事かな。
（漏れは困ります）

そういえばフランスの方のフリーウェアの開発環境もありましたよね？
Smileだっけか。
色々機能ありそうだけど使い方よくわかんなくて
結局スクリプトエディタ使ってました。ｗ
何か今見に行ったらお金払うと3Dグラフとか書ける機能が付くみたい？ｗ

Affrusというのは知りませんでした。
ttp://www.latenightsw.com/affrus/screenshot.html
なんかすごそうですね。
関心空間にもページができてるみたいですね。

うーん。。
Perlというと文字列変換やCGIしか思い浮かばない私^^;

フォーサイトは、とうの昔に扱いをやめたようですね。
自分も英語はあんまり分かりませんが、特に英語力は必要ないような。

一度デモを試してみては? 起動して、既存のスクリプトをコピペして、
Command + Shift + Dを押して(Enable Debugging)、Stepボタンを数回を押すだ
け。結果を見るのに5分かかりません。しかし、これだけで価値が分かるはずです。

余裕があればFile >> Open Dictionary >> (適当なアプリ、例えばFinder) >>
Explorerタブを開いてみてください。これは、開いたDictionaryを持つアプリ
の、その時点のすべてのオブジェクトのすべてのプロパティを一覧階層表示し
てくれるものです。いちいちテストスクリプトを書いて個々のオブジェクトに
tellしてget propertiesで調査していたプロパティを、地引き網のごとく一獲
してくれるわけです。これがあれば初対面のアプリでも乗りこなせますよ。

総じてメチャクチャ見通しがよくなるので、Script Debuggerを使わずに
AppleScript を書いてきた期間が長ければ長いほど有難味が分かるはず。

Affrusは、話は簡単でScript DebuggerのPerl版です。

いかん・・・宣伝とはわかっていても・・・ｺﾞｸﾘ

日本語化されてて日本語のドキュメントが付いてきて
日本の住所から日本円で銀行振り込みで簡単に支払いできて納得できる値段なら買うけどね。

まあとりあえず買うのはSmileを試してからでも遅くないと思うよ。

すいません。質問なんですが、
今Standard Additionsの辞書見ててふと思ったんですが、
Class URLとかClass Internet addressとかClass web pageって、どんな時にどう出てくるもんなんですかね？

スクリプトメニューがショートカットキー登録できればなあ・・・

>>422
iKeyを使ってみては?
http://www.scriptsoftware.com/ikey/

Finderがfrontmostの場合のCommand+D→hogehoge.as
TextEditがfrontmostの場合のCommand+D→foobar.as

こんなことができます。スクリプトファイルを別に用意しなくとも、iKeyの
ショートカット設定の中にスクリプトを書いておくこともできます。
Quickeysを知っているなら、まさにあのまんまの環境です。

2.0からはアプリごとにコンテクストメニューを変えられるようになってます。
もちろんコンテクストメニューからAppleScriptを起動することもできます。
コンテクストメニューをキーボードショートカットで表示することもできます。

こ、これは・・・まさに理想どおり・・・ｺﾞｸﾘ

わらた

おもしろくも珍しくもないけど

tell application "Firefox"
set URLstr to get ﾇclass curlﾈ of window 1
end tell

tell application "Internet Explorer"
Activate
OpenURL URLstr
end tell

↑
Firefoxで今開いてるページ（表に出てるタブだけ）
をIEで開くスクリプト

>>408-412
今は必ず (a<b) or (a=b) と書くことにしてる。
notについては 「if not 〜」 という書き方もある。

改行と不等号はOS9から持ってくると不具合になるのが最初分からなかった。

いや＜=とかOSXで書いても壊れるよ。
＜=とか書く。
一度コンパイルすると一文字分の記号に起き変わる。（コンパイル後にちゃんと≦が出る）
そのあと他の場所を編集して
もう一度コンパイルすると…。≦のとこがエラーに…。

>>428
ScriptEditor2.0のバグです。International/LanguagesでEnglishを
最上位にしてloginすれば正常に動きます。AppleScriptはplain
textを返しますが、NSTextViewで扱うためにUnicode化する所で失敗
している感じです。
ScriptDebuggerはWASTEベースなので問題無く動きます。

>>428-429
知らなかった。>>427で回避できるのかな。

スクリプトの質問スレがないのでここで良いですか？

「current date」で取得した「0000年00月00日 0曜日 0:00:0 00」を
「Mon, 03 Jan 2005 20:36:39 +0900」の形に直したいのですが、
どのようにすればいいでしょうか。

何か違う気もしますが。

set cd to (current date)
set str1 to characters 1 thru 3 of (weekday of cd as string) as string
if (day of cd) < 10 then
set str2 to "0" & (day of cd) as string
end if
set str3 to characters 1 thru 3 of (month of cd as string) as string
set str4 to (year of cd as string)
set str5Tmp to (time string of cd as string)
if characters -2 thru -1 of str5Tmp as string is "PM" then
set str5 to ((((characters 1 thru 2 of str5Tmp as string) as number) + 12) as string) & characters 3 thru 8 of str5Tmp
else
set str5 to characters 1 thru 8 of str5Tmp
end if
set timeStr to str1 & ", " & str2 & space & str3 & space & str4 & space & str5 & space & "+0900"

str2のとこはこうしといてください。

if (day of cd) < 10 then
set str2 to "0" & (day of cd) as string
else
set str2 to (day of cd) as string
end if

>>433
お手数をおかけして済みませんでした。

>>421
internet location fileがらみですかね。
でもこれもFinderの力を借りないと開けないみたいですし。
Class URLは、例えばこんな感じです。下記の例では文字列をClass URLにキャ
ストした時点でネットワーク経由を見にいってプロパティを生成するようです。

set myGoogle to "http://www.google.co.jp/" as URL
set aa to path of myGoogleset bb to scheme of myGoogle
set cc to dotted decimal form of host of myGoogle

URL "ftp://user:[email protected]/"

上記の表記によるftpサーバへのURLだと、user nameとpasswordというレコード
が追加されるみたいです。

Internet addressは、Class URLのhost属性のクラスそのものだそうです。

Class web pageはよくわからないですね。

>>397
・finderのウインド上で選択されてるフォルダを「新しいウインド」で表示するスクリプト

tell application "Finder"
set myTarget to selection
if myTarget is not {} then
set newWindow to make new finder window
set target of newWindow to item 1 of myTarget
end if
end tell

>>397
・選択されてる対象に関係なく、クリックすると「同じウインドのままで一つ上の階層に移動する」ボタンとして使えるスクリプト

tell application "Finder"
set tmpPath to (target of window 1 as Unicode text)
set oldDelimiters to AppleScript's text item delimiters
try
set AppleScript's text item delimiters to ":"
set newPath to ((text items 1 thru -3 of tmpPath) & "" as Unicode text)
on error
set AppleScript's text item delimiters to oldDelimiters
end try
set AppleScript's text item delimiters to oldDelimiters
set target of window 1 to newPath
end tell

でもこれあなた、Command + ↑でいいんでしょ?
まあ分かってて書いたわけですが。

>>432
テキストの部分抜き出しは from character ? to character ? of〜でしたね。

>>435
その表記のuser nameとpasswordの記述は標準的なもので、http:のwebサイトとかでも使えますよ。
afp:でも使えたかな？

>>435
ありがとうございます。
おおー。"URL文字列" as URL　とかできたんですね。

.weblocファイルからURLを取り出したり、
.weblocファイルを作ったりできるんですかね？
それできると広がるんだけどな。

.weblocのファイル名をページのTitleにするとか
更新チェックするとか・・。

>>431
current dateは1904年からの積算秒数を返す。これがdate classの実体
0000年00月00日0曜日はそれを現在ユーザが選択しているローカライズ
フォーマットに従って文字化した物、表示用には使えるが何が返るか
は解らない。
ちゃんとしたAPIを使うのが筋だが、AppleScriptからなら
do shell script "date \"+%a, %d %b %Y %T %z\"" as string
辺りが相場でしょう。

日付のフォーマットの話は>>371のあたりにも。

>>440
>.weblocファイルからURLを取り出したり、

on open itemList
tell application "Finder"
repeat with i in itemList
set myURL to (location of i as Unicode text)
display dialog myURL
end repeat
end tell
end open

>.weblocファイルを作ったりできるんですかね？

tell application "Finder"
set newWebloc to make new internet location file to "http://www.2ch.net/"
set name of newWebloc to "2ちゃんねる"
display dialog (location of newWebloc as Unicode text)
end tell

--ちなみにlocationはR/Oです。

>更新チェックするとか・・。

--次回起動時も値が保存される変数の宣言
property modDate : ""
property oldModDate : ""

set myURL to "http://www.yodobashi.com/"

--curlでヘッダを取ってきてgrepとsedでLast-Modifiedだけ抜き出し。
set modDate to (do shell script "curl -I" & space & myURL & space & "2>&1 | grep Last-Modified | sed -e 's/Last-Modified: //'") as Unicode text

--更新日が違ってたらhogehoge&基準更新日の更新
if modDate is not equal to oldModDate then
open location myURL
set oldModDate to modDate
end if

邪道な上に上記はちゃんと機能しないです……。Last-Modified:を返してくる
サーバが少ないのと、毎秒更新されてしまうところがほとんどです。Date:フィー
ルドも同様。ここは自分がよく理解してないです。適切な更新日時を取得する
方法が分かったら、上記がヒントになるでしょう。AppleScriptだけってのは
ちょっと無理。URL Access Scripting Additionでダウンロードしてきて、
open for accessで開いて中身を調査するという方法はあると思いますが、テキ
スト関連の機能が貧弱ですからね。

>>443
おお！

>>432
Time Zoneはリテラルで足しましたが、正式には

set myTmpTZ to ((time to GMT) / hours) as integer
if myTmpTZ > 0 then
if myTmpTZ < 10 then
set myTZ to ("+0" & myTmpTZ as string) & "00"
else
set myTZ to ("+" & myTmpTZ as string) & "00"
end if
else
if myTmpTZ < 10 then
set myTZ to ("-0" & myTmpTZ as string) & "00"
else
set myTZ to ("-" & myTmpTZ as string) & "00"
end if
end if

display dialog myTZ

こんな感じですかね。基本的に端数は無いみたいなんで。

環境に依存しない月と曜日の算出を書いてみました。

set monthList to {"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"}
set myMonth to item (month of (current date) as number) of monthList

set weekdayList to {"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"}

--"ツェラーの公式による曜日算出"
set cd to (current date)
set ycd to (year of cd)
set mcd to ((month of cd) as number)
--1月、2月は前年の13月と14月とみなす
if mcd is in {1, 2} then
set mcd to mcd + 12
set ycd to ycd - 1
end if
set dcd to (day of cd)
--(年 + 年/4 - 年/100 + 年/400 + (13*月+8)/5 + 日) mod 7
set myWeekDay to item ((ycd + ((ycd / 4) as integer) - ((ycd / 100) as integer) + ((ycd / 400) as integer) + ((13 * mcd + 8) / 5 + dcd) as integer) mod 7 + 1) of weekdayList

display dialog myMonth & space & myWeekDay

(month of (current date)) as numberを使っているので
AppleScript"1.9.3"以降に依存してますね。
"言語"に依存しないということで……。
それ以前だとそれぞれの言語が取りうる月の表記を全部比較参照して数値化し
ないといけないですかね。本当にAppleScriptって糞ですね(w

>>445
choose URL

というのの返り値としてもClass URLが扱える……と思ったら、resultは単なる
stringですね。

set myURL to choose URL
myURL as URL

>>436>>437
ありがとうございますた。後ほどやってみます。
＞でもこれあなた、Command + ↑でいいんでしょ?
もちろん解っててです。たまにどうしても片手だけでなんとかしたいときがあるんで。

>>437
このスクリプト、１つ上の階層を別ウィンドウで開ければ
上の階層へのファイル移動に便利かも。

うちとこではＯＳ９なので日付やテキスト関連処理はTanaka's osax使ってます。

>>451
いろいろとエラー処理が必要ですね……。
つっても出たら無視してるだけだけど(w
僕は一つ上の階層にファイルをコピーする場合は、
Command + 3でカラム表示にしてます。

tell application "Finder"
set newPath to ""
try
set tmpPath to (target of window 1 as Unicode text)
on error
return
end try
set oldDelimiters to AppleScript's text item delimiters
try
set AppleScript's text item delimiters to ":"
set newPath to ((text items 1 thru -3 of tmpPath) & "" as Unicode text)
on error
set AppleScript's text item delimiters to oldDelimiters
end try
set AppleScript's text item delimiters to oldDelimiters
set newWindow to make new Finder window
if newPath is not "" then
set target of newWindow to newPath
end if
end tell

tell application "Finder" to open folder of insertion location
つうのをコンテクストメニューに入れて使ってますが
これではダメですか

社員すげえな！

>>435,443
location fileから取り出したURL文字列をclass URLにしようとすると
何故か失敗します。
（10.2.8）

tell application "Finder" to set itemList to selection
repeat with i in itemList
tell application "Finder" to set myURL to (location of i as Unicode text)
class of myURL
set myURL to myURL as string
class of myURL
set myURL to myURL as URL
end repeat

あるURLのページのタイトルを取り出してみようと下記のような事をしてみたのですが、
これをAppleScriptに組み込もうとdo shell scriptで呼び出すと
エスケープが上手くいかないのかちゃんと動きません。
お知恵を貸してください。

curl -s "http://www.yahoo.co.jp" | perl -wne 'if ( m/\<title\>(.*)\<\/title\>/ ) {print $1;last}'

お舞いは氏んでろ！

>>457の回答を引き続きお願いします。

とりあえず自分用という事でシェルスクリプトを別ファイルにしました。
何をするものかというと、
Webブラウザで保存したファイル名がURLになっている.weblocファイルをドロップすると、
ファイル名をページのタイトルにしてくれるドロップレットです。
UTF-8対応のnkfが/usr/local/binにインストールされている必要があります。
あと、スクリプトを置く場所までのパスに日本語が混じってると上手く行かないかも。
製作・実行環境は10.2.8です。

#!/bin/sh

export PATH=$PATH:/usr/local/bin
curl -s $1 | perl -wne 'if ( m/\<title\>(.*)\<\/title\>/ || m/\<TITLE\>(.*)\<\/TITLE\>/ ) {$pttl = $1;$pttl =~ s/:/_/g;print $pttl;last}' | nkf -w
↑
これをwebpagetitle.shという名前で保存してchmodで実行できるようにします。（なんていい加減なファイル名）

on open itemList
set myalias to path to me
tell application "Finder"
set myFolder to container of myalias
set fPath to POSIX path of (myFolder as alias)
end tell
repeat with i in itemList
tell application "Finder" to set myURL to (location of i as string)
set fNm to (do shell script fPath & "webpagetitle.sh \"" & myURL & "\"")
tell application "Finder" to set name of i to fNm & ".webloc"
end repeat
end open
↑
同じフォルダにこれをアプリケーション形式で保存。

>>459
問題が一つ発覚しました。
Amazonの商品ページのようにリダイレクトがかかる所だと上手く行かないようです。
curlに-Lオプションを付けてもだめ。
なんでやー。

何がしたいのかがよくわからん

>>461
FirefoxとかでURL欄からドラッグして作った.weblocとか、
あとSafariでも場合によるみたいだけど
ファイル名が『URL.webloc』になるでしょ？
それを、『ページのタイトル.webloc』にしたいんです。

Safariならfaviconをドラドロすればなるだろ。

>>463
10.2だと、なっても文字化けとかURLになるとかいい加減っぽいです。
10.3でSafari党の人には不要なものですね。
あと個人的にFirefoxの方がよく使うので。
書き込みついでに、Safariを使ったバージョンを作ったんで貼らせていただきます。
こっちはたぶんどんな時でも問題なく動きます。
欠点は一々Safariのウインドウが開く事。
ところでSafariってOpenURLが用語に無いんですね。

on open itemList
repeat with i in itemList
tell application "Finder" to set myURL to (location of i as string)
tell application "Safari"
ﾇevent WWW!OURLﾈ myURL
repeat
set fNm to name of window 1
if fNm does not contain "名称未設定" and fNm does not contain "を読み込み中" then exit repeat
end repeat
close window 1
end tell
set fNm to do shell script "echo " & fNm & " | sed s/:/_/g"
if fNm is not "" then tell application "Finder" to set name of i to fNm & ".webloc"
end repeat
end open

仕事始めで時間が取れないよ。

>ところでSafariってOpenURLが用語に無いんですね。

確かに無いけどこれでいいでしょ。

tell application "Safari"
set newDoc to make new document
set URL of newDoc to "http://www.google.co.jp/"
end tell

do shell script + iKey = 最高のスクリプト環境

>>465
おー。そんな書き方ができたんですか。
何かオブジェクト指向っぽい？（←わかってない）

tabも追加できるよ

tell application "Safari"
　　
　　〜

activate
tell application "System Events"
tell process "Safari"
click menu item "新規タブ" of menu "ファイル" of menu bar 1
end tell
end tell
end tell

>>468
GUI scriptingでんな。
漏れｼﾞｬｶﾞｰやさかい使えませんのや。
使いたいー！o( ≧ _ ≦ )o

>>465
別スレで、SafariでURLを開く別の方法を書いてる人が居たので書いておきます。

tell app "Safari"
open location "URL文字列"
end tell

でいいんだって。

>>469
残念！

残念ついでにFirefoxのタブ追加のファンクション。すまん
on AddNewTab2Firefox(theURL)
set the clipboard to theURL
tell application "Firefox" to activate
tell application "System Events"
tell process "Firefox"
key code 17 using {command down} -- cmd + t
key code 37 using {command down} -- cmd + l
key code 9 using {command down} -- cmd + v
key code 76 -- enter
end tell
end tell
end AddNewTab2Firefox

Firefoxが起動済みで、ブラウズウィンドが一番上にいないと上手く行かないorz
もっといいのがあったら教えてほすぃ

safariでgoogle検索すると
http://www.google.com/search?q=検索語
の様になるのを
http://www.google.co.jp/search?q=%E6%A4%9C%E7%B4%A2%E8%AA%9E
の様にエスケープしたいのだけど、perlの部分がさっぱり解らないので誰か教えて。
do shell scriptを使ってperlに渡して
http://www.din.or.jp/~ohzaki/perl.htm#JP_Escape
こんな事をするまでは思いついたんだけど文が書けない…。

>>471
それはURLエンコードといいます。
packとかunpackを使うんだったような。

つか、書いてあるね。
つか、何が分からないのか分からないよ。
これが分からないということかな?
(下記は意味なし)

set str1 to "あんまき"
set str2 to do shell script "echo " & str1 & " | nkf --mac | " & "perl -e 'while (<>){print $_;}'"

>>471
スクリプトでSafariからURL取るとエスケープされてましたよ。
tell application "Safari"
set theURL to URL of document 1 as Unicode text
set theWord to do shell script "perl -e '$_=\"" & theURL & "\"; /q=([^&]+)/; print $1;'"
set theGoogleURL to "http://www.google.co.jp/search?q=" & theWord
set the clipboard to theGoogleURL
--open location theGoogleURL　--デコードされて表示される
end tell

なのでこれは必要なかった
set theWord to "まっく"
set theEncodedWord to do shell script "perl -e '$_=\"" & theWord & "\"; s/([^0-9A-Za-z_])/\"%\".unpack(\"H2\",$1)/ge; s/\s/+/g; print'"
open location "http://www.google.co.jp/search?q=" & theEncodedWord

すいません。便乗質問していいですか？
>>471の書き込み見て自分も一所懸命やってたんですが、
Perlのシンタックスエラーになっちゃうみたいでダメなんです。
よかったらどこがおかしいか教えてください。m(_ _)m

tell application "Safari" to set aURL to URL of document of window 1

set aURL to do shell script "PERL_BADLANG=0;export PERL_BADLANG;perl -we \"$str = '" & aURL & "';$str =~ s/(\\W)/'%' . unpack('H2', $1)/eg;print $str\""

まじまじと眺めて比べても"と'の使い方が逆？くらいなんですが・・・。
めっちゃ基本でしょうか。すいません。

>>469
ｼﾞｬｶﾞｰでも使えるよ。

>>476
何かインストールしないとダメじゃなかったですっけ？
今のままだと>>468とかコンパイル通りません。

10.3が出てβ版の公開も止めたから無理だろ。

>>475
クオートとエスケープがめんどくさいね。

tell application "Safari" to set aURL to URL of document of window 1
set aURL to do shell script "PERL_BADLANG=0;export PERL_BADLANG;perl -we '$str = \"" & aURL & "\";$str =~ s/(W)/\"%\" . unpack('H2', $1)/eg;print $str;'"

>>477
>>478
10.2.8とかなら標準で入って無かったっけ？
システム環境設定＞ユニバーサルアクセス＞補助装置にアクセスできるようにする
で出来ない？

>>480
ユニバーサルアクセスでチェックしてから構文確認してみたけどだめでした。
再起動が必要なんですかね？

CoreServicesにはSystem Events 1.1.2が入ってます。
用語は
Standard Suite、Text Suiteってのがまあ普通にあって、
Disk-Folder-File Suite、Folder Action Suite、Power Suite（電源関係）、Processes Suiteと来て
次にSystem Events Suiteってのがありますが、do scriptとapplicationだけ。
最後にLogin Items Suite。

>>479
ほんとに面倒くさいのにチェックありがとうございます。

なんか色々試してみたら、
do shell script "perl -e \"$str = 'abcd'\"" --エラー
do shell script "perl -e '$str = 'abcd''" --OK

ってところまでしぼれたんですが、何で上がエラーで下がOKなんでしょう？？
ターミナルでは
% perl -we "$str='abcd'"
とすると、str: Undefined variable.

？？？？？

Terminalスレの気温野郎と同じくｳｾﾞｪ

>>482
(ﾟдﾟ) ﾎﾟｶｰﾝ

（´・ω・`）ｼｮﾎﾞｰﾝ

(・∀・) ﾕｯﾃﾐﾀﾀﾞｹ

ワカラネェヨウワァン＞匙投げ　な質問に丁寧に答えてくれて
ありがとうありがとうとってもありがとう。後でいじってみます。
ちなみにどういう使い方をしようかと思ってたのか説明すると
自分はあるIRC(chatみたいな物)の部屋に常駐してるのですが
グーグルの検索結果とかwikipediaとかのURLをIRCに投げると
windows側のブラウザだと日本語のurlだと駄目みたいで
エンコードしてから送りたかったってだけなんです。
解らないってのはperlがさっぱり解らなかったのと返り値とかどーすんだって事だったのです。
長文レス失礼しました、ホントありがとう。

>>482
>% perl -we "$str='abcd'"
>とすると、str: Undefined variable.

シングルクオートじゃないと「シェルが」$strをシェル変数として展開しよう
とするから。以下をターミナルで試してください。=の前後は空白を開けてはだ
めです。

str="abcd"
echo "$str dayo"
#↑$strが展開される
echo '$str dayo'
#↑$strが展開されない

>>471 >>482
do shell scriptを使う人は全員ここを読んだ方がいいよ。非常によいドキュメ
ントです。というか、読まないとマトモに使えないでしょう。

http://developer.apple.com/ja/technotes/tn2065.html

「quated form of」や「quated form of the POSIX path of〜」、文字コード
なんかの重要テク満載。

ただ、with administrator privilegesを使った管理者権限でのスクリプトの実
行は、セキュリティの問題でできなくなったんだっけな? 使ったことがないの
でよく分からない。もしできなかったら、そうらしいということにしといてく
ださい。

また、do shell scriptを使うなら、少しはShell Scriptを勉強しましょう。以
下を読んでください。Shell Scriptの知識は一生物なので損しないですよ。

http://www.tsden.org/takamiti/shText/
本ならISBN4-7973-2194-6

>>488,489
めちゃめちゃありがとうございます！

シェルが変数を展開！そうかー・・。
普通にTerminalで打ち込んだ時もシェルスクリプトと一緒ですよね。
perlに引数として渡すものだからperlだけが解釈するんだとしか考えてませんでした。あほだ。

という事は、>>482の上の文も、do shell scriptで呼び出されたシェルにとって展開すべきだけど値のない変数を含んでるからエラー？

必要な事は調べながらやってるつもりだったのですが、全然足りなかったようです。
Googleに頼りすぎてAppleのそのページの事も忘れてました。
orz　勉強します。

>>481
Dec 2002 Mac OS X Developer Tools に入っている、
System Events 1.2 でないとダメみたいですね。
ただし、300MB・・・
気が向いたら Developer (フリー) になってDLしてください。

>>491
すいません、援助を求めるような書き方をして、フォローを忘れてました。

その後Googleで検索してたらβ版の10.2向けGUI scripting対応System EventsのUIscriptingbeta.sitをダウンロード出来るところを見つけました。
ある日本語のページから、何故かダウンロードできます。（汗
でもファイルのURL自体は
ｗｗｗ．ａｐｐｌｅ．ｃｏｍ／ａｐｐｌｅｓｃｒｉｐｔ／ＧＵＩ／
から始まっているので、サーバから消去し忘れたものなのかも？？

あと10.2のパッケージを購入してたのですが、
その中のDev ToolsのCD-ROMにオマケとして入ってるみたいでした。

調査＆レスありがとうございます。
いちおーADCのメンバーなんですけど、パスワードとアカウントどこに書いてたかなｗ

10.2.8
choose fileで決めた名前でテキストファイル開いて短い文を書き込んで閉じる
という簡単なスクリプト。
再帰呼び出しとかループとか全然無いんですけど
なぜかスタックオーバーフロー・・。
他にも同じような経験した方いらっしゃいますか？

ファイル書き込みはけっこうコツがいる。
様々な場面に対応して安定して書き込める書き込みサブルーチンを作るのは大変だよ。
とりあえず、今書いているスクリプトの一部でも上げてみては？

>>494
レスありがとうございます。
>>493原因わかりました。
てっきり書き込みの部分でエラーと思っていたのですが、
書き込んだ後にそのファイルのファイルタイプ・クリエータをFinderで設定する所でエラーになっていたようです。
（try構文にひっかからないのでおかしいとは思ったんですが）

『choose file name』の返り値が『file "Mac形式のフルパス"』
なので、これを『as alias』でエイリアス型にしてから
（ひょっとして、この段階で作られたファイルの存在も認識される？）
Finderに渡したら大丈夫でした。

基本的な事だよなーと思いつつ、以前のOSでもこうだったか思い出せない・・。
AppleScriptリファレンスによると、旧OSでの
『choose file』の返り値はalias型のようです。
移植の障害になるかも？

choose fileとchoose file nameは全然違うもんだろう

あれ？OS Xにもちゃんと『choose file』ありますね。
古いコードの流用で手抜きしたのがまずかったか。
orz
こんなんばっかや。スレ汚しすいません。

ファイル書き込みがめんどいので
do shell script & touch を使っちゃう俺は負け組

>>498
touchって知りませんでした。ありがとう。

今調べたらtouchって空のファイルを作るだけみたいですけど？
テキストファイルだったら、
echo 'なんとかかんとか' > foo.txt
で新規ファイル作って書き込みまで一発でできますよね？

>>499
いま見たらecho使ってたｽﾏｿ。
自分の書いたサブルーチンの内容も覚えてない負け組・・・

ひょっとして、書き込み用のサブルーチンとかライブラリ化してるんですか？
漏れもそういう事しないといかんなーと思いつつ、
テキトーに昔のスクリプトを検索で見つけて
開いてコードをコピペという原始的な事をしてます。

touchはtouchで使い道があると思います。
えーと確かIEか何かでファイルをダウンロードさせる時に
指定先に空ファイルが必要だった気が。

読み書きのサブルーチンはライブラリ化するべき。
書き込もうとしたらボリュームがロックされていたり、書き込み途中でボリュームがいっぱいになったり、いろいろなハプニングがある。
場合によってはそのままファイルがopenされたままになって次に開けなくなるなど、トラブることがある。
それらに対する対処をぜんぶ盛り込むと読み書き命令はかなり長いサブルーチンになる。
独立したサブルーチンとして使い回ししやすくする方が賢い。

読み書きにはopen/close不要のOSAX使ってる。
エラー処理も殆ど必要なくて便利です。

>>502
>書き込もうとしたらボリュームがロックされていたり、
>書き込み途中でボリュームがいっぱいになったり、
>いろいろなハプニングがある。

うわ。そういうのマジメにやった事ないや・・。
他人のコードは見た事ある気がするけど。
エラーコードで分岐ですかね。
今のとこ大ざっぱにtry構文で囲んでエラーがあったらcloseさせてるだけっす。

そういえばAppleScript Studioにはファイルの読み書き用のハンドル？が用意されてるみたいで、
それを使えば安全にできそうな気もするんですが、
いまいち使い方がわからない。

10.2.8でAppleScript Studioで作った
多ブラウザ対応のブックマークユーティリティーです。
ttp://mac.oheya.jp/up/src/macroom0348.gz

10.3.7の方に試してみていただいたところ、
ブックマークを開いた後にアプリが落ちるそうです。
クラッシュログもいただいたのですがわからなくて・・。

とりあえず関係ありそうなところを
ignore application responses
でくくってみたんですが、どうでしょう。

どなたかに試用していただけると幸いです。

前のversionと同じ挙動で落ちます。

>>506
またまた報告ありがとうございます。

ありゃ（ずこ
何で複雑なブックマーク作成はOKで単純なブックマーク開くがダメなんだろ・・。

速度犠牲にしてブラウザ別の命令に分岐した方がいいのかなぁ。

1 + 1

ドットシンタックスで参照したい...

確かに 〜 of 〜 of って参照は表記が冗長ですよね。
メソッド等との区切りも視覚的に分かりづらいし。
あと、親子の順序が逆なのものヤですね。

Child --> Parent (AppleScript)
Parent --> Child (ドット記法)

DashboardのWidgetもJavaScriptで書くようだし、
いっそのこと、OSAにJavaScriptが使えるようになるといいのに。
でも対応アプリが無いことには意味無しか。

>>510
例えば、
ttp://www.latenightsw.com/freeware/JavaScriptOSA/

スクリプタブルアプリケーションは自分が扱えるオブジェクトを
辞書として公開し、OSAとAppleEventを使って交信するだけ。
だから、OSAの先の言語がASかJSかとかは関係ない。
オブジェクトが表記・操作できるような言語なら
OSAに組み込める可能性はある。

前からとか後ろからとかは、言語の問題でOSAの問題じゃない

510はコンファブのウィジェットいじった事あるのかなと。

>>511
既にあったのですね……。
つーか、自分、Late Night Software社員を名乗っていたものです……。

なるほど。Scriptableなアプリケーションというものは、
OSAに対応しているというだけで、
特にAppleScriptに束縛されているわけじゃないのですね。
OSAの実体は、AppleEventによるアプリケーション間通信の仕組みだと。

>前からとか後ろからとかは、言語の問題でOSAの問題じゃない

これは承知しています。

>いっそのこと、OSAにJavaScriptが使えるようになるといいのに。

のくだりは、言葉通り、AppleScript以外のOSA対応言語(?)があれば解消できる
問題という意味で言っています。

そういう意味じゃ、OSA+JavaScriptってなかなかいいじゃないですか!
JeditだろうがFinderだろうが、JavaScriptで制御できるってことですよね。
障壁が高くなって、人に使ってもらうのは望み薄になりますけどね。

>>512
いんや、ないです。
しょぼいエージェントでも作ろうかな、と思いましたが、
グラフィックを用意するのがめんどくさくて萎えました。
登録してないし。

前はクイッキーズか何かも独自のOSA対応言語を搭載してなかったっけ？
何か違うような気もするが・・。
うーん。
ユーザーランドなんたら言うのは何だったっけ。

現在開いているウインドウのIDや名前などを取得／命令の送信って
AppleScriptでできませんか？

できるでしょ？

アプリケーションの用語にもよるけど。
Panther なら System Events でも取れるかな。

>>510
parent's child

front most なapplicationを調べられるけど、
その答えにAppleScript自体が返って来ちゃったり。ｗ

ユーザーランド・フロンティアもOSA対応言語だったよね。
使ったことなかったけど。
昔はけっこうAppleScript以外のOSA対応言語があったよね。
AppleScriptにも日本語とかフランス語とかあったし。
なつかしー

日本語から入ったからしばらく両刀だった。ｗ
って懐かし話してる場合じゃないや。

こないだ今一番手前に出てるアプリ（or ウインドウ）を調べようとして
>>519な感じだったんですけど、
何か解決策ありますか？

スクリプトエディタから動かしてるかぎり、どうにもならんかと。

いやえーと、アプリ形式で保存してもそうなるでしょ？
起動したら前に出ちゃうから。
自分を下げる命令とかあったらいいんですけど、
他のをアクティベートするしかないわけで、
そしたら「今一番前のを知りたい」という目的に合わないですよね？

スクリプトメニューから実行すると大丈夫なのかな。
でもアプリじゃないと困る事もあるわけで・・。
ほかに手はないですかね。

OS Xになってウインドウばらばらになったから
今のウインドウの順番をリストで取得とかできるようにならないかな・・。
リストだったら自分自身は取得後に消せばいいわけで。

>>523
クドクドと言い分けじみたことを並べるより、ストレートに何がしたいか
つまり何故最前面アプリを調べたいか言うほうが良い

>>523

>>303 で書いたやつを参照のこと。
on idleハンドラからならfrontmostをチェックできます。
iKeyからの起動でも、frontmostをチェックできました。
RealBasicで、ウインドウをGlobal Floting Windowに設定し、
例えば以下の内容のAppleScript(ファイル名frontmosttest)を作り、プロジェクトに投げ込み。

tell application "Finder"
return (name of (every application process whose frontmost is true) as Unicode text)
end tell

ボタンとEdit Fieldを一つ作り、ボタンのActionイベントに以下のように書い
ておきます。

Sub Action()
dim var1 as String
var1 = frontmosttest
EditField1.text = var1
End Sub

これでビルドしてボタンを押せば、きちんとfrontmostが取得できますね。
自分自身のfrontmostがtrueにならないGlobal Floting Windowならではの芸当です。

Script Menuからだと、frontmostはSystem Eventsになりますね。

使用目的にもよりますが、現状一番有望なのはiKey経由の起動でしょうか。

あとはちょっとやってないですが、何かに対して(Dock?)System Eventsで
Command + Tabを発行してからdelayかけて、取得するっていうのはどうですか。

>>525
レスありがとうございます。

なるほど。Rbでそんな事ができるのですね。
残念ながらRbはとても古いのしか持ってないのですが、
手があるとわかってうれしいです。

AppleScript Studioで同じような事できませんかね。
Global floating Windowは作れないですよね。

on idle回しっぱなしは重いかなーと思うんですが、そんな事もないですか？
5秒間隔にしててもその間隙にユーザーが切り替える可能性もあるのがちょっと痛いですね。

ありがとうございました。

>>526
>AppleScript Studioで同じような事できませんかね。
>Global floating Windowは作れないですよね。

何度かこのスレで質問してますが、どなたもご存知ないようです。
>>257 >>275 >>318
>>257で出してるAppleのAppleScript StudioのMLにおいて話題が
出てます。

さらに詳しい話題が、以下のスレッドで出てます。
http://lists.apple.com/archives/applescript-studio/2004/Nov/msg00040.html

ここにある処置をほどこすことでfrontmostに影響を及ぼさないUtility
Windowを実現できるようです。目的次第では、これで十分かもしれません。

ただ、この処置を施しても、ウインドウをクリックすると、メニューやキー入
力送信先がAppleScript Studioアプリに移ってしまうらしく、完全なるGlobal
Floating Windowの実現はAppleScriptだけではダメで、Cocoaとの
(Objective-Cとの?)コンボ(複合記述のことだと思われる)が必要になるとの示
唆があります。回答者も示唆しっぱなしで、その詳しくはMLでは語られていま
せん。質問者も結局100%の解決を見ずじまいなようです。

一つ目のスレッドの質問者は日本人で、シグネチャにURLも出ているので、聞い
たら何か分かるかも。

Global Floating Windowを実現できるかもしれないソリューションがもう一つ
あります。それはFaceSpanです。MacOS9時代のFaceSpanは、それを簡単に実現
できたそうです。

http://www.facespan.com/facespan/pagespeed/url/features4.0/

これを新たに買ったり覚えたりするよりはREALbasicの方がいいや、ということ
で、自分は試用してません。

これ以上は>>526さんが何をしたいのかを推察する情報が開示されていないので、
on idleによる手法がいいとか悪いとか、答えようがないですね。

自身のprocessをfrontmostに出したくなければ、plistでNSUIElementか
LSBackgroundOnlyを指示すれば良い。

tell application "Finder"
set frontApp to item 1 of (processes whose frontmost is true)
end tell
tell frontApp
name of windows
end tell
みたいにすればfrontmost processを参照できるが、C/C++でProcess Manager
とAppleEventを使ってちゃんとしたコードを書いた方が良い。AppleScript
で書く方が難しいし、安定して動かない。

>>527
おお！興味深い情報。英語・・・。がむばって読みます。
>>528
今すぐ何かしたいというんでもないのですが、
たまに使いたくなってはあきらめるという繰り返しというか。

たとえば、最前面のアプリケーションに対して補助パレット的に働くようなものとか。
まぁ相手が明確ならそのアプリに対してtellすればいいんですが。
〜というアプリが最前面なら何かするとか。

>>529
> plistでNSUIElementかLSBackgroundOnlyを指示すれば良い。
をを！？
アプリ/Contents/Info.plist
？？？
いじる所がわかってない時点で触る資格なし？？
orz

おー。検索すると何か色々出てきました。OMEの開発陣のお話とか・・。

> C/C++で〜ちゃんとしたコード
そんな能力があれば・・・。
（´・ω・`）

>>529
それらを施してなおキーイベント送信先やメニューが
AS Studioアプリに切り替わってしまうので、
GUI Scriptingが使えないことになります。

>>530
plistはXcodeのターゲットの中にあります。
Windowsのレジストリエディタで新しいキーを作るようにして設定します。

この辺が理解不能かつRbもFSも眼中にないなら、
iKeyを使うことをおすすめします。
Global Floating Toolbarから
ボタンでAppleScriptを起動することも可能です。
特定のアプリがfrontmostの場合だけ
Toolbarを表示させるということも可能だったはずです。

あ、でもこれも日本語のドキュメントが皆無か。

スクリプトでなくても構わないのですが、ディスプレイだけをスリープさせる方法はないでしょうか。
寝る前にiTunesを再生したあと、しばらくディスプレイがつきっぱなしになってしまうので…
御存知の方いませんでしょうか。

>>532
システム環境設定＞省エネルギー設定＞カスタム＞ディスプレイがスリープするまでの時間を別に指定する

iBookやPowerBookならF1の明度ボタンで暗くする。
外付けのディスプレイならディスプレイの電源だけ切ってしまう。

property DimValue : "" --"モニタのスリープまでの分数格納変数"
global PW --"管理者パスワード"
set PW to "password"
if DimValue is "" then
set DimValue to my getDimValue()
my changeDisplayDialog("1")
my changePmset("1")
else if DimValue is "1" and my getDimValue() is "1" then
my changeDisplayDialog("20")
my changePmset("20")
set DimValue to "20"
else
if my getDimValue() is not "1" then
if (my getDimValue()) is not equal to DimValue then
set DimValue to my getDimValue()
end if
my changeDisplayDialog("1")
my changePmset("1")
else
my changeDisplayDialog(DimValue)
my changePmset(DimValue)
end if
end if

on getDimValue()
return (do shell script "pmset -g disk | awk '/dim/ {print $2}'")
end getDimValue
on changePmset(timeToDim)
get "sudo pmset -c dim" & space & timeToDim
do shell script result password PW with administrator privileges
end changePmset
on changeDisplayDialog(timeToDim)
display dialog ("モニタのスリープまでの時間を" & timeToDim & "分に設定します" as Unicode text) buttons {"OK"} giving up after 2
end changeDisplayDialog

その1とその2を合体させてください。モニタのスリープまでの時間をトグルで
切り替えるスクリプトです。

System Preferencesは実質Scriptableじゃないので、GUI Scriptingをせざるを
得ないようです。

pmsetというコマンドがあるので、それで設定してやります。今の設定が30分な
ら、1分と30分を実行するたびに交互に設定します。1分以下とか、即時にモニ
タを消すことはできなさそうです。元の設定が1分だった場合、20分と1分を交
互に設定するようにしてます。省エネルギー設定で設定を変更した場合、次か
らその新しい値と1分とを交互に設定します。

>>535
pmset -g diskなのは理由があるのでしょうか？
これだとノート型だとAC電源の場合とバッテリーの場合の２通り表示されます。
awkは詳しくないのでどっちの結果を拾うかわかりませんが。
pmset -g か pmset -g live なら現在使用中の設定が出ると思います。

>>536
特に意味は無いです。ネタ元はapplescript-users mailing listで、そこに載っ
てたのをコピペしたというだけの話です。とりあえず動くし、自分じゃ使わな
いのでぶっちゃけ調べは適当です。

http://lists.apple.com/archives/applescript-users/2004/Aug/msg00017.html

iMac G5なので、いずれの場合もdimは一つしか表示されないです。

すいません質問です。
AppleScriptからクリッピングファイルを作るにはどうしたらいいのでしょうか。一応
以下のようにするとファイル自体は出来たのですが、これだけでは中身が無いようです。

tell application "Finder"
make new clipping to "hogehoge"
end tell

それと、出来ればテキストクリッピングだけでなくピクチャクリッピングというものも
作りたいのですが、これは可能でしょうか？（実はそもそも見た事ない＞ピクチャクリッピング）

>>538
OS9だとTanaka's osaxのMT Write Clippingでテキストもピクチャも(URLも)出来ますが。

>>539
レスありがとうございます。
環境書き忘れてましたすいませんOS X 10.3.7です。
ググったらこのスレが出てきたりしましたorz　>>226で既出だった。。。
Tanaka's osaxというのはOS Xでは無理なのですね……これは残念です。

煮詰まってます。

do shell script "curl 'http://www.google.co.jp/'"

これだけのスクリプトが、
『一部のデータを目的のデータ型に変換できません』となり実行できません。
なぜ？？？

>>541
試したけど普通に実行できてダウンロードもできてhtmlもげっとできた@OS X 10.3.7

PopUp Buttonで現在選択されているアイテムの項目名を取得するにはどうすればいいんですか？

ここで聞いていいのかな、スレ違いでしたらスマソ
テキストから四百字詰の枚数を換算するAppleScriptってありませんかね。

これを改造してみれ。
ttp://www.artman21.net/product/Jedit3/Jedit3Script.html#anchor96681

ども、助かります。
いい機会だし勉強してみよ

ありゃ、開けない
……AppleScript本買ってくるかな

>>542
レスありがとうございます。
どうもdo shell scriptの最終的なリザルトがUTF-8じゃないとエラーになる模様。
10.2.8

>>544
いわゆる２バイト文字である日本語と半角アルファベットが混じったテキストの字数を数えるのはけっこう面倒な気がします。
字数数えてくれるエディタなかったかな。

TextInfo.osax

これでいいのかな。シングルバイト文字もマルチバイト文字も1文字と数えます。

--クリップボードをUnicode textとして取り出し（Unicode textじゃないと化ける）
set myClipboard to ((the clipboard) as Unicode text)

--クリップボード内の行数を出す=改行コードの数
set CountOfParagraph to (count of every paragraph of myClipboard)

--クリップボード内の文字をバラバラのリストにする
set myEveryCharacter to every character of myClipboard

--文字数を数え、そこから改行コードの数を引く（改行コードも1字として数えられるので）
set numberOfCharacter to ((count of myEveryCharacter) - CountOfParagraph)

--さらに400で割り、小数は繰り上げ。
set DivBy400 to (numberOfCharacter / 400.0)
set numberOfWritingPad to round DivBy400 rounding up
set midStream to (numberOfCharacter mod 400) / 400 * 100

--1文字でもオーバーしたら1枚と数える
if DivBy400 < 1 then
display dialog "ただいま原稿用紙 " & (numberOfWritingPad as Unicode text) & " 枚以下です。" & return & "（" & numberOfCharacter & "文字 / " & midStream & "%）"
else
display dialog "ただいま原稿用紙 " & (numberOfWritingPad as Unicode text) & " 枚です。" & return & "（" & numberOfCharacter & "文字 / 最後のページは" & midStream & "%）"
end if

>>549
他のは知らないけどmiはバイトじゃなく文字で数えたと思うよ。

>>551
わざわざどうも、とても参考になり助かります。
帰ったら色々挙動など調べてご報告します。

改行後の空白とか考慮するとなると段落ごとに処理しなくちゃならないね。

幅を二十字に設定したエディタに流し込んで行数を数える、とかが一番確実なような。

まあそうなんだけど、ファイル数がだいぶ増えたのとWinにそういうツールが存在しててMacにないというのも寂しいなと思ってた物で。
一度自動化できれば人為的なミスも大部減りますし

>>556
文字コードが固定しているのなら、段落ごとに20文字で割って
20行で割ってってやっていったらできますよ。
それほど難しくないと思うから頑張ってみたら。

on open theList
set theText to read item 1 of theList
set n to 0
repeat with i from 1 to count every paragraph of theText
set numberOfCharacter to count every character of (paragraph i of theText)
set n to n + numberOfCharacter div 20
if (numberOfCharacter mod 20) > 0 then set n to n + 1
end repeat
display dialog ((n div 20) as string) & "," & (n mod 20) as string
end open

on run
open (choose file) as list
end run

>>558
そのままだと空の改行をカウントしないんじゃね？
5行めの後に
if numberOfCharacter = 0 then set n to n + 1

>>557
TEC OSAX入れるとテキストエンコーディングの判定と変換もできる

http://www.warprecords.com/bleep/
このサイト、試聴するのにとっても便利なんですが30秒で一時停止してしまいます。
もう一度再生ボタンを押せば通して聴けるんですが、この動作をアップルスクリプトでできますか？

そこまで微妙なタイミングを要求される動作はちょっと無理ではないかと。

>>560
僕お得意のon ildeネタ(w 意外と動作良好。
Script Editorで保存するときにアプリケーション形式を指定、
「実行後、自動的に終了しない」のチェックボックスをONにして保存。
GUI Scriptingを使う以上、キーコードを送る際、
Safariを最前面にしないと無理です。Mac OS X10.3以降必要。

--http://www.warprecords.com/bleep/ 試聴Helper
--再生/一時停止ボタンにフォーカスを合わせてから実行

on idle
tell application "Safari"
activate
delay 0.5
set myTarget to windows whose name contains ("BLEEP" as Unicode text)
set index of item 1 of myTarget to 1
delay 0.5
end tell
tell application "System Events"
keystroke tab
--delay 0.5
keystroke tab
--delay 0.5
keystroke return
end tell
--待機秒数 / 環境に合わせて調整
return 32
end idle

>--再生/一時停止ボタンにフォーカスを合わせてから実行

Tabを押して、です。再生/一時停止ボタンが黄色くなったらGO!

うーん。わくわくするなあ♪
うまく行く事を祈る。
GUI scriptingでactivate待ちとかはdelayを使えばいいのか。勉強になりました。

>>562
thx.
しかしTabでもopt + Tabでも選択出来なかったです。。

>>565
一度プレイヤーのところをクリックしてからTabを押してください。
なんかもう、まるでダメ男君みたいだね。

>>566
ありがとう。
できました。

>>562
ありがとう。

Pages、スクリプタブルじゃないじゃん……。

ぱげすって何？

>>568
うっわー。
Pages自体どうでもいいんだけど、
それをきっかけにスクリプタブルじゃないソフトが幅を利かせたりしたら嫌だねえ。

AppleとしてはこれからはAutomator用のアクション対応に力を入れるんじゃないの？

AutomatorのアクションってAppleScriptでも自作出来るとかじゃなかったかな。
下手に対応させないとAutomatorの首を絞めるかも。後々対応させるのでは？

あれ、乙女ﾀｿってAppleScript自動生成じゃないの？

>>573
そうだといいなとは思ってます。
ADC会員で早く使ってる人は何も言えないだろうしなあ・・。
Appleから公式にそのへんのコメントないかな。

>>570
まさにそういうことだね。
EGWordはAppleScriptへの対応ぶりがショボいし……。

Wordはちゃんと取り組んだことがないけど、MSアプリのAppleScript対応機能は
バギーだとMARo氏が書いてたな。

ところで、MARo氏って「これこれ、こういう方法を発見した」だの書いておき
ながら、具体的なことを書かないんだよね。

>>575
> MSアプリ〜バギー
そうなんだ。
でも対応はいい方ですよね。使える命令多いし。
漏れはIEくらいしかいじらんですけどOE関係のスクリプトなんかも一時期は多かったような。
WordはVBのマクロをちょこっと触った事しかないな・・。

AppleScriptは実行専用にするとソースが隠せる事もあってか
昔からけっこう秘密主義の人も多いですね。
あまり整った言語ではない？ために直球ではできない事やわかりづらい事も多いので、
そこをどうにかする変則的なノウハウのようなものも生まれてくるし。
オープンにしちゃうとシェアウェアとか商売でやりたい人は困るんでしょうけど、まだまだ小規模なコミュニティーだと思うしオープンにしてほしいよなと思う事もしばしば。
有償であっても書籍などの形で公開してくれればまだいいんですけどね。

流れぶった切ってちょっと質問です。
環境はOS Xなんですが、Finderのentire contents命令って何かバグとかありますか？
ググったらそれっぽい記述があったんだけど、どうもその情報自体古いみたいで……。

http://developer.apple.com/macosx/tiger/automator.html

KonfにならってJavaScriptを標準にしてしまった方がいいような

>>578
リンクありがとうございます。
AutomatorはASの自動生成をしてくれるインターフェースってわけではなさそうですね。
これはマジでASピンチ？

>>579
ずーっとそれ書いてますけど（別の人ならスマソ）WindowsでWSH使った方が幸せなのでは？
漏れはAS覚えた事を無駄にしたくない＆ASはラクで(･∀･)ｲｲ！と思ってるのでMacを使い続けてるんですけど。

漏れもJavaScriptだったら覚えていなかったと思う。

>>580
実際どっちも使ってるんで、すすめられるまでもない。
こと、MacについてはAppleScriptにどうにかなってもらわなければ解決になら
ないわけで。
でもそんなにずっと書いてるかな? 一回話題にしただけだけど。
配列、連想配列と正規表現のサポートは、普通にうらやましいでしょ?
リストとレコードが配列と連想配列だけど、何かと使いにくいしなぁ。
OgreKit OSAX出ないかねー。
http://www-gauge.scphys.kyoto-u.ac.jp/~sonobe/OgreKit/#ToDo

Late Night SoftwareからOSA用のJavaScript落として使ってみたけど、
抽象化されているのはFinderの一部オブジェクトだけで、
ほかは全部アップルイベントを生書きするみたい。
そう甘い話は無いってことか。

うーん。>>582さんはばりばり使ってるからこそ限界を感じるんですかね？
もちろんアプリごとの不統一だとかバージョンごとの細かいバグみたいなものとか標準での機能不足とか色々ASにしっかりしてほしい所はあるわけですけど、
だからといってJavaScriptで記述がメインになったからといってそれらが一気に解決するなんて事はありえないでしょうからね・・。

（正規表現っていうと文字列の検索とか置換とかでしょうか？
　漏れは文字列扱う時は昔からPerl呼び出して使ってるし
　それ用のOSAXもあるみたいですけど・・）

（ああ、JavaScriptがいいっていう発言を何度も見た気がするのは
　別のスレでDashboard関係の話題が出た時にも書いてあったからかな・・。
　しかもその発言した人ｺﾝﾌｧﾌﾞﾚｰﾀｰのWidget作った事ないみたいだったし。
　あれって使いたい機能によってはASやShellScriptを呼び出して使うようになってるはず。）

>>583
フィルタ参照形式で正規表現が使えないかと思ってるんだよね。

なるほど。それができたら便利そうかも。

俺はフィルタ参照自体よくわからん
何にたいしてどんなフィルタが実行可能なのかの一覧とか欲しいよほんとに

なんかFinderが悲惨みたいだね

>>587
そのクラスが持ってるﾌﾟﾛﾊﾟﾃｨｰで条件指定してフィルタかけるっていうのが基本なんぢゃないの？とおそるおそる書いてみる。
あるクラスは上位のクラスの属性を継承してたりするからそのへんわからんとあれだけど「AppleScriptリファレンス」とか、ネット上で公開してくれてる人が居る用語集とか見ると書いてありますよね。
釈迦に説法だったらごめんなさい。
>>588
現状でどんな問題があるかは知らないです。最近MLも見てないし。

すみません、質問になります。
Snapz Pro Xというスクリーンキャプチャのアプリケーションの
動画でのキャプチャを自動化したいと考えています。

applescriptへの対応は微妙なので、ショートカットキーを押していくことで対応したいと思い、
とりあえず>>207を参考にして

tell application "System Events"
tell process "Finder"
keystroke "#" using {command down, shift down}
end tell
tell process "Snapz Pro X"
keystroke "4"
end tell
end tell

こう書いてみました。しかし、本当はビデオキャプチャ開始直前の状態までいってほしいのに、
Snapzのウィンドウが表示された時点で処理が一旦止まってしまいます。
プロセスとかウィンドウの優先順位の話だと思うのですが、あまり理解できていません。
どうすれば動くようになるでしょうか？

Snapz Proは、ほかのプロセスをストップしてるから無理ぽ。
試しに、Delayを書いてみると、
その後の処理はSnapz Proの支配下から逃れた後に実行されることが分かると思う。

tell application "System Events"
tell process "Finder"
keystroke "#" using {command down, shift down}
end tell
end tell
delay 1
display dialog "Test" as Unicode Text

Kinesisみたいにキーボードにマクロが付いてるやつを使えば、
こんなケースでも自動化できるけどね。

虎の Automator おもしろそう。
サイト見たかぎりでは関数をブラックボックス化して組み合わせるみたいだから
フォーマットに従えば自作のスクリプトも使えそうだ。

・AutomatorのAction(電子ブロックの部品みたいなの)は、AppleScriptと
　Objective-Cのどっちかで書くことになっている

・XcodeのActionタイプのプロジェクトに、AppleScript Automator Actionと、
　Cocoa Automator Actionがある。

・ActionはUIを持っているけれど、main.nibのviewをInterface Builderでエ
　ディットすることで作る。(AppleScript Studioでのノウハウが流用可能?)

つまり、AutomatorでAppleScriptが捨てられることは無いってことだ。むしろ、
桧舞台に上がったようなもんじゃない?

AppleScript Automator Actionでプロジェクトを立ち上げると、
以下のスケルトンが貼られてるみたい。

on run {input, parameters,}
set output to {}
if |ignoresInput| of parameters is false then
-- process input items into output items
end if
return output
end run

inputオブジェクトには、直前のワークフローのActionのoutputが大抵リスト形
式で含まれている。parametersオブジェクトにはActionのユーザーインター
フェースで作られたすべてのセッティングが含まれている。

Action終了時には、次のActionに渡すオブジェクトを返り値として用意する必
要がある。

だと。

情報漏洩 ｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!!!

>>594
>>578

Automatorは、Mac OS X Tigerのパワフルな新機能の一つ。プログラムすること
無しに、素早く、効果的に、楽々と、毎日繰り返す手作業を能率化できる。

大量のファイルのリネーム、数ダースもの画像の処理、アドレスブックに登録
した従業員の作業カレンダー作りといった仕事を、容易に「オートメート」で
きる。

一度「オートメート」すれば、それらの仕事を何度も何度も繰り返せる。

---

これってUNIXのツールチェーン、コマンドの直交性みたいな話でなかなかおも
しろいよね。Automatorが広く認知されたプラットフォームになったら、案外凄
いことになるかも。ちょっと形は違うけど、OpenDocを思い出す。

Automatorは、「Action」を積み重ねて構成する。

おのおののActionは、一つの仕事をこなすようにデザインされている。

例えば、Webページからリンクされた画像を見つけ出したり、あるフォルダにあ
るファイルを別のフォルダにコピーしたりといったようなことだ。

一つのツールですべてのことをやってしまうのではなく、一つのActionは、
「一つの仕事をうまくやる」ようにデザインされている。

Automatorのパワーは、ワークフローの中のActionの連鎖に由来している。

個々のAction一つでは成し遂げられない仕事でも、ワークフローの中にあるい
くつかのActionが力を合わせることで、素早く、容易に成し遂げられる。

この小さな個々の部品から機能性の構築をするというアイデアは、古きよき
UNIXに始まったものだ。

Automatorのもたらした躍進点は、直感的なGUIで小さなツールの組み立てをや
りやすくしたこと。

スクリプターや開発力のある人はだれでも、Actionの重要な作成候補者だ。そ
して、ほとんどのケースで、スクリプトを手で書くよりそれを早くできるよう
になるだろう。

# 「それ」が何を指してるのかよく分からん。Actionを作ることかしらん。
# よく読んだら、やっぱり古きよきUNIXの考え方にヒントを得たものなのね。

すみません。複数のJPEGをPowerPointに1ページ一枚ずつ、一気に貼付けていくスクリプトを
誰か晒していただけませんか?

Actionの美点は、たくさんの機能性の源泉を活かせること。

Actionは、Core ImageやCore Dataなどのcore OSフレームワークの機能にアク
セス可能。コマンドラインツール環境の「てこの力」や、個々のアプリケーショ
ンの専門化した特徴をうまく利用することもできる。

Actionは、AppleScript、もしくはObjective-Cのいずれか、容易な方で作成で
きる。

Automatorの登場は、顧客がワークフローで使うための小規模な機能性の拡張を
もたらすちっちゃなユニットの提供機会の創出を意味する。

あなたがアプリケーション開発者なら、ユーザのためのAction作りは、非常に
大きなビジネスチャンスだ。

# かなり適当な訳

>>598
Office Xと2004でAppleScriptが大分違うと思うんだけど、どっちよ。

>>600
あ、2004です。おねがいします。

>>601
おねがいします。じゃないだろ。

ひーん。おながいしまつ。

つかもう寝ないと……。
Finderから得たファイルのリストをファイル名順にならべるのどうやるか忘れた。
do shell scriptでsort呼び出したはいいけど、戻すところでつっかかった。
ソートされたファイル名のリストを作ったら、後はrepeat文囲んでガガっとやればOK。
myPictureFileNameのクラスはaliasじゃなくてテキストね。
画像はアスペクト比が同じじゃないとうまくいかない。

--テストの画像
set myPictureFileName to "Macintosh HD:Users:anonymous:Desktop:picture.pct"

tell application "Microsoft PowerPoint"
--スライドをケツに一枚足す
do Visual Basic "ActivePresentation.Slides.Add ActivePresentation.Slides.Count + 1, ppLayoutBlank"
--ケツの一枚にmyPictureFileNameで指定したファイルを貼り込む。
--20とか640とかのパラメータは自分で決めな。
do Visual Basic ("ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes.AddPicture \"" & myPictureFileName & "\", False, True, 20, 20, 640, 480"
end tell

ん? 上のだと動かない? 一応、jpegも貼れたぞ。

set myPictureFileName to "Macintosh HD:Users:anonymous:Desktop:picture:picture01.jpg"
tell application "Microsoft PowerPoint"
do Visual Basic "ActivePresentation.Slides.Add ActivePresentation.Slides.Count + 1, ppLayoutBlank"
do Visual Basic "ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes.AddPicture \"" & myPictureFileName & "\", False, True, 20, 20, 640, 480"
end tell

ありがとうございまつ。これをもとにｶﾞﾝｶﾞｯﾃみまつ。

できました。ありがとうございました。

on open pictureFiles
repeat with anItem in pictureFiles
tell application "Finder" to set aPicture to anItem as string
set aPicturePath to (quoted form of POSIX path of aPicture) as Unicode text
do shell script "echo $[ `sips -g pixelWidth " & aPicturePath & "|grep [0-9]|awk '{print $2}'` / `sips -g pixelHeight " & aPicturePath & "|grep [0-9]|awk '{print $2}'` ]"
set horizontalPictFlag to result as number
tell application "Microsoft PowerPoint"
do Visual Basic "ActivePresentation.Slides.Add ActivePresentation.Slides.Count + 1, ppLayoutBlank"
if (horizontalPictFlag as boolean) then
do Visual Basic "ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes.AddPicture \"" & aPicture & "\", False, True, 0, 0, 720, 540"
else
do Visual Basic "ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes.AddPicture \"" & aPicture & "\", False, True, 157, 0, 405, 540"
end if
end tell
end repeat
end open

>>578
を見る限り、
AutometorはコマンドラインのGUI版って感じかな
普通のユーザーにも簡単に、たぶんAppleScriptよりも
ずっと容易に使えるだろうけど、ただ、この手のものは
制御構文や変数の扱いが貧弱なのが普通だから、
あまり複雑な処理には向かないと思う。

アプリ開発者から見ると、Autometorはユーザーに
簡易マクロ機能を提供する手段として、あるいは、
汎用のデータを扱うアプリなら、これをプラグイン環境
としてとらえることもできるかも。

スクリプターから見ると、Autometor自体がスクリプタブル
なのかが気になる。いや、それよりAutometorのコマンドは
入出力の定義を持っているわけだから、これをAppleScript上の
オブジェクトの型として直接扱えたらきっと楽しい…が、
それは難しそうな気が…。

基本的に用意しといたブロックを一本道でつなげた構造で、
複数のブロックにまたがるような制御構文や変数は無理そうだね。
もちろん個々のブロックの中では自由に記述できるだろうけど。

ところで、引数と返り値のバケツリレーで型チェックはないっぽいので
自分で書くとつまらないバグに悩まされそうで心配。
Javaで書けばこんなカンジでしょ？↓

　　Object[] hoge(Object[] input, Object[] parameters) {
　　　　...
　　}

何番目のデータが何を表して、ということを自分で管理しなければならず、
しかも実行時エラーの報告が今のようなデタラメだらけでは・・・

>>591
Autometorで盛り上がっているところすみません。
無理ですか…
他のプロセスをストップしているってことだったんですね、つまりアップルスクリプトの
プロセスもストップしていると…、そりゃ動きませんよね。
なんだかものすごく納得です。

納得はしましたが、困ったなぁ。
何か裏技的な方法ないんでしょうか。
Kinesisというのは、あの不思議なキーボードですね。
これはこれでほしいけど、やりたいことは人の手を入れない自動化だったので、これまた無理ですね。
とほほ。

tell application "iTunes"
set thisEncoder to item 4 of encoders
set current encoder to thisEncoder
convert selection
end tell

iTunesのスクリプトメニューから「MP3に変換」を実行するスクリプト。
（時によってAIFFにしたりACCにしたりするので同様のスクリプトを用意）
しかし必ず「AppleEventがタイムアウトしました」というメッセージが出てくる。
OKを押してしまえばエンコードが進行するとはいえ、解決策はないもんでしょうか。
delayじゃだめっす。

>>611
with timeout of 6000 seconds
end
で囲んでみるとか

>>611
以下のような感じでどうでしょうか。
tell application "iTunes"
set thisEncoder to item 4 of encoders
set current encoder to thisEncoder
ignoring application responses
convert selection
end ignoring
end tell

>>612-613
ありがとうございます、が、どっちも解決せず。
どうもiTunes側のせいのような気がしないでもない。
AppleEventがよくわからないからな〜

>>610
Snapz Proをあきらめたら? でも、Snapz Proほどパーフェクトなキャプチャユー
ティリティもまた無いんだよね。

古いキーボード改造してPICつないで自動化したら? 押す必要があるキーボー
ドの個々のスイッチに、フォトカプラを介してPICのポートをつなぐわけ。
プログラムはループ待ちとポートへの出力命令のみだから簡単。
初歩の初歩であるLEDの点滅レベルでOK。

インターバル時間が長いとタイマの分周器を使っても間に合わないかもしれな
いから、レゾネータはkHzオーダーの周波数の低いものにしておくと、考えるこ
とが少なくていいかも。

PICはライターが必要だから、それだけで6,000円ぐらいは見ておく必要がある
けど、それ以外の材料費はPIC含めて1,000円以内で収まると思う。

PIC タイマ シーケンサなどでググるといいよ。
秋月通商から4CHのシーケンサキットが出ているから、これをキーボードにつなぎゃOKかも。
http://akizukidenshi.com/catalog/items2.php?q=%a5%b7%a1%bc%a5%b1%a5%f3%a5%b5&s=score&p=1&r=1&page=#K-00127
http://www.t-net.ne.jp/~masa_hp/diy/fr_sequencer.html

>>607
なかなかやるね。ポートレートとランドスケープで処理を変えるわけか。
$[ ]この構文は知らなかったなぁ。
自分はexpr A / Bだったな。echo A / B | bc とか。
しかし、複数のファイルをDrag & Dropすると、必ずしもファイル名順にならなくない?
だれもファイル名順じゃなきゃダメとはいってないけどね。

>>608
普通のユーザーにも自動処理の門戸が開かれるということが重要。職場の人間
とか見てると、言語やスクリプトはおろか、マクロ、キーマクロすら知らない
し理解不能だから、ほとんど手作業だしね。そういう人間向けの道具としては、
分岐処理や変数などは理解を妨げるだけなので不要だと思う。
一本道でも素人に自動処理が出来るんであれば、それは喜ばしいことだと思うよ。

WindowsはいきなりWSHだから普通の人には無いも同然。普通の人に使わせると
いうアプローチの自動処理環境がOSに標準装備って、結構痛快。

>>609
型チェックはあるっぽくない?
Actionのプロパティで入力と出力の型を宣言するのでは。
それを見てAutomatorがActionの嵌合をチェックするんじゃないかな。

Actionの天地にある「Files/Folders」や「Images」というのがそれだと思うん
だけど。

>>616

touch `jot -w %03d_file 100 1`

と

on open myFiles
my main(myFiles)
end open
on run
tell application "Finder"
set myFiles to selection
my main(myFiles)
end tell
end run
on main(myFiles)
set myFilesPath to {}
repeat with anItem in myFiles
set myFilesPath to myFilesPath & (anItem as string)
end repeat
choose from list myFilesPath
end main

で試した限りではなんとか行けそうに思うのでつが...。
# この板と海上氏とこばやし氏に感謝。

その場で整然と作ったファイルなら順序よくならぶけど、
実際に使う画像は、あっちこっちから集めてきたものではない?
どっかの実際に使ってるフォルダでselectionを取得してみたら?

tell application "Finder"
selection
end tell

……で、今調べてみたら、アイコン表示とリスト表示のselectionは、ファイル
作成日、もしくはファイル変更日順みたい。カラム表示のselectionはファイル
名順のリストになった。selection取得時にカラム表示にしとけば、ソートはい
らんね。

>>607,616
やってる事、言ってる事が高度でわからにゃあ・・。
$[`いろいろ１`/`いろいろ２`]
の前後のどちらかが場合によって実行されるという事？
ネットのシェルスクリプト入門のページに載ってるでしょーか。

>>617
MS-Wordのヘルプとかけっこう丁寧にマクロの書き方説明してあったと思うけどね。
ヘルプだけ見て簡単なタグ挿入みたいなの書いた事あるし。
普通の人は存在も知らないだろうね。

>>621
$[ 4 / 3 ]が整数演算。この場合は1になる。
つかうjpgが4:3か3:4なので。やけに縦長・横長なファイルだと{"0", "1"}以外になって
>>607のスクリプトではエラーになる。
sipsについては↓ここ参照。
http://pcweb.mycom.co.jp/column/osx/073/

レス番間違えた。
>>620ね。

>>619
Finder Basics見ると、将来の版ではちゃんとソート方法を明示的に指定してリ
ストが獲得できるようになるようだね。参照が格納されたリストはソートしづ
らいから、これは助かる。Tigerに期待。

sort: (NOT AVAILABLE YET) Return the specified object(s) in a sorted list
sort reference -- a list of finder objects to sort
by property -- the property to sort the items by (name, index, date, etc.)
[Result: reference] -- the sorted items in their new order

>>622
普通の人は、

理解不能なもの>余計な努力をする必要があるもの>不要
マニュアル>見えない>言葉で説明されても理解不能>人に目の前でやってみせられて初めて理解

我々みたいに、「楽をするためならどんな努力でもする」、という人間とは真
逆。Automatorですら、彼らにかかると上記から逸脱できないかもしれない。

>>622
sipsはAppleScriptからも使える……のだが、よくわからんw

たぶんこんな感じだと思う

set selImage to choose file with prompt "Choose an image"

tell application "Image Events"
set anImage to open selImage
set imgDimensions to dimensions of anImage
close selImage
end tell

set horizontalPictFlag to (item 1 of imgDimensions) >= (item 2 of imgDimensions)
--横長か正方形ならtrue、縦長ならfalse

>>625
おぉ。これは知らんかった。
ありが�d。

>>622,623
ありがとうございます。

>>625
おぉ。これまた楽しそう。

>>627
Image Eventsについては、

ttp://www.apple.com/applescript/imageevents/index.html

で、よろしこ

よくわからんので結局try〜end tryで囲ってムリヤリ解決させました。

/Library/Scripts/Folder Action Scripts
にImage Events使ったフォルダアクションのサンプルがあります。

>>629
それやってる人、他にもいるね。
他に解決法って無いのかも

試してみようと思って１曲AIFF→MP3変換してみたけど、
タイムアウトのエラーが出なかった・・。
長い曲じゃないとダメなのかな。
スクリプトエディタから実行したから？

おなかちゅいたよまみー

>>632
スクリプトエディタからだと大丈夫なのよ。
iTunesのスクリプトメニューから「スクリプト書類」でやるとだめなのよ。
「アプリケーション」で保存してやればいけるけど、なんか居心地が悪いし。

Jedit Xが今のベータでAppleScript対応になったね。結構用語が整理されてい
る。強化されたり、サックリ無くなってたり。
スクリプトウインドウ、マクロメニューが前より強化されたのはいいね。

個人的には、allow redraw / inhibit redrawが無くなったのが気になる。
パフォーマンスは大丈夫だろうか。

bookmarkも使い手があるね。正規表現で文書をなめて、ひっかかったのを一覧
にする、なんてことができると思われる。

Jedit XはCocoaだからI-Searchが使えるし、例のカスタマイズで多段のキーバ
インドが使えるのがいいね。そろそろ4から移行のタイミングかもしれん。

なるほどね。
うちのiTunes 4.7.1 @ OS 10.2.8 には
スクリプトメニューが無かったんで取りあえずエディタ上から実行してみたんだけど、環境依存的な問題なのかな。
間にはさまるメニューの実行環境がイベントの終了メッセージ待ちしててタイムアウト？？
（メニューエクストラのスクリプトメニューの事？）

> 居心地が悪いし
しょっちゅう使うものだったらアプリにしてDockとかDragThingとかに入れとくのもアリと思うけどな。
勝手に終了しないようにしてon reopenで実行されるようにしとけば起動時間もかからないし。

>>635
うち試せないんでがしがしフィードバックしてください。
削られた用語は単にまだ実装できてないのか、
それとも将来にわたって不要と考えて削ったのか、
どっちなんでしょうね。

OS上げたら試すつもりなんで楽しみだ。

結局、Finderでセレクト後、ScriptMenuから実行することにした。>>625に感謝。

tell application "Finder"
try
set current view of window 1 to column view
end try
set pictureFiles to selection
my main(pictureFiles)
end tell

on main(pictureFiles)
repeat with anItem in pictureFiles
tell application "Finder" to set aPicture to anItem as string
tell application "Image Events"
set anImage to open aPicture
set imgDimensions to dimensions of anImage
close aPicture
end tell

set widthValue to (item 1 of imgDimensions)
set heightValue to (item 2 of imgDimensions)
set aspectRatioValue to (heightValue / widthValue)

次につづく。

つづき。

if aspectRatioValue = 0.75 then
set outputDimensions to {0, 0, 720, 540}
else
if (aspectRatioValue > 0.75) then
set outputWidth to (((540 * widthValue) / heightValue) div 1) as number
set widthMargin to ((720 - outputWidth) / 2) div 1
set outputDimensions to {widthMargin, 0, outputWidth, 540}
else
set outputHeight to (((720 * heightValue) / widthValue) div 1) as number
set heightMargin to ((540 - outputHeight) / 2) div 1
set outputDimensions to {0, heightMargin, 720, outputHeight}
end if
end if

set outputString to item 1 of outputDimensions & ", " & item 2 of outputDimensions & ", " & item 3 of outputDimensions & ", " & item 4 of outputDimensions

tell application "Microsoft PowerPoint"
do Visual Basic "ActivePresentation.Slides.Add ActivePresentation.Slides.Count + 1, ppLayoutBlank"
do Visual Basic "ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes.AddPicture \"" & aPicture & "\", False, True, " & outputString
end tell
end repeat
end main

終わり

>>637
名前が変わっていたり、別々だったものが一つのメソッドのプロパティという
形になったりで、仔細を比較しないと全体像が見えない。

無くなったと思われる用語
aliasFile, picture, movie, sound, play --> attachmentになった?
byte, line, text flow(story) -->lineとparagraphの違い何だっけ。
select / selection --> さすがにこれはサポートされると思われ。つか今びっくりした。改善しる!!
undo, revert --> スクリプトからはあまり使わないよね。
style run --> attribute runになったっぽい?
text style info --> colorというのが増えた。ほかは?
OpenURL --> open locationがあれば無くても困らない?
allow redraw / inhibit redraw --> Cocoaだといらない?
justify
speak --> AppleScriptに元々あるしね……。
suspend
updateMacroMenu --> システム変わって不要になったのかも。

>>607
結局Finderからselection取得する前にカラム表示にしたのね。
そこまで書けるならPowerPointの部分も自分で書けるだろうに(w

スクリプトと旅の恥は書き捨てだから、目的を果たすことこそが重要か。

>>637
あ、今のバージョンはAppleScriptに対応した最初のベータ版だから、リリース
版までには改善されると思われる。

>>640
報告ありがとうございます。

たしかJeditの場合は
文書幅によって決まる表示上の行→line
改行まで→paragraph
だった気がします。
両方あった方が便利な時もあると思うんだけどな・・。

（関係無いですがパラグラフの終端に改行を含むかどうかの扱いがエディタによって違ったりしたはず）

Jeditで使った事ないですけどOpenURLってﾇevent WWW!OURLﾈなんですかね？
これ使うとAppleScript対応してないっぽいWebブラウザでもURL開けたりするんだけど古いイベントだから無くなるのかなあ。
まあopen locationでいいんですけど。

>>642
つか、全部付属ドキュメントに書いてあった。
selectionはselected textなどとして取得できること、
set selected text toなどでselectの代わりになること、
クラス構造の変化、文字コード関連など、重要な情報満載ですた。

>>643
付属ドキュメントは大事ですね。
俺も自分でDLしない事には始まらないですね。うずうず。

そういうやり方がOS Xっぽいんですかね？
SafariもドキュメントのURLをsetってやり方でページ開いたりするみたいだし。

OS Xっぽいというよりは、OOPっぽいというべきじゃないかな。
http://e-words.jp/w/OOP.html

オブジェクトと、オブジェクトに内包されるプロパティを操作するっていうの
は、OOPの基本概念ってことでいいんだよね?
よく分からん。それは表面的な理解だって話もあるし。

>>641
いや、VBAはてんでわからんかったので。PPTもTestDriveで試してたんです。
実は、俺のツレが毎週50枚の写真を使ったプレゼンに倒れそうになってたので、
「俺がスクリプトでなんとかしてやるから、iBook買え！！！」
なんて言ってしまって。
「2ch 新・mac板のおかげで出来た」と伝えておきました。(w

>>646
ほー。そうなのか。あつい友情(愛情?)だね。
Office XのPPTのAppleScript対応はdo visual basicのみだったけど、
2004になってからガツンときてるから、2004ならAppleScriptでも
同じことができるはずだよ。

今ExcelのVBAを勉強してるので、MSのアプリはVBAの方が分かるというだけ。
VBA馬鹿にしてたけど、結構おもろい。

>>645
>オブジェクトと、オブジェクトに内包されるプロパティを操作するっていうの
>は、OOPの基本概念ってことでいいんだよね?

俺的なOOPの基本概念
・実装（メソッド）とデータ（プロパティ）を一体化させた
　オブジェクト（クラス）を定義できる
・変数の隠蔽（カプセル化）が可能
・継承したり抽象化したりというOOP的な考え方を支える仕組みがある

個人的にはカプセル化ができるか否かが最も重要

そういや OS X になってからクラス構造がオブジェクト指向的に改変されたな

JavaScriptは基本的にオブジェクト指向なのに
変数が全部グローバルスコープなのが気持ち悪いね。
いちおう予約語にclassとかあるけど将来の拡張のためというよりは
Javaのをパクってきただけな希ガス。

>>649
Apple Event Object Modelで最初からオブジェクト指向になっている。
1992年のこの記事は今でも通用する。
http://www.mactech.com/articles/develop/issue_12/Berdahl_final.html
OSXになってFinderを始め色々なアプリのApple Event Object Model
サポートはかなり後退した。今は少しずつ修復している過程

オブジェクト指向言語で構造化プログラミングしてる奴が多いな。
この考え方自体古いか。

おまいらせっかくshellscriptが使えるのに
なんでいまさらapplescriptなんだよ。

(´,_ゝ`)

>>653
m9(^Д^)9m ﾎﾟｯｷﾞｬ─────!!

do shell script が最強だということに何故気がつかないのだろう...

どういう釣りなんだか判りかねる

>>653
Shell ScriptでAdobeアプリやOfficeを制御してみてくれ。
Shell ScriptでCocoaアプリを作ってみてくれ。

Shell Scriptも使ってるがな。併用しないと辛いし。
ともすると、「全部それShell Scriptでいいじゃん」
みたいなのを書いてることもある。

>>653
爆笑した
いつのまにこんな良質の餌をかけるようになったのか
向こうでいい勉強してるなぁ

まぁ俺も>>653に同意。
OSXになってからバッチ処理はシェルスクリプトでやればいいし、
アップルスクリプトの出番が少なくなってるのも事実。
シェルスクリプトからでもアップルスクリプト呼びだせるしね。
例えば、
osascript -e 'tell application "Finder" to empty trash'
osascript -e 'tell application "Finder" to eject disk "DVD100GIRLS_02"'

とか。

>>660
そのイジェクトしたDVD100GIRLS_02くれ

>>661
いいよ。住所と名前教えたら着払いで送ってあげられるけど？

↑
皮先君　ｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!!!


のか？　もうあのスレ見るの止めたけど。

653 ：名称未設定 ：05/02/06 03:25:56 ID:2vVTYR/X
おまいらせっかくshellscriptが使えるのに
なんでいまさらapplescriptなんだよ。

660 ：名称未設定 ：05/02/06 08:26:13 ID:2vVTYR/X
まぁ俺も>>653に同意。
OSXになってからバッチ処理はシェルスクリプトでやればいいし、
アップルスクリプトの出番が少なくなってるのも事実。
シェルスクリプトからでもアップルスクリプト呼びだせるしね。
例えば、
osascript -e 'tell application "Finder" to empty trash'
osascript -e 'tell application "Finder" to eject disk "DVD100GIRLS_02"'

とか。

わかりやすい自演、乙。

おまいら>>653とか>>660とか叩いてるようだが、
正論だと思うぞ。
AppleScriptでしかできないことは確かにまだまだ多いが、
一方でShellScriptの方が向いてる分野も多々ある。

これからのOSXerの正しいあり方を指摘していると思われる。>>653

ID変えてまで自演乙。

これからのってんなら、Automatorで何をどこまで組み合わせられるか、じゃねーの？

おまいらせっかく(Perl|Ruby|Python)が使えるのに
なんでいまさらShell Scriptなんだよ。

と言い返しちゃうぞ。

(Perl|Ruby|Python)がShell Scriptを無用化するほど多機能で記述力が高いほか、
Shell Scriptにあるクオート、エスケープの問題が無いからね。
メタキャラクタやクオートがシェルで展開されることを考える必要が無い。
evalで多重展開するスクリプトを書いてみな。どこをどうエスケープしていい
か、わけわかんなくなるから。evalの中でメタキャラクタでも使おうもんなら、
もう何が何やら。

シェル変数のスコープの問題もある。この処理はカレントシェルで実行されて
いるのか、子亀か、孫亀か、孫亀からのResultの継承は、などということを考
えるうちに眠くなってくる。

だから、何でも自分でやっちゃう(Perl|Ruby|Python)みたいなインタプリタが
台頭するわけ。

AppleScriptにも、>>653を昨日感動させたパイプやバッククオートメカニズム
に匹敵する武器がある。それは、アプリケーション間通信。
AppleScriptの本質は、最初からそれ。

だから、言語仕様ががらんどう。
OS Xになって、AppleScriptが「使ってやる」対象にShell Scriptも入っただけ。
そう、AppleScriptはスクリプト界のプロデューサーなのだよ。
つまり、スクリプト界の つんく。すべては手駒に過ぎない。

傀儡使い

>>669
ところで
『>>653を昨日感動させた』の所は人違いと思われ。