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

【前スレ】
おもろい、めずらしいアップルスクリプト発表会
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のスクリプトに関してはこちら
「ご主人様ご命令を！」OS Xでスクリプトスレ
http://pc.2ch.net/test/read.cgi/mac/1010546884/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/

DialogDirectorとかの辞書集
http://homepage1.nifty.com/ton_b/AppleScript/Material/index.html

>>1
おつかれ！

【入門サイト】追加
AppleScriptタコ入門
ttp://www.macos.com/octopus/
AppleScriptユーザーグループ
ttp://www.freeml.com/ctrl/html/MessageListForm/[email protected]
へたスクリプト
ttp://www.freeml.com/ctrl/html/MessageListForm/[email protected]
osaxデータベース
ttp://www.osaxen.com/index.php


正直、２年後に次スレを立てることになるとは思わなんだ・・・。

書き込みがないね

ブラウザに表示された画像を全部いっぺんに指定したフォルダにつっこんで、
なおかつ強制的に名前を変えてナンバーリングして拡張子を付ける（ｗ
ってスクリプトはムリっすか？

モニターの輝度を時間帯ごとに予め設定しておいて、
起動した時刻に合わせて自動的に輝度を設定してくれる。。。
なんて虫のいいことは出来ますか？

>>6
できます。がんばってね。

ふと思ったんだけどできる？／できない？はOSや使用アプリを書いて
くれると判断しやすいかな？

>>6
.jpg、.gif拡張子を判別して抜き出す所が面倒かもね。

>>7
OS 9では色数は設定出来るんだけど輝度は出来ないっぽぃ
輝度はどちらかというとモニタ側のハードだからね。

調べたついでに色数は（OS 9)
monitor depth 現在
max monitor depth 最大
min monitor depth 最小
set monitor depth [数値] で色数の変更みたいですね。

tell application "Finder"
set X to every disk sort by name
set N to length of X
set M to 0
repeat N times
set M to M + 1
set Y to item M of X
set position of Y to {994, 720 - M * 34}
end repeat
end tell

上の Script の3行目に問題があります.
(X の中身が 1つしかないとき, error になってしまいます.)
これは, 仕様でしょうか ?

また, リスト内のアイテムの数を数える方法は,
' length ' 以外にもあるのでしょうか ?

どうか, 私めにアドバイスを...

>>10
最近書いて無いから＆時間がないからかなり適当だけど

repeat i to every disk sort by name
みたいな感じ（あってるかどうか、、汗）でリスト内のアイテム
をぐるぐるさせる事が出来たような気がするよ、

>>11
回答ありがとうございます.
さっそく, 試してみます.
結果は, またのちほどレポートします.

>>11
おかげさまで, 解決しました.

AppleScript リファレンス で, 調べてみると...
repeat with Y in X と言う形があって, とっても便利そう...
(Y には, X の要素を一つづつ順番に代入される. )
(さらに, 自動的に loop 脱出. <-- 無限 loop にならないところが, イカス.)

tell application "Finder"
　set N to 0
　set X to (every disk that ejectable = true) sort by name
　repeat with Y in X
　　set position of Y to {994, N * 51}
　　set N to N + 1
　end repeat
end tell

これで, Removal Disk(Disk Image も含む.) のアイコン並び替え Script 完成.

それだとボリューム（13ならリムーバブルディスク）が1つだけのときに
Xにlistじゃなくてdiskが入っちゃって悲惨なことになるみたいね・・
set X to X as list
ってのを入れてやるといいみたいです。

>>14
鋭い指摘, ありがとうございます.

>ボリュームが1つだけのときに
>Xにlistじゃなくて
あっ, なるほど...
確かに, repeat 以下で error になります.
これで, ' length ' が使えない理由も, わかったような気がします.

つまり, 対象が複数でない時は, list 形式にならないってことですね.
目から, うろこです.
もうちょっと, 考え直してみます.

>>14
>set X to X as list
なんと, 答えまで書いていただいていたのですね.
さっそく, 修正しました.
重ねて, お礼を申し上げます.

を、帰って来たら無事に解決していた。
as list　っすか、、ナイス指摘>>14

>>14
なるほど
スマートな方法ですね
ぼくなんかこんな風にやってましたよ

set X to (every disk that ejectable = true)
if (count X) > 0 then set X to X sort by name

Xの中身がリストのとき
それをさらにリストに変換してもエラーは起こらない、っていうわけですね
ありがとうございます
いままでに書いたスクリプトを見直してみます

>>16
お久しぶりです

iTunesスレ6あたりでどなたかが作ってたタグ編集用スクリプトが良かったので
お勉強がてら改造して遊んでたんですが、こんなんできました。どうでしょう？

iTunesにて、コンピレーション物のタグを
　曲：タイトル / アーティスト　　アーティスト：V.A.
　曲：タイトル　　　　　　　　　アーティスト：各アーティスト
これら相互に変換するためのスクリプトでし。

set oldDelim to AppleScript's text item delimiters

(display dialog "区切り文を入力して、アーティスト欄をどちらにするか選んでください" ﾂ
buttons {"キャンセル", "V.A.", "アーティストごと"} default button 1 default answer " / ") as list
set {AppleScript's text item delimiters, chooseButton} to result

tell application "iTunes"
activate
set trackList to selection in browser window 1
　repeat with i_track in trackList
　　if chooseButton = "V.A." then
　　　set name of i_track to name of i_track & AppleScript's text item delimiters & artist of i_track
　　　set artist of i_track to "V.A."
　　else
　　　set trackInfo to name of i_track
　　　set name of i_track to text item 1 of trackInfo
　　　set artist of i_track to text item 2 of trackInfo
　　end if
　end repeat
end tell

set AppleScript's text item delimiters to oldDelim

>>19
デリミッタを使う時はtry文でエラー処理した方が安心だよ。

iTunesは参考にさせていただきます。 thanx

>>18
また会えて, 嬉しいです.
AppleScript って, スマートな書き方ができる反面, 変なところで融通が効かない...
文句言っているよりも, 慣れることのほうが大切なのかもしれません.

iTunesといえば、起動時にSoundJamなら前回終了時に再生してたトラックの中断地点を
覚えてくれてるのに、iTunesだと何も選択されていない状態になっちゃって自力で思い出さなければ
ならないのが不満だったので、終了時に再生してたトラックを覚えておいてもらうスクリプトを
試しに作ってみますた。

iTunesが起動してる時は演奏中のトラックを記憶して終了、起動してない時は起動して前回
終了時のトラックを再生という感じにしたかったのですが、
「iTunesが起動してるかどうか」を調べる方法がよくわからなかったのでとりあえず
「set frontmost of process "iTunes" 〜」をtryしてみるという形にしてみたら
一応思ったように動いているみたい・・
もっとスマートな方法があるんじゃないかと思うけど

property NowTrack : ""
property NowVolume : ""

tell application "Finder"
try
set frontmost of process "iTunes" of application "Finder" to true
tell application "iTunes"
set NowTrack to current track
stop
quit
end tell
tell application "Sound Scripting"
set NowVolume to sound volume
end tell
on error
tell application "iTunes"
try
set volume NowVolume
end try
try
play NowTrack
end try
end tell
end try
end tell

>>22
>「iTunesが起動してるかどうか」を調べる方法がよくわからなかった
activateを使いましょう
このコマンドは便利ですよ
対象となるアプリが起動しているときはそれを前面にして
起動していないときはそれを起動してくれます

>>22
tell application "iTunes"

すいません。手許が狂ってしまって......。

tell application "iTunes"
activate
......
end tell

こんな感じになります。

>>21
旧板であなたを捜してたのは僕です。

tell application "Finder"
set Active_List to every process that visible is true
if Active_List contains {process "iTunes"} then
activate
display dialog "起動してる"
else
activate
display dialog "起動していない"
end if
end tell

tell application "Finder"
　set iTunesRunning to creator type of processes contains "hook"
end tell

>>25
察しがついていました.
こちらのほうは, 変な人物は出没しないようです.
雑談は, あまりできない感じなのが, ちょっと, つらいところですが...

さがりすぎ

tell application "Finder"
　set X to (every disk that ejectable = false) sort by name
　set Y to (every disk that ejectable = true) sort by name
　set X to X as list
　set Y to Y as list
　set N to 0
　　repeat with Z in X
　　　set position of Z to {994, 690 - N * 35}
　　　set N to N + 1
　　end repeat
　set N to 0
　　repeat with Z in Y
　　　set position of Z to {994, N * 51}
　　　set N to N + 1
　　end repeat
end tell

あいかわらず, Volume Icon 並び替えにこだわっています.
Removal Volume は, 上から...
Removal Volume でないものは, 下から並べ替える Script ですが,
もっと, スマートに書けるかもしれません.
ご意見, ご批判, いただけると嬉しく思います.

邪魔なようでしたら, 別スレッドを立てることも考えております.
こちらも, 合わせて先輩方のご意見をうかがいたく思います.

>>22
考えてみれば、activateしてしまうと
いままで起動していたのか否か判別がつかないですよね
>>26さん、>>27さんの方法がよいのではと思います
下手なアドバイスをして申し訳ありません

>>30
こうしたら、1行だけでも減らせるのではないでしょうか？

set {M, N} to {0, 0}
repeat with Z in X
　set position of Z to {994, 690 - N * 35}
　set M to M + 1
end repeat
repeat with Z in Y
　set position of Z to {994, N * 51}
　set N to N + 1
end repeat

変数をふたつに分けた上で、まとめてsetするわけですね

>>31
なるほど...
initialize をまとめてやってしまうわけですね.
さっそく, 修正しました. ありがとうございます.

>変数をふたつに分けた上で、まとめてsetするわけですね
ほかにも, 方法はあると思いますが, 取り合えずこんな形で...
(できれば, loop を一つだけにしたい...)
最近, 思うのは, Script にする前の考え方(flow chart に相当する部分) が, 大切で,
その部分しだいで, できあがる Script も変わってくるような気がします.

また, そこが面白いところですが...

tell application "Finder"
　set X to (every disk sort by name) as list
　set {M, N} to {0, 0}
　repeat with i in X
　　if ejectable of i then
　　　set position of i to {920, M * 51}
　　　set M to M + 1
　　else
　　　set position of i to {920, 690 - N * 35}
　　　set N to N + 1
　　end if
　end repeat
end tell

大差ないかな。。汗

>>33
さっそく, 試してみました.
(すぐ試せるのが, 面白く, 良いところ.)

面白い考え方ですね.
ただ... Event Log を見ると, ステップ数が多いような気が...
(どうか, 気を悪くしないでください.)

いやあ、今まで「履歴」って知りませんでしたw
こりゃ便利っすね。

たしかに自分のはいちいちejectable参照するから手間かかりますね。
これってやっぱよくないことなんですかね？単純に遅いってことかな？

ちなみに私、>>19でもおんなじことやってたりしますw

>>35
>こりゃ便利っすね。
ある程度の動作確認ができますね.

>これってやっぱよくないことなんですかね？
きちんと, 動作するから, よろしいのではないでしょうか ?
処理対象が多くなると, 動作時間が長くなるようですが...
( Volume アイコンの並び替え程度では, さほど問題にならないと思います.)

>>35
そうですね
演算の重複は、できる限り避けた方がスピードの向上につながるでしょう

>>34
そこでこんなのを考えてみました

tell application "Finder"
　set {L, X, Y} to {0,(every disk that ejectable = false), (every disk that ejectable = true)}
　set {W, M, N} to {(X as list) sort by name, 690, L * 35}
　my A(W, M, N)
　set {W, M, N} to {(Y as list) sort by name, L * 51, 0}
　my A(W, M, N)
　set N to 0
　repeat with Z in Y
　　set position of Z to {994, N * 51}
　　set N to N + 1
　end repeat
end tell

on A(W, M, N)
　tell application "Finder"
　　repeat with Z in Y
　　　set position of Z to {994, M - N}
　　　set L to L + 1
　　end repeat
　end tell
end A

「repeatを1回だけにしたい」とのことなので、サブルーチンを使ってみました
でも個人的には、この場合
repeatを2回にする方がすっきりしてるのではないかと思いますが......。

またやってしまいました
最初のtellハンドラにおける以下の文は不要です

set N to 0
repeat with Z in Y
　set position of Z to {994, N * 51}
　set N to N + 1
end repeat

わたしも、ループは分けたほうがいいと思います。
将来「volume以外のデスクトップアイテムも整列させたい」なんていう
追加仕様をいれたくなることは十分考えられるのですが、そのときに
ループは分けてあるほうが、書換が楽です。

ちゃんと検証してないけど、これでどうだ
スッキリさせることにこだわりました
サブルーチンは>37氏を参考にしました

tell application "Finder"
set move_disk to every disk that ejectable is false
set fix_disk to every disk that ejectable is true
my set_position(move_disk, 994, 690, 35)
my set_position(fix_disk, 994, 0, -51)
end tell

on set_position(the_item, X, Y, Z)
tell application "Finder"
set item_list to (the_item sort by name) as list
repeat with i from 1 to (count of item_list)
set position of item i of item_list to {X, Y - (i - 1) * Z}
end repeat
end tell
end set_position

またもやショック！
>>37のスクリプトはまともに動作しません
tellハンドラ2行目の変数Nと4行目の変数Mには、数値0が収められてしまうからです

>>39
禿胴

>>40
>count of item_list
これは、count item_listかnumbber of item_listかlength of item_listのことですよね？

問題は変数item_listの中身が、フィルター参照形式で得られたリストだっていうところにあります
フィルター参照形式に対してはitemの指定が無効になるのです
敢えてitemの指定を行いたい場合、repeatを使ってitemに値を収めてやらなくてはならないのです
そうするとスクリプトが長くなってしまいますよね......
う〜ん。やっぱりrepeatは2回に分けるのがベターでしょう

というわけで、書き直してみました

tell application "Finder"
　set {X, Y} to {every disk that ejectable /= true, every disk that ejectable = true}
　set {X, Y, M, N} to {(X as list) sort by name, (Y as list) sort by name, 0, 0}
　repeat with Z in X
　　set position of Z to {994, 690 - N * 35}
　　set M to M + 1
　end repeat
　repeat with Z in Y
　　set position of Z to {994, N * 51}
　　set N to N + 1
　end repeat
end tell

どうでしょ？
見た目にもシンプルで、エレガントではないかと思いますが......

>>37
>サブルーチンを使ってみました
まだ, サブルーチン call の方法をけんきゅうしてましぇ〜ん(;_;)

>repeatを2回にする方がすっきりしてるのではないかと思いますが......。
そのようですね.
おもしろいことに, リストの中身が {} (<-- null )の時には,
loop そのものがスキップされるように見えます.

>>39
>追加仕様をいれたくなることは十分考えられるのですが、
なるほど...
拡張性も大切ですよね.

>>42
まとめて set を追求したわけですね.
この案, いただき !!!
さっそく, しゅうせいしま〜す.

>>42
#42 の Script は, error が発生するようです.
原因は ' (X as list) sort by name ' の部分.
( ' sort by name ' が reference の filter コマンドであるためと思われます.)
んで, 結局, 次のようにせざるを得ませんでした.

tell application "Finder"
　set X to (every disk that ejectable/=true) sort by name
　set Y to (every disk that ejectable = true) sort by name
　set {X, Y, M, N} to {X as list, Y as list, 0, 0}
　　repeat with Z in X
　　　set position of Z to {994, 690 - M * 35}
　　　set M to M + 1
　　end repeat
　　repeat with Z in Y
　　　set position of Z to {994, N * 51}
　　　set N to N + 1
　　end repeat
end tell

>>44
これではどうでしょうか？

tell application "Finder"
　set {X, Y} to {(every disk that ejectable/=true), (every disk that ejectable = true)}
　set {X, Y, M, N} to {(X as list) sort by name, (Y as list) sort by name, 0, 0}
　repeat with Z in X
　　set position of Z to {994, 690 - M * 35}
　　set M to M + 1
　end repeat
　repeat with Z in Y
　　set position of Z to {994, N * 51}
　　set N to N + 1
　end repeat
end tell

目指せ！エレガント!!

僕のスクリプトは、環境に依存するものが多く
みなさんのお目にかけられるものは多くありませんが
その中でも、これは便利！って思うものを紹介させて頂きます
ドロップしたボリュームをSpeed Diskで最適化するっていうやつです

property A0 : {}
property A1 : {}

on open A2
with timeout of 8000000 seconds
try
set {A0, A1} to {{], {]}
tell application "Finder"
repeat with C0 in A2
if disk (name of C0) exists then
if (local volume of C0 = true) and (startup of C0 = false) then set A0 to Ao & C0
end if
end repeat
set D to count A0
if D = 0 then
beep of "
display dialog "Please drop only local and non-startuo volumes." with icon caution buttons {"OK"} default button 1
else
display dialog "May I only optimize these volumes, or also wipe free space?" buttons {"Cancel", "Wipe", "Optimize"} default button 3
set B to button returned of result
if B /= "Cancel" then
repeat with C1 in A0
set A1 to A1 & (position of C1)
end repeat
open application file "Speed Disk" of startup disk
tell application "Speed Disk"
repeat with D1 from 1 to D0
set C2 to item D1 of A0
if B = "Optimize" then
optimize C2 with verifying directories and verifying data without verifying media and wiping free apace
else
optimize C2 with verifying directories, verifying data wiping free apace without verifying media
end if
end repeat
quit
end tell
repeat with D2 from 1 to D0
set position of (item D2 of A0) to ((item (D2 + 2 - 2) of A1), (item (D2 + 2) of A1))
end repeat
beep
end if
end if
end tell
on error Err0 number Err1 partial result Err3 to Err4
beep of 2
set AppleScript's text item delimiters to ","
display dialog (Err0 & return & "Error Cord : " & Err1 & return & "Result List : " & (Err3 as string) & return & "Expected Type : " & (Err4 as string) & return & return & ((current date) as string)) with icon caution button {"OK"} default button 1
set AppleScript's text item delimiters to ""
end try
end tim out
end open

tell application "Finder"
open application file "Speed Disk" of startup disk
end tell

長くてすいません

使い方
単数/複数のボリュームをドロップすると、Speed Diskが最適化してくれます
ハードディスク・リムーバブルディスクを問いません
間違ってファイルやフォルダをドロップしても、ちゃんと識別します
ネットワーク上のボリュームや起動ディスクは
Speed Diskの仕様上、最適化できませんから、除外するように設定しています
また単なる最適化のほかにも、空き領域抹消のオプションが選べます

特徴
ボリュームを最適化すると、アイコンの位置が乱れることがありますね
でも、安心してください
元にあった位置を再現します！

欠点
ロックされたボリュームは、コマンドの制約により定義できません
エラートラップを設けているので実害はありませんが......
一方、MS-DOSフォーマットのボリュームに関しては
最適化の対象から自動的に除外することができません
全くお手上げです
くれぐれもドロップしないようにお願いします

付記
MacOS7.6.1上のSpeed Disk 3.5.2
ならびにMacOS8.6上のSpeed Disk 6.0にて動作確認済みです

>>45
問題があるのは,
set {X, Y, M, N} to {(X as list) sort by name, (Y as list) sort by name, 0, 0}
の部分なんですけどぉ〜...
ついでに...
reference の部分を2行に分けたのは,横に長くなるのを嫌ったためれふ.

>>45-46
大作ですね.
まさか, Speed Disk が Scriptable なんて,思っても見ませんでした.
でも,僕が使っているのは PlusMaximizer...
(PlusMaximizer と DiskWarrior を RAM Disk にコピーする Script を使ってまふ.)
(こうすると Anchor Free にできるのだにゃん.) <-- Startup Volume は,しかたない

>>45等の、(X as list) sort by name　は駄目（というか無意味）です。
sortのあとでlistにしてやらないと意味がなくなっちゃいます。
対象ディスクが１つだけのときに　(X sort by name) as listとくらべてみてください。

>>48
かさねがさね、申し訳ありません
またしてもタイプミスです

エラーの原因はシンタックスエラーではないか、と思います
{sort (X as list) by name, sort (Y as list) by name, 0, 0}
これで動くはずです
いえ、動いてください。お願いします

帰宅したら、Macを立ち上げて検証します

>>49
ご指摘の通りです

>>40を検証してみましたところ
ディスクのリストが空の時にエラーになる様ですね
修正

tell application "Finder"
set move_disk to every disk that ejectable is false
set fix_disk to every disk that ejectable is true
my set_position(move_disk, 994, 690, 35)
my set_position(fix_disk, 994, 0, -51)
end tell
on set_position(the_item, X, Y, Z)
tell application "Finder"
if the_item is not {} then
set item_list to (the_item sort by name) as list
repeat with i from 1 to (count of item_list)
set position of item i of item_list to {X, Y - (i - 1) * Z}
end repeat
end if
end tell
end set_position

>>41
御指摘の意味がいまいち分かりかねますが…
リストが空の場合以外ではエラーは出ないんですが、出ます？
こちらOS 9.1です
フィルタ参照形式でもitem数のカウントは出来ますよ

tell application "Finder"
set fix_disk to (every disk that ejectable is false) sort by name
count of fix_disk
end tell

結果ウィンドウを見て下さい

>>52
>御指摘の意味がいまいち分かりかねますが…
7.xと8.6では、フィルタ参照形式に対して任意の項目の項目を指定することができませんでした
つまり、item i of item_listのような書き方ができなかったのです
但し、count item i of item_listのように項目数を数えることは可能です
AppleScriptもバージョンが上がって使いやすくなっているみたいですね

>>39さんの仰有る通り、実用的なスクリプトにとって柔軟さは欠かせません
その点からすれば、>>42のスクリプトは確かに有用でしょう
しかし、前言を翻させて頂きます
エレガントさという点では、サブルーチンを使った>>52の方が勝っていると思います
いやあ、美しいですね。>>52のスクリプトは

WipeInfoにIEのキャッシュ消させようとしてたら
初期設定フォルダの中身ごっそり全部消されそうになりまちた。

はっはっは。

>>53
＞7.xと8.6では、フィルタ参照形式に対して
＞任意の項目の項目を指定することができませんでした

それは知りませんでした
正直、何をスッとぼけたことぬかしてんのかと思ってました
はじめてのMacがOS 9.04でしたので、どうかお許しを
初心者が出しゃばってスレ汚しｽﾏﾝです
おとなしくROMってます

「グラフ計算機」に入れると面白い数式ってありますか？

このスレの住人さんなら知っているかもと思いました・・

>>56
昔、おっぱいをシミュレートした数式をこの板で見た。気がする。

>>56
無視するのも気の毒なので,一応,お返事:
GraphicCalculator は,ずいぶん前に,ちょこっと遊んだ程度です.
という訳で,僕に限っては,どれだけのことができるのかさえも,おぼつかない次第.
ほかの誰かが答えてくれると,いいですね.

>>55
いえいえ。どうかお気になさらずに
僕の方こそ、連日連夜の睡眠不足のお陰でミスを連発し
挙げ句の果てに、コテハンまで間違えるていたらくでした
ROMに専念なんてことは言わずに
こんなスクリプトができたゾ、とか
そいつはおかしいんでないの、とか
いろいろ聞かせてくださいね

>>59
なんと,多重人格...
おったまげただぁー.

ところで, Global Variable って, 別々の Script 間でも有効なのでしょうか?
Type/Creator 変更 Script を作ろうとして,ゆきずまってまふ.
(いっそ,Droplet にでもしてやろうかしらん. <-- 実は,こちらも未研究.)

>>60
>Global Variable って, 別々の Script 間でも有効なのでしょうか?
グローバル変数を全く別のスクリプト同志で共有することは不可能のようです
プロパティもまた然り
異なるスクリプト間で変数をやり取りするには
スクリプトオブジェクトを定義しなければならないみたいですね
詳しくは、「AppleScriptリファレンス」P.111以下を参照してください

>Type/Creator 変更 Script を作ろうとして,ゆきずまってまふ.
>いっそ,Droplet にでもしてやろうかしらん
Type/Creatorの変更には、確かにDropletを使った方が手軽でしょう
Dropletを覚えると、スクリプトの幅が広がりますよ

元国境警備隊妨害員後方部隊より

OSA Menu入れたらメニューバーのファイルのあたりが
チカチカチカチカ明滅するようになってウザイ。

>>61
回答ありがとうございます.
Type/Creator をチェックする Script は,簡単でした.
ところが,その発展形として変更できるようにと考えると一筋縄では行かない.
(User Interface に当たる部分をどうするかってことにつきます.)

アイディアとしては...
1:チェック Script と,変更 Script の二つに分ける.
(こうするとデータの受渡が必要になる.)
2: 一つの Script で処理する.
(データの受渡は,問題ではなくなるかわり,UI の部分が,めんどくさい.)

Type/Creator 変更は CM Tools を使えば簡単なので,
わざわざ Script でやるまでもないのですが...

>>62
OSA Menu って,僕も試しては見ましたが,
一々MenuBar まで pointer を持っていかなければならないのが,欠点です.
CSM(Control Strip Module) で,同様な働きをするものを見つけましたが,
MacOS 9.1 の環境では,うまく働いてくれないようでした.

結局, FinderPop だのみの,今日このごろです.

>>63
最も単純なアルゴリズムはやはりアイディア2でしょう
つまりDropletにするわけです
UIとしては次のふたつが考えられます

(1)ダブルクリックでダイアログをふたつ表示し、それぞれタイプとクリエータを入力する
(2)ダブルクリックで既存ファイルを指定し、そのタイプとクリエータを得る

(1)の場合、ResEditやNorton Disk Doctorなどを使うか、あるいは別のスクリプトを用意する等の方法により
予めタイプとクリエータを調べておく必要があります
(2)の場合、指定したファイルからタイプとクリエータを直接得るので、(1)のような準備作業が不要です
従って、オススメは(2)ですね
あとはon open Variable〜end openのハンドラ内に
タイプとクリエータ変更のスクリプトを記述するわけです

追記
Dropletを作成する際、グローバル変数ではなくプロパティを用いるとよいでしょう
グローバル変数の場合、スクリプト実行後は代入した内容を保持しませんが
プロパティでは内容が保持されています
前回と同じ値を代入したい時、手間がひとつ省けます

というわけで、タイプとクリエータ変更のアルゴリズムを考えてみました

ダブルクリックの部分
(1)既存ファイルを指定し、そのタイプとクリエータを得る
(2)結果を表示する
ドロップの部分
(1)ドロップされた項目がファイルか否かを調べる
(2)ファイルが0個の場合はその旨を表示し、スクリプトを終了する
(3)スクリプトに保持されているファイルとクリエータの値がヌルの場合はその旨を表示し、スクリプトを終了する
(4)スクリプトに保持されているファイルとクリエータの値を表示し、確認を促す
(5)その値を変更する場合は、再びファイルを指定してタイプとクリエータを得る
(6)結果を表示し、確認を促す
(7)タイプとクリエータを変更する

どうでしょ？

>>56

Macで学術系ソフト&研究室のMac・2
http://pc.2ch.net/test/read.cgi/mac/1018789103/83
移植しておいたよ。
誰もいなさそうだけれど。
…
僕は数学苦手だから勘弁ヱｂんして…

>>64
(1) のデータ受渡のアイディアとして...
1: Clip Board を利用する
2:TexEdit Plus (<-- Scriptable !) を立ち上げて,そこに書き込む.

' 1 ' は,案外手ごろな方法かもしれません.
ただ,場合によっては,誤動作の恐れがありますが...
(それを防ぐための処理がどうしても必要になる...困ったもんだ !!!)

' 2 ' は,第二の Clip Board として僕がしばしば使う手です.
ただ,これは一般的とはいえないのが,難点です.

どちらにしても,練習問題ってところですね.
実用性からいうと,どうでも良いような...

>>65
勉強になりました.

>>66
(1),(2) の部分はすでに,完成しています.

で, Droplet の件ですが,
Script 本体を(Alias も含めて) Desktop 上に表示させなければならない点が欠点.
(FinderPop からというのは,すごく魅力的です.)
(ワンクリックで,ターゲットが select 状態になるので...)
でも,練習問題としては,面白いので,いろいろやってみます.

結果は後程レポートします.

>>67
どうして,ここを?
それは,ともかく,リンク先を拝見させてもらいました.
でも,あまり関係ないような...

Graphic Calculator は,3次元表示なので,
z=f(x,y) という形になるのね.
(なんと,偏微分までも扱える...)
だから,2変数関数関連の本を洗ってみるのがよろしいかと...

>誰もいなさそうだけれど。
ここが? それとも,リンク先が?

>勘弁ヱｂんして…
???

>>68
クリップボード経由のデータ受け渡し、って確かに誤動作が多そうですね
特に、G3とかG4を載せてるMacでは顕著なのでは？
あまりに処理が高速すぎ
データがクリップボードに収まらないうちに次ステップに移行したりして......
多分、delayコマンドを使えば何とかなるでしょうけど

>>69
デスクトップにエイリアスを置く習慣がない人にとって、Dropletは使いにくいかも？
僕なんかは、ポップアップウィンドウを4つほど並べて、それぞれエイリアスを配置してます

>>70
いずれも人がいませんねぇ(w

PS.僕は賢者なんかじゃありませんよ。でも、ありがとうございます

>>71
>データがクリップボードに収まらないうちに次ステップに移行したりして...
え? そんなことがあるのですか? w
Cripboard は,汎用的に使われるので,
別の無関係のデータが残っている可能性を心配したのですが...
どちらにしても,あらかじめ,データを加工して渡し,
受け取ってから decord(?) しなおすことになりそうなので,以外に面倒そう...

>ポップアップウィンドウを4つほど並べて、それぞれエイリアスを配置してます
僕も,以前は Popup Window をずらずらと並べてたりしてました.
最近では,同じように Alias 専用のフォルダーを用意して,
そのフォルダーの Alias を FinderPop Items の中に放り込むようにしています.
Sub-Menu から,するすると一発なので,やめられません.

>いずれも人がいませんねぇ(w
そのおかげで,多少の雑談をしていても,文句を言われないっと.
' AppleScript 道場 ' といった趣旨のスレッドを立てることを考えてもいたのですが,
とりあえずは,今のままでも問題なさそう...

>PS.僕は賢者なんかじゃありませんよ。
ご謙遜を...
僕は尊敬してますよ.
あそこで,うだうだやっている人よりは,貴重な情報をいただいています.
おっと,こんなことを書いているのを発見された日には...
(なぜか,こういうことには目ざとい人たちが多い...)

>>72
> >いずれも人がいませんねぇ(w
> そのおかげで,多少の雑談をしていても,文句を言われないっと.

雑談といってもApple Scriptに関係してるんで、
別にいいんじゃ無いかな。勉強になるし。
でも、

>PS.僕は賢者なんかじゃありませんよ。
>ご謙遜を... （以下省略）

こういう書き込みはうざい。
メールなりメッセンジャーなり旧板なりで、個人的にやってくれ。

うわ、書き込みをageで書いてしまった。
すいません。

--わたしが普段使っているやつです。1/2
property Ctype : "ttxt"
on run
set CT to my formalName()
if CT is not "" then
set Ctype to CT
end if
my setCreator()
end run

on open itemList
tell application "Finder"
set fname to (name of (path to current application))
set orgdelimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to {"."}
set Fnlist to text items of fname
set AppleScript's text item delimiters to orgdelimiters

set CT to my formalName()
if CT is not "" then
set Ctype to CT
else
my setCreator()
end if

repeat with aItem in itemList
if (aItem as text) does not end with ":" then
set creator type of aItem to Ctype
else
set creator type of (every file in aItem) to Ctype
end if
end repeat
end tell
end open

--つづき(2/2)
to setCreator()
set CT to ""
repeat until length of CT is 4
display dialog "Exchange creator type to..." default answer Ctype
copy text returned of the result to CT
end repeat
set Ctype to CT
set ca to (path to current application)
tell application "Finder" to set name of ca to ("Xcreator." & Ctype)
end setCreator


to formalName()
tell application "Finder"
set fname to (name of (path to current application))
set orgdelimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to {"."}
set Fnlist to text items of fname
set AppleScript's text item delimiters to orgdelimiters
end tell
if (number of Fnlist ｳ 2 and (length of item 2 of Fnlist) is 4) then
set rbuf to item 2 of Fnlist
else
set rbuf to ""
end if
return rbuf
end formalName

「どうやって指定するか」のところを、２重に作成しているので
ちょっと長くなりました。
実際に変えている部分は短いのに。

Finder上のアイテムがフォルダかどうかを判別するためには、
やっぱり、ends with ":" とかするしかないですか？
一応オブジェクト指向やのに泥臭くて抵抗ある…。

Finderでkind of itemを見る方法、
info for を使う方法
など、あるんですが、ends with ":" が、一番速いんです。

ふみゅふみゅ、そうでしたか。勉強になります。

>>73
申し訳ありません。以後、慎みます

>>75-78
スクリプトのコアは、確かにわずかな時間で書くことができますね
でもいろいろな場面を想定してオプションを付加していくと
どうしてもアルゴリズムが複雑になり、全体として長いスクリプトになってしまいます
そして幾多の労苦を厭わず練り上げたスクリプトが、実用品として完成した喜び
スクリプトの醍醐味は、その辺にあるのではと思っています
但し、他人にはなかなか伝わらないでしょうけど(w
ところで僕の場合
ドロップされた項目がフォルダか否かを調べるにはこんな風にやってます

if folder (aItem as text) exists then

folderのところをfileとかdiskに書き換えたら、fileもしくはdiskか否かを検査できます

>>73
申し訳ないです.
やっぱり,別スレッドを立てるべきでしょうか?
そのために,お伺いを立てたのですが...
以前,FileMaker のスレッドを立てて失敗した経験があるものですから...
(あまり,スレ立てには,積極的にはなれません. )

>>75-76
>set ca to (path to current application)
>tell application "Finder" to set name of ca to ("Xcreator." & Ctype)

↑ここがすごく気になったんですけど
要するに>>75氏はアプリの名前を全て変更して使ってるんですか？
このスクリプトには有効でしょうけど他に不都合ないですか？
ま、よけいなお世話ですけどね…

アプリに対してクリエータを問いかける方法が、名前変更しなくていいし
すっきりすると思いません？

tell application "Finder"
set Ctype to (creator type of (path to current application))
end tell

つまりですね。
どういうクリエイタにするかのインターフェースに自分の名前を
使っているんです。
"Xcreator.8BIM"だと、"8BIM"に変更するし
"Xcreator.ttxt"にリネームすれば"ttxt"に変更するというわけ。

逆に単独で実行させたときにはダイアログで変更先クリエイタを
問い合わせて、その結果を自分の名前に反映させる。というわけでした。

ほかに、「コメント」欄を使うという考え方もできると思います。

見た目で分かるように名前にクリエータの４文字を使うわけでっか
じゃあ
Adbe Photoshop → Xcreator.8BIM
Adbe Illustrator → Xcreator.ART5
PictureViewer → Xcreator.ogle
って感じになってんの？
う〜ん？？？
やっぱり直接アプリにクリエータを問い合わせる方がよくないすか？
クリエータって４つの文字列で見るよりアプリの名前の方が
視覚的にも分かりやすいんじゃないかなぁ
単独起動の場合の、ダイアログに入力する手間も省けるし

いや、余計なお世話だけどね
聞き流して下さい

>>85
いい意見を言っていると思うのに

>いや、余計なお世話だけどね
> 聞き流して下さい

　これがぶちこわしているよ。これがあるために、全体の論調がたんなる「ぼやき」に
なっちゃってる。もったいないぞ。

　

>>86
とおりすがりの者ですが...84の書き方がかなり自己完結的な
ふうに受け取れるので85はそのやりかたを否定しないように
なんとか提案したんだと思うよ。

テキストだけだと些細な事ですれ違うし、お互い他意は無いと
思うので丸く収まるように願う。珍しい良スレだし。

85>>
ダウンロードした画像のクリエータを変更したい時とかは>>84の方法の方が良いんじゃない？
変更したいクリエータなんて毎回決まってるだろうし。

>>75
copy text returned of the result to CT
と
set CT to text returned of the result
では何か違うんでしょうか？（処理速度、メモリ効率など）
普段下を使ってるので、利点があるのなら変えようかと思いまして。

>>81-82
こちらこそきつい言葉遣いになって、申し訳なかったです。
雑談といっても、有意義なやり取りがなされていると思っています。
ですが、ちょっと個人的すぎるやり取りのように感じたものですから。
出過ぎたレスだったと思います。すいません。

>>73
いえいえ,こちらこそ.

Type/Creator 変更 Script を自分なりに作ってみました.
Sub-Routin なども練習してみたのですが,error 出まくりで,あきらめました.
結局,ダイアログを2回出すという方法に逃げてしまいました.
力任せな感じで,美しさからは,ほど遠いものになってしまいました.
(おまけに,FinderPop からは,まともに動作してくれないようです.)
(やはり,Droplet がベストなのかも...)

property C : {}
property T : {}
tell application "Finder"
　display dialog "select the action: Load/Release" buttons {"Load", "Release"}
　if button returned of result = "Load" then
　　　set C to creator type of selection
　　　set T to file type of selection
　else
　　　display dialog C & " : Creator" & "
" & T & " : Creator" & "
　　　" buttons {"Both", "Type", "Creator"}
　　　set Sel to button returned of result
　　　if Sel = "Both" then
　　　　set creator type of selection to C
　　　　set file type of selection to T
　　　end if
　　　if Sel = "Type" then
　　　　set file type of selection to T
　　　end if
　　　if Sel = "Creator" then
　　　　set creator type of selection to C
　　　end if
　　end if
end tell

　ファイルメーカープロで、困ってます。
　どなたか、助けて下さい。
　ファイルメーカースクリプトで、メッセージ選択　や、スクリプト一時停止/続行
　が実行されると、returnか、enterまたはマウスクリックが無ければ先に
　進みません。
　これを解決するために、Apple Scriptで、returnか、enterを
　キーボードで、押したことにするという方法はないでしょうか？
　set dataでファイルメーカーにASCII character13を送ってみました
　がダメでした（下の全て、ダメでした）。
tell application "ファイルメーカー Pro"
set data window 1 to ASCII character 13
set data window 1 to return
set data field 1 of window 1 to ""
set data field 1 of window 1 to ASCII character 13
set data field 1 of window 1 to ASCII character 9
end tell


　マルチポストがルール違反なのは承知してますが、大変困ってます。
　何卒、何卒、御教示下さい。

>92
この手の操作でキャンセルがないのは非常につらいです。

>>93
直接の回答にならないけど、しかし、そもそも何のためにメッセージ
選択やスクリプト一時停止／続行を実行させているのだろう？
ユーザーにreturnか、enterかを実行させるためなのでは？

>95
　スクリプト一時停止/続行に関しては、タイムアウトが設定出来ますので、
　これを短く（1秒とかに）する事で回避出来ます。
　しかしながら、メッセージ選択に関しては、タイム設定がそもそも無いので
　デフォルトボタンを選択する場合でも、キーかマウス入力が必要になります。
　アップルスクリプトにこだわるのは、「IBM ViaVoice」を使って、スクリプト
　クライアント　から、音声ナビゲーションをファイルメーカーで実現するためです。
　ですから、enterかreturnの出力が是非とも必要になってるのです。

>>93
僕も FileMaker4.0 を持っています.
おもしろそうだとは思いましたが,質問の意味が,今ひとつ理解できません.
次の部分です.
できたら, おおまかな flow などが,わかると理解しやすいかもしれません.

>メッセージ選択や、スクリプト一時停止/続行が実行されると、
>returnか、enterまたはマウスクリックが無ければ先に進みません。


>>94
僕も下手をするとアプリをだめにしかねない危険性を感じています.
もうちょっと,改良してみます.

>97 ： ◆9999ZEL. 様
　処理の分岐にメッセージ選択をつかってます。

　メッセージ選択　1.処理Ａ　2.処理Ｂ　をスクリプトに入れていた場合、
　「メッセージを選択して下さい。」
　　　［処理Ｂ］［処理Ａ］<--デフォルト

　となって、リターンかエンターを入れなければ、処理Aが先に進まない　と
　いう意味です。勿論、押せば良いのですが、先に書いたようにVia Voiceを
　使って、音声で入力させたいのです。または、一定間隔でreturnやenterを
　出力させれば、事実上、タイムアウトを設定できると考えたのです。

>>98
とりあえず,同じような状況が再現できるかどうか試してみます.
Via Voice は使ったことがないので,あまり,お役に立てないかもしれませんが,
調べられるだけ調べて,気がついたことがあれば,レポートします.

ところで, FileMaker の Script とボタンは密接な関係にありますよね.
ボタンの代わりに,音声でコントロールしたいのだと考えて正しいのでしょうか?

>>93
>Apple Scriptで、returnか、enterを
>キーボードで、押したことにするという方法はないでしょうか？
AppleScriptでは任意のキーストロークをエミュレートすることはできません
いまお使いの環境にQuicKeysをプラスすれば可能になります
但し、QuicKeysに対してAppleScriptの条件分岐を認識させるのには
一工夫が必要でしょうけれど......

>>98
ちゃんと見てないで書いていますが、
そもそも処理を一時的に停止させるなら３つスクリプトを用意
した方が良いのでは？、、、

１、前処理
２、Ａ処理
３、Ｂ処理

とこんな感じ？　これで対応させるのが一般的じゃないですかね？

僕の中で自動処理はエラー以外で停止させないものだと考えて
ますし自分だったらたぶんこうするかなと、、。

>>92
ひとつ目のダイアログが若干使いにくいのではないでしょうか？
プロパティがヌルのときは、直ちにクリエータとファイルタイプを記録し
その結果を表示した方がいいでしょうし
またキャンセルボタンも用意しておいた方が何かと便利でしょう

property C : {}
property T : {}

tell application "Finder"
if C = {} and T = {} then
set (C, T) to (creator type of selection, file type of selection)
display dialog C & " : Creator" & return & T & " : Creator" buttons {"OK"} default button 1
else
set Act to display dialog C & " : Creator" & return & T & " : Creator" & return & return & "select the action: Cancel/Change/Continue" buttons {"Cancel", "Change", "Continue"} default button 3
if button returned of Act = "Change" then
set (C, T) to (creator type of selection, file type of selection)
else if button returned of Act = "Continue" then
set Sel to display dialog C & " : Creator" & return & T & " : Creator" buttons {"Both", "Type", "Creator"}
if button returned of Sel = "Both" then
set (creator type of selection, file type of selection) to (C, T)
else if button returned of Sel = "Type" then
set file type of selection to T
else
set creator type of selection to C
end if
end if
end if
end tell

>>98
OS 9 でデフォルトボタン押すだけなら「S穫di's Additions」という
OSAXが使えると思います。
activateした後に
TypeText "
"　　　--改行を入力
でリターンキーが押される筈です。
他にもQuickeys やprefebPlayer(だったっけ?)
CursorOSAXとかいうのも使えるかもしれません。

>>103
S穫di's Additionsについては知りませんでした
OSAXで処理できるなら、QuicKeysを使うよりはるかに簡単に済むかと思います
QuicKeysは分岐処理に対してあまり強くありませんから

>>98
' メッセージ選択 ' をやっているのは FileMaker の Script でしょうか?
4.0 では,そのような動作は, Field 操作のときに出るだけで,
Script では,用意されていないようでしたが...
AppleScript の動作のようにもみえますし...

それと,>>101 の人の意見に賛成です.

>103 S穫di's Additionsを入手しましたので、試してみます。
　　結果は追って御報告いたします。
>105 FMPスクリプトを定義する一覧画面の、下〜方にありました。
　　ボタンを選び、status(メッセージ)で分岐させます。

>>102
FinderPop用に書き直してみました

property C : {}
property T : {}

tell application "Finder"
set X to selection
if C = {} and T = {} then
set (C, T) to (creator type of X, file type of X)
display dialog C & " : Creator" & return & T & " : FileType" buttons {"OK"} default button 1
else
set Act to display dialog C & " : Creator" & return & T & " : FileType" & return & return & "select the action: Cancel/Change/Continue" buttons {"Cancel", "Change", "Continue"} default button 3
if button returned of Act = "Change" then
set (C, T) to (creator type of X, file type of X)
else if button returned of Act = "Continue" then
set Sel to display dialog C & " : Creator" & return & T & " : FileType" buttons {"Both", "Type", "Creator"}
if button returned of Sel = "Both" then
set (creator type of X, file type of X) to (C, T)
else if button returned of Sel = "Type" then
set file type of X to T
else
set creator type of X to C
end if
end if
end if
end tell

>103〜105様
　結果を御報告いたいします。
　御指導に従い、下記の方法を試した結果、
--TypeText (ascii character 3)　ViaVoiceが勝手に終了してしまう。
--TypeText "ここで改行"　ダメだった。フロントエンドプロセッサーに”ああ”と入ってしまう。
--TypeText return　ダメだった。
でした。
　そのあと、tell application "ファイルメーカー Pro"を止めて、
TypeText "|<-"　
　だけにしたら、ファイルメーカースクリプトのスクリプト一時停止/続行
　及び　メッセージ選択のデフォルトボタンが問題なく選択出来ました。
　viaVoiceの音声による制御も出来ました。

　たった半日で、問題解決できたのは、一重に皆様のご協力と、2CHの
　凄いところと感謝しております。
　これでまた、ファイルメーカーとapple scriptの新しい関係が、ViaVoice
　を交えて作れそうです。

　御指導、誠にありがとうございました。

>>107
creator type of X ,file type of X という表現が使えないようです.
(なぜか,必ずエラーになります.)

>>108
う〜ん,自己解決ですね.
お役に立てなくて,すみません.

>>108
おめでとうございます
なんの力にもなれなくて......

>>109
バグフィックス版をお送りします

property C : {}
property T : {}

tell application "Finder"
set X to selection as strings
if C = {} and T = {} then
set (C, T) to (creator type of file X, file type of file X)
display dialog C & " : Creator" & return & T & " : Creator" buttons {"OK"} default button 1
else
set Act to display dialog C & " : Creator" & return & T & " : FileType" & return & return & "select the action: Cancel/Change/Continue" buttons {"Cancel", "Change", "Continue"} default button 3
if button returned of Act = "Change" then
set (C, T) to (creator type of file X, file type of file X)
else if button returned of Act = "Continue" then
set Sel to display dialog C & " : Creator" & return & T & " : FileType" buttons {"Both", "Type", "Creator"}
if button returned of Sel = "Both" then
set (creator type of file X, file type of file X) to (C, T)
else if button returned of Sel = "Type" then
set file type of file X to T
else
set creator type of file X to C
end if
end if
end if
end tell

>>106
確かにありました.("show message") <-- 英語版なので...
失礼しました.

>>109
>バグフィックス版をお送りします
う〜ん,最後の状態が維持されたままで,更新されません.
(FinderPop を使わなくてもです.)
(このテーマは,区切りをつけてもよろしいのではないかと...)

ドロップレットでやるのがいいんでないかと
え〜まずダブルクリックで起動させて変更後のファイルタイプとクリエータの
モデルとなるサンプルファイルを選択します、で、ダイアログで確認しますが
この時フィールドに直接入力してもいいです
"OK" ボタンでこのファイルタイプとクリエータは保持されます
実際の変更はドロップレットとして行います
保持された値を変更したい時はまたダブルクリックします

property szType : ""
property szCreator : ""
on run
repeat
set theFile to choose file with prompt "サンプルファイルの選択"
tell application "Finder" to set {bufType, bufCreator} to {file type of theFile, creator type of theFile}
set dialogReply to display dialog ("以下のファイルタイプとクリエータを保存します" & return & "直接入力も可能です") default answer bufType & "," & bufCreator buttons {"reset", "OK"}
if button returned of dialogReply is "OK" then
set {szType, szCreator} to my text_to_list(text returned of dialogReply)
exit repeat
end if
end repeat
end run

on text_to_list(thisText)
set oldDelimin to AppleScript's text item delimiters
set AppleScript's text item delimiters to ","
set theList to every text item of thisText
set AppleScript's text item delimiters to oldDelimin
return theList
end text_to_list

on open itemList
tell application "Finder"
repeat with theFile in itemList
set {file type of theFile, creator type of theFile} to {szType, szCreator}
end repeat
end tell
end open

>>113
実は,僕もあいかわらず,しつこく作り込んだりしてます.(未完成)
Core の部分は,単純なので,まさに UI の練習問題というところですね.
同じテーマで作られた Script を見比べるのも,
作者ごとの個性が出ていて,面白いです.

うちではType/creator変更等の単純作業には CMScript を使ってます。
FinderPopほど高機能ではないけれど、コンテキストメニューから
AppleScript を実行出来るので大抵の事は出来るし、
スクリプトをOSAMenu と共用する事もできるので便利です。
うちの環境ではフォルダ内のファイル数が多いと上手く機能しない
場合も有りますが、そう言う時はOSAMenuを使ってます。
この不具合はOS X の仕様に合わせて改竄された Finder のせいではないかと
疑ってますが、まぁCMScript も新しいものではないので仕方ないかな。

Classic環境じゃない OS 9 を主に使っているなら試してみて下さい。
直接スクリプトと関係ない話で申し訳ないんですが
FinderPop や Droplet 以外にもこんなのも有ります ってことで...

>>114
ウザイから旧板に帰れ

>>114
帰る必要はないけど読点の使い方をなんとかしてくれ。切り過ぎだ。

句読点に「てん」「まる」を使わずに「カンマ」「ピリオド」を
使うﾔｼが結構いるけど、それ流行ってるの？それともｶｺｲｲと思ってやってるの？

なぜ全角な日本語に半角の句読点が出てくるのか理解できんのよ。
漏れが世間知らずなだけで、本当はカンマとビリオドが全盛だったりして・・・。

>>118
ああ、その話にふれちゃいけないよ
ウンチク始められると本気でめんどくさいから

あと、君の基準が正しい。

おお、このスレにもようやく夏が

if button returned of (display dialog "ここは" & return ﾂ
& "\"おもろい、めずらしいアップルスクリプト発表会\"です。" & return ﾂ
& "スレと関係ない話はご遠慮下さい。" buttons {"うるせぇ", "わかりますた"} ﾂ
default button 2) is "うるせぇ" then ﾂ
display dialog "おめでとう、あなたは夏厨と認定されますた。" buttons {"鬱氏"} ﾂ
default button 1 giving up after 10

>>115
面白い情報だと思いました.
さっそく, Sherloc を呼び出してサーチ.
運良くヒットしてダウンロード成功.
でも,うまく動作してくれないみたい. え〜ん.
(実は, ReadMe さえもよく読んでいません. )

>>121
試しにコピペしてみたら,きちんと動作するのにびっくり !!!
立派なジョークソフトだと思いましただぁ〜.

set mes to return & return & return & return & return & return & return & return & return & return & return & return & return & return
set {btn, timer} to {"OK", 3600}
dialog(mes, btn, timer)
if gave up of result is true then
set {mes, btn, timer} to {"ヽ( `Д´ )ノｳﾜｰﾝ 地図出ねーよ！", "ｶﾞｶｰﾘ", 4}
dialog(mes, btn, timer)
end if
on dialog(mes, btn, timer)
display dialog mes buttons btn default button 1 giving up after timer
end dialog

>>123
ナンセンスソフト大賞 !!!
ところで, time out 時間が長すぎません?
二番目のダイアログを見られる人は,多分いないと思います.

>>113
亀レスですいません

ドロップされたもののなかにフォルダやボリュームが混じっていた場合
エラーが起きてスクリプトが直ちに終了しますよね
するとドロップされたファイルの一部については
処理を施せない可能性が生じてしまいます
repeat with theFile in itemList
try
set {file type of theFile, creator type of theFile} to {szType, szCreator}
on error
end error
end repeat
こうすれば確実な動作をします

ダイアログの値をリストに分解するのは一箇所だけなので
ここではサブルーチンを使わなくてもよいのではないでしょうか？

ダブルクリック部でダイアログをリピートさせる手法には脱帽しました

すいません
end errorはend tryの間違いです

初心者な質問で場を汚してしまいそうですが...

OS 9.1のAppleScriptで上手く実行されていたAppleScriptを
OS 9.2.1以降のAppleScriptで実行させると、ファイルやフォルダ名に
日本語が含まれていた場合、うまく処理出来ないという不具合が
あったと思うのですが、これをコード側かOSAXなどで回避する
方法はありますか？

Akua Sweetsとかいうのを入れてあると良いということを聞いた事があります。

>127
　こんな方法、間違っていたらごめんして。
　当方も今まで動いていたフォルオダー関連のスクリプトが動かんごとなったけん、
　次の方法を、試したとばい。
　騙されたとおもって、試してみんね。

　方法
　1.システムフォルダーのスクリプティング機能追加の中に
　2.システム9.1からコピーしてきた標準機能追加を標準機能追加91とか
　　適当にリネームして突っ込んでみれ。これで標準機能追加が2つ。
　3.上級者に怒られるかも知れんけど、うちでは、8.6用ば突っ込んで
　　動いとっけん、教えとく。

　結果を教えて。

>>127
AppleScript 1.8.3 の変更点に
>>･ Allows scripts to work with files and folders whose names contain accented or other special characters.
という記述を見つけたので、ひょっとしたら直ってるかも。
誰か確認した人はいませんか？

おらとこさまだ1.6だで、試してねーだよ。ゆるしてくんろ。

みなさん、助言ありがとうございます。

>>128
ありがとうございます。探してみます。

>>129-130
やはりそれが手っ取り早いですね。
ただ、自分の作った、あるスクリプトが数人の方に需要があるのですが、
いちいちそれを説明するのがおっくうだったのでソース側で回避できれば、
と思ったのですが。
AppleScript1.8.3に関しても調べてみます。

>>130
AppleScript1.8.3って出てるんですか？
どこで落とせます？

てかAppleScript1.8.3ってOS X用アップデータなんですね。
Classic環境で実行させるスクリプトなんでちょっと使えないです。
助言をいただいたのに申し訳ない。

>>132
ここから落とせます
ttp://www.apple.co.jp/ftp-info/index.html

>>133
AppleScript 1.8.3 for Mac OS 9 - Release Notes
http://www.apple.com/applescript/macosx/release_notes/183OS9.html
には
>>It is available as an independent Software Update for Mac OS 9.1 and later, and requires CarbonLib version 1.4 or later.
と書いてあっただよ。

だども、英語版のみだっただ。すまぬ。

>>135
.comの方にはあったんですね、こちらの早とちりでした。
どうもすみませんでした。
英語版でも正しく日本語を処理出来れば良いのですが
（おそらく大丈夫かと思いますけど）。

とりあえずダウンロードして使ってみます。どうもありがとうございました。

事後報告です。

英語版AppleScript1.8.3をインストールしようとしたところ、英語版MacOS9.1以降を用意しろボケと
言われ、インストール出来ませんでした。

しかし、英語版OSでは出ているアップデータが何故日本では発表されないんでしょうね。

iTunesでstop of trackが取得できないんですがどうしてでしょう

>>137
TomeViewerでファイルを取りだして手動インストール。
今OS9.2.2（日本語版）に入れてみたけど、英語版だからとって
特にこれといった問題は感じないし、パスに日本語が混じってい
ても大丈夫っぽいね。まぁ、あれこれやって細かいところまでは
確認してはいないのでなんとも言えないけど、オイラんところ
では今のところは問題ないよーだよん。

>>138
finish of track

>140
finishだとユーザー変数扱いになっちゃうんですが…

遅レスすいません。

>>62
うち(MacOS 9.1) では、OSA Menuを 1.2.3 d7 に入れ替えると、
メニューの点滅問題は解消しました。
www.lazerware.com/FTP/OSA_Menu1.2.3d7.sit

>>63
OSA Menuだと、キーボードショートカットを各メニュー項目に
自由に割り当て出来るので、ある程度操作の利便性は確保できる
と思うのですが・・・

>>138
　あ、ほんとだ。動詞のstopを先に認識しちゃってますね。

tell application "iTunes"
set thetrack to track 1 of library playlist 1 of source 1
start of thetrack -- OK
stop of thetrack
end tell

ああ、なるほど…
ちょっと調べてきましたが、stopは再生／停止のstopとかぶってるから
使えないという仕様ミスのようで。
そこでiTunes3ではstopをfinishに変更して使えるようにしましたと、、
そしてiTunes3はOS Xオンリーと、、はあ。。

自分さえ良ければいいなら(w)、iTunesをResEditで開いて
aeteリソース/ID=0/iTunes Suite/Classesのtrack/Propetiesのstop
をfinishにリネームしてしまう
という手はあります。

>>144
ちゃんと用語説明みて書き込んだんですが
iTunes 3だけでしか使えないとは知りませんでした、ｽﾏｿ

>>144
しらべてみると
生データで書く方法が有効みたいです
ﾇclass pStpﾈ
これでやってみてください、構文確認で「stop」に直されますが
内部的には停止の「stop」と区別してるみたいです
検証はiTunes 2.04 & OS 9.1でやりました

>147
それ調べてるときにチラっと見かけたんだけどよくわからなくて挫折してました。
そのまんま書けばよかったんですね。うまくいきました。
thanks!

>145
やらなくて済みそうです(笑)

ああ。そうか、その手がありましたね。

日本語入力フロントエンドプロセッサーにATOK8を使用してます。
スクリプトで、ATOKが起動している時は、キーボードをUSに、
USの場合は、何もしないように判断させて、切り換える方法は有りますか？

>>150
KT7.1.2〜OS8.6のAppleScriptでは不可能ですが、QuicKeysを使えば実現できます
OS9以降についてはインストールしていないのでお答えできません

>>151
あんたここに常駐してるコテハンだよね
事実上質問スレと化してるスレでOS 9以降は分からないって…
AppleScriptも仕様変更されてるだろうから
混乱を招かない様にだまってた方がいいんじゃないの？
悪気はないんだろうけど

>>152
夏だからね

あえてiTunes Library Managerを自力で作ってみました。とっくに存在してるの知ってますが
ここで晒してダメ出ししてもらうのが目的なので気にしません。

-------------------------------------------------------------------------
tell application "Finder"
　activate
　set docFolder to alias "Macintosh HD:書類:iTunes:"
　set LibBox to (docFolder as string) & "iTunes 2 Library Files:"
　set currentLib to (docFolder as string) & "iTunes Music Library (2)" as alias
　
　if exists process "iTunes" then quit application "iTunes"
　
　if not (exists container LibBox) then
　　make folder at docFolder with properties {name:LibBox}
　　set comment of currentLib to "default"
　　return
　end if
　
　set LibBox to LibBox as alias
　set LibList to ((comment of currentLib) as list) & (list folder LibBox without invisibles)
　set newLib to choose from list LibList default items comment of currentLib
　if result = false then return
　
　if newLib as string /= comment of currentLib then
　　set name of currentLib to comment of currentLib
　　move currentLib to LibBox
　　
　　set newLib to (LibBox as string) & newLib as alias
　　move newLib to docFolder
　　set comment of newLib to name of newLib
　　set name of newLib to "iTunes Music Library (2)"
　end if
end tell

tell application "iTunes" to activate
-------------------------------------------------------------------------

特徴：
・duplicate with replacingを使うと上書きせずに元ファイルがゴミ箱に溜まってうざいので
　単純に複数ファイルをリネームしつつ入れ替えるだけにしました。
・素人が作ったので危険。

使い方：
・iTunes2、OS9専用です。
・ライブラリファイルのあるフォルダパスを手動で書き換えといてくださいw
・初めて実行するとライブラリファイルと同じフォルダにiTunes 2 Library Filesってフォルダができるので
　ここに入替用ライブラリファイルを“別の名前にして”入れておいてください。
・なおライブラリファイルのコメント欄を利用するため勝手に書き換えますw

わかっている問題：
・iTunesが起動している時はまず終了させるようにしたんですが、なぜか最前面にあるときは
　quit appが遅れをとって上手くいきません。ライブラリファイルが上書きされて酷い目にあうかも。

>>139
ありがとうございます。
TomeViewerで取り出すのも考えたんですが、不安定になるのが
怖くて躊躇していました。ご報告ありがとうございます、やってみます。

>>151
とりあえず、OS9.21で QuicKeys3.5.3 が動いてるし、QuicKeysXも有るよ。
QuicKeysからAppleScriptを使ったり、その逆も出来る。
AppleScriptに対応してないアプリもQuicKeysを通してAppleScriptから
制御出来るからこの組み合わせは最強だね。

>>150
の件でQuicKeysを使うのは条件判断が難しそうだけど、
なんの解決策もヒントになりそうな情報も書いてない
>>152-153
よりはましだから気にスンナ。

>>152
僕は,いいんじゃないかと思うけど...
自分で確認できる範囲で,答えるのは悪いことではないんじゃないかなぁ?
未確認の範囲をきちんと明言しているわけだし...
あなたが言うように,悪気がないのは明白ですよ!

>>157
あれ？なんか怒ってる？
いや、おれはこのスレは好きなのよ、参考にさせてもらってる
だからこそ古い環境でのアドバイスは控えた方がいいんでないかと
っていうか、あんたこのスレ読んでる？

>>155
とりあえず
>>わかっている問題：
に関してだけ
considering application responses
if exists process "iTunes" then tell application "iTunes" to quit
end considering
delay 2
上記のように
最前面にある時はtell app "iTunes" to quit の方が速いかもしれません。
ステップ毎の処理が必要で、時間の掛かる処理が間に入る場合は
レスポンスを考慮する構文ブロック内に遅れる処理を入れるか、
又は、次のステップに移る前にディレイを入れるか、又はその両方にすれば
上手く逝くかもしれません。
検証はしてません。ゴメン

>>159
すまん、怒ってる訳じゃないんだ。
>>153 みたいなレスを呼び込む事になるから
スレの趣旨と余り関係ない＞個人に意見するようなレスは
控えたほうがいんでないかと思っただけで。
それにOS8.6 とか使ってる人もまだ結構いるしね。

>>157-160
スレの空気を乱してしまい、申し訳ありません

>>150にはATOK8とあり、またIMではなくFEPとの表現でしたので
かなり古い環境をご使用ではないかと判断し
7.1.2〜8.6までのOS環境におけるスクリプト制御の可否についてお答えすれば充分かと考えた次第です

>>150の場合、QuicKeysにおけるアルゴリズムはごく単純です
メニューからUSを選択するショートカットを作成しておき
ATOKが動作しているか否かに関わらず、このショートカットを実行するだけで構いません
既にUSが選択されているときに再びUSを選択しても、実際には何ら変化はなく
それこそが期待していた動作だからです

>>161
いや、スレの空気を乱したのは俺だった。申し訳ない。
>>150の件は見事な推察で恐れ入りました。
なるほど、ATOK8なら古いシステムだろうし
Quickeys使うなら条件判断は最初から必要ないですね。

>>162
いえいえ。とんでもない
僕の方こそアドバイスの言葉が足りなくて......

AppleScriptとQuicKeys
両者の足りないところを補い合うようにして使えば
本当に快適な環境が実現しますね

>>142
おお、そんな隠しダマがあったんですね。
チカチカしなくなりました。ありがとう。

>160
残念ながらやっぱりあまり上手くいかないようです。
delayを延ばしたりしてみましたが空白の時間が増えるだけでした。
結局これを確実に避けるには、iTunesが起動していたら終了を促す
メッセージを出して一旦スクリプトを終了させるのが妥当なのかも。
…なんか悔しい。

>>165
とにかく終了を待ってからってのはどう

if exists process "iTunes" then tell application "iTunes" to quit
repeat while exists process "iTunes"
delay 1
end repeat

>166
固まりますた。

>>167
マジか！？いや、すまん
ほんとうに、すまん！わるかった

すまん、ﾜﾗﾀ

>>165 お役に立てなくて残念です。
知ってると思うけど・・・スクリプトエディタでログ(履歴)を
表示して実行すると止まる問題点が表示されて分かりやすいですよ。

まずは、問題点の切り分けの為に
tell application "Finder"
　activate 　
　if exists process "iTunes" then quit application "iTunes"
　if not (exists container LibBox) then
　　make folder at docFolder with properties {name:LibBox}
　　set comment of currentLib to "default"
　　return
　end if
end tell
最初の部分だけで正常動作するか？というのはどうですか。
上手く動いたら次のステップを追加してまた確認という感じで
修正していけばそのうち上手く行くでしょう。
まぁ、あきらめずに思いつく事をいろいろとやってみて下さい。
considering ブロックでtell app "Finder" ブロック全体をかこむとか
問題の箇所だけtell app "Finder" ブロックからはずすとか
問題のアプリが最前面にこないように他のプロセスをactivate するとか

どうしても上手くいかなければ、CarbonLib や
AppleScript 機能拡張をアップデートした方が良いのかも。

あの、電話番号一覧表を作っているのですが、なかなかうまくいきません。
どうすればいいのか教えてください

>>171
な、なんだ誤爆か！
とりあえずエクセル使っとけｺﾞﾙｧ。

>>171
(どうせ,冷やかしなんだろうけど...)
お使いのアプリを書いてね.
まさか, AppleScript で,やる おつもりではないでしょうね ?!!!
(でまかせを書いたけど,できるのだろうか...無理に違いない...)

>>173
シッシッ！

>168
いや、command+．で終了はできるんでそんなにダメージはなかったですけどね。

>165
いろいろ検証してみたところ、
1．iTunesがすでに起動していて、かつ最前面のとき
2．iTunesを終了させて、さらにFinderなどで処理を続行するスクリプトを
3．OSA Menuなどのスクリプトメニューから実行。
した場合にかぎってどうしても終了処理が遅れてしまうようです。
ちなみにiTunes以外のアプリでも同様のようでした。

ひょっとしたらスクリプトの記述でどうこうなる話ではないのかもしれません。
それになんだかあまりにも場面が限定的なのでどうでもいいような気もしてきました。
せっかく皆さんにいろいろ考えてもらったのに申し訳ないですが。
コンパイルしてアップルメニューなどから使う分には問題なさそうなので
そうやって使ってください・・つうかスクリプト自体の需要がないかw

後半は165ではなく>170でした。

2chを見るのにNetscape3.01Jを使っているので
"ttp://"で始まるURLを開く奴のNetscape版が
欲しいので皆さんのを参考にしながら色々やって
みましたが、選択した文字列を取り出せません。
今は以下の様な物で「選択+コマンドC+実行」と
しています。Netscapeにもselectという命令が
あるようですが出来ないのでしょうか？

tell application "Netscape Navigator 3.01 [ja]"
activate
set theUrl to get the clipboard
make new window
set bounds of front window to {0, 36, 640, 480}
OpenURL ("http://" & theUrl) to front window
end tell

>>177
丁度その話題は前スレあたりであったと思うので
探してみて。で、結論からいうとネスケは選択文字列の
取得は駄目なんですよ。

漏れは、RbでコマンドCのキーイベントを発生させて
コピーしてASでオープンして対処してます。

>>178
なるほど、選択文字は取得出来ないんですね…
ありがとうございました。
さっき AppleScript Lab を見ていて Menu Events
http://www.magma.ca/~awolsp/
というOsaxを見つけたので落として使ってみましたが

Select Menu Item menu title "編集" menu item text "コピー"

と書くと、ねすけがコピーしてくれる様になりました。
なんとか「選択+実行」で見れそうです。
次はGoogleと翻訳に挑戦してみます。
どうもありがとうございました。

>>179
お、面白いすね。自分もそれ入れてみました。thanx

電卓欲しかったので書いてみました。足し算しかできませんが…。
入力欄に直接『1+2+3』などとタイプして使うものです。
引き算もしたいのですがどうすればいいでしょう…助言おねがいします。

on run
calcMode()
end run

on calcMode()
display dialog "calc mode : 計算を入力して下さい。" default answer "" buttons {"キャンセル", "OK"} default button "OK" with icon note
set inputText to text returned of result as string

set lastDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to "+"
set listText to every text item of inputText --数字摘出
set AppleScript's text item delimiters to " + "
set equationText to listText as string --表示数式設定
set AppleScript's text item delimiters to lastDelim
set N to length of listText --項数

set calcAnswer to 0
repeat with M from 1 to N --計算ルーチン
set anserItem to text item M of listText
set calcAnswer to calcAnswer + anserItem
end repeat

display dialog equationText & " =" default answer calcAnswer buttons {"他の計算", "キャンセル", "コピー"} default button "コピー" with icon note
set nextStep to button returned of result
if nextStep is "他の計算" then calcMode()
if nextStep is "コピー" then set the clipboard to calcAnswer as string
end calcMode

>>181
set AppleScript's text item delimiters to " + "が
2回も出現する意味が理解できないのですが......
また、表示数式設定の部分は不要ではないでしょうか？
ふたつ目のダイアログでdefault answer inputTextとすれば充分だと思います
ふたつ目のダイアログに対する分岐処理は、ifハンドラをふたつ並べるのではなく
else ifを使ってひとつに纏めた方が
AppleScriptの内部におけるステップ数を減らすことが出来ますよ
>>181だと「他の計算」を選択した場合
「nextStep is "他の計算"」が真である旨の評価した後
更に「nextStep is "コピー"」が偽である旨の評価しなくてはなりません
else ifを使えば不要な処理を省けるというわけです

>引き算もしたいのですがどうすればいいでしょう
計算式を入力する際、「1-2+3」という普通の書き方ではなく
「+1,-2,+3」のようにコンマで区切れば減算も交えることが出来ます
但し、括弧付きの計算は処理不能ですけれども......

calcMode()

on calcMode()
set inputText to text returned of (display dialog "calc mode : 計算を入力して下さい。" default answer "" buttons {"キャンセル", "OK"} default button 2 with icon note)
set AppleScript's text item delimiters to ","
set listText to every text item of inputText
set AppleScript's text item delimiters to {}
set calcAnswer to 0
repeat with N from 1 to (count listText)
set calcAnswer to calcAnswer + (item N of listText)
end repeat
set nextStep to button returned of (display dialog inputText & "......" default answer calcAnswer buttons {"他の計算", "キャンセル", "コピー"} default button "コピー" with icon note)
if nextStep = "他の計算" then
calcMode()
else if nextStep = "コピー" then
set the clipboard to calcAnswer as string
end if
end calcMode

　初心者ですが、アップルスクリプトに付いて教えて下さい。
　システムはOS 9です。

キー　バッファーを初期化（クリアー）したいのですが、適当なosax
があれば、教えて下さい。

あと、repeat〜end repeat文は、回る回数に制限があるのか教えて下さい。

宜しくお願い致します。

>>181
tell application "スクリプト編集プログラム" to activate

此れ最強。

>>183
>repeat〜end repeat文は、回る回数に制限があるのか教えて下さい。
AppleScript リファレンスで調べてみました:
次のような statement が用意されています.

･repeat〜end repeat <-- 無限 loop
･repeat n times<-- n 回 loop する.
･repeat until ... <-- 条件 ... が false の間,loop (true になると loop 脱出)
･repeat while ... <-- 条件 ... が true の間,loop (false になると loop 脱出)
･repeat Cnt from A to B <-- ' Cnt ' が A から B まで increment されながら loop
･repeat with Y in X <-- list X から, 一つづつ item を Y に代入しながら loop

>>185
ないです。
ただし、カウンターに変数を使っているものは、その変数の上限の制限は受けます。

冗談みたいなもんなんだけど

display dialog "計算式を入力してね" default answer ""
set shikiStr to text returned of the result
run script shikiStr

187ではスクリプト編集プログラムの中でしか答が見られないですね...
最後の1行の代わりに..

set kotaeStr to run script shikiStr
display dialog kotaeStr

>>188
Great!!

display dialog (run script (text returned of (display dialog "計算式を入力してね" default answer "")))

DEBUGがたいへんだからっていう理由で、１行野郎はやめちゃったのです。
Script WizardとかScripterとか使っても、ラインブレイクなんだもん。

>185,186
　repeat の繰り返しに制限が無いことは解りました。
　ありがとうございます。
　　　・・・　何でとまるんだろう・・・（泣。

>>192
exit repeatでとまるよう
if文つこうてな

>192
晒してみさらせ

前回終了した変数（string）を、次回起動時も保持する方法はありますか？

具体的には、自分自身のスクリプトが延べ何回使用されたかが分かるように
したいのですが。

string（文字列）って書いてるけど、使用回数（integer）が分かればいいんだよね？
ようは起動の度にインクリメントしてけばいいんだよね？
propertyを使えば値を保存しとけるんで、こんなんでどう？

property aNum : 0
set aNum to aNum + 1
display dialog aNum

>196
　propertyで出来ました。ありがとうございました。

　持っている本　ダニーグッドマンのAppleScriptハンドブックの索引では
　propertyは別の事？で載ってました。他に良い参考書があれば、御教示
　下さい。

ていうか>>195,185は
>>1の【入門サイト】のトコ読んでるんでしょうか？
読んでないとなると後いくつの質問に答えなければならんのだろうか(鬱

--iTuns2のラヂオチューナで録音。URL Trackをselectして実行
try
set fnum to 0
tell application "iTunes" to ﾂ
set the_stream to item 1 of address of selection
if the_stream is "" then return
set pls to ((path to desktop folder) as text) & "strm.pls"
considering application responses
tell application "Finder" to ﾂ
if exists file pls then move file pls to trash
tell application "URL Access Scripting" to ﾂ
set convfile to download the_stream to ﾂ
file pls replacing yes with progress
tell application "Finder"
update desktop
set cnt to 3
repeat until exists convfile or cnt ｲ 0
set cnt to cnt - 1
delay 2
end repeat
end tell
end considering
if cnt ｲ 0 then error number 3205
set fnum to open for access convfile
set strm to read fnum using delimiter {return, "="} as text
close access fnum
set fnum to 0
if (item 3 of strm) is "0" then error number 4081
on error msg number num
tell me to activate
if fnum > 0 then
close access fnum
set num to 3205
end if
if num is -2753 then
set dmsg to "これは URL Track ではありません"
set dbtn to {"まちがえますた"}
else if (num is 3205) or ("URL Access" is in msg) then
set dmsg to "接続に失敗しました"
set dbtn to {"なけてきますた"}
else if num is 4081 then
set dmsg to "放送してません"
set dbtn to {"ざんねんですた"}
else
set dmsg to msg
set dbtn to {"OK"}
end if
display dialog dmsg & return & ﾂ
"終了します" buttons dbtn default button 1 ﾂ
with icon note giving up after 10
return
end try
tell application "iTunes" to convert convfile

>>199
早速、訂正　17行目
×repeat until exists convfile or cnt ｲ 0
○repeat until (exists convfile) or (cnt ｲ 0)
200げと(泣

構文チェックすると最後の
convfile　が不正って出るけど、俺だけか？

>>182
しばらくここをチェックしてなかった182です。
AppleScript's text item delimiters to 〜 を
数値の抽出と計算式の表示のためにつかってます。
元の計算式がみづらいので、数字と演算記号の間にスペースを
いれたかったので、２回目は+の両はじに半角スペースが
あります。

>>187-190
脱帽です。
それを参考にいろいろいじってみます。

>>202
なるほど

以前、キーボードスクリプトでATOK8を切る方法を尋ねた初心者です。
その後度々ご迷惑をお掛けしており、不勉強で申し訳なく思っております。
ご教示頂いたQuickeysは高価なので、以下のスクリプトで実現しようとしてますが、
時々上手くいきません。また、最後の1文を追加すると、もう駄目です。
原因は、スクリプトが実行を待たずに勝手に進んでいるためと思いますが、
repeat文でウェイトをかけても無駄のようです。スクリプト中のウェイトの
かけ方をご教示下さいますよう、お願いします。
以下スクリプト本体です。

--スクリプティング機能拡張フォルダーにCursor OSAX と、S穫di's Additionsが必要です。
property first_clic : {777, 10} --最初のクリックの座標（保持出来る様になってます。）デフォルト　777,10
property second_clic : {777, 60} --2番目にクリックする座標（保存出来る様になってます。）デフォルト　777,60
set init_pos to {HorizontalMouseLocation, VerticalMouseLocation} --このスクリプト終了時に復帰する座標を保持します。
set now_pos to {0, 0} --現在マウスがいる場所を記録するリスト
set first_clic to first_clic --前回終了時に設定されていた1番目のクリック場所をｾｯﾄ
set second_clic to second_clic --上に同じく、2番目のクリック場所をｾｯﾄ
set x to 0
set y to 0
if (OptionIsDown) then --if Option Key is Down then init Position
--　オプションキーで、first_clic と、second_clicの場所を初期化します。
repeat --number is not change then exit
set x to item 1 of first_clic
display dialog "Step 1:1st Mouse X Position is:same is set end" default answer x buttons {"SET"} default button 1

set x to (text returned of result) --as number -- as list
set x to x as number

if x is not equal to item 1 of first_clic then
set item 1 of first_clic to x
else
exit repeat --値に変更が無ければ、次の設定項目（ｙ）

end if
beep
MoveMouse first_clic --確認のため、設定位置へ移動します。
repeat 100 times
repeat 5000 times
end repeat
end repeat
end repeat
--　2へ続く

--その2
--1st clic y position set
set y to item 2 of first_clic

repeat --number is not change then exit
set y to item 2 of first_clic
display dialog "Step 2:1st Mouse Y Position is:same is set end" default answer y buttons {"SET"} default button 1

set y to (text returned of result)
set y to y as number

if y is not equal to item 2 of first_clic then
set item 2 of first_clic to y
else
exit repeat

end if
beep
MoveMouse first_clic
repeat 100 times
repeat 5000 times
end repeat
end repeat
--if select_button is "OK" then exit repeat
end repeat


repeat --number is not change then exit
set x to item 1 of second_clic
display dialog "Step 3:2nd Mouse X Position is:same is set end" default answer x buttons {"SET"} default button 1

set x to (text returned of result) --as number -- as list
set x to x as number

if x is not equal to item 1 of second_clic then
set item 1 of second_clic to x
else
exit repeat
end if
beep
MoveMouse second_clic
repeat 100 times
repeat 5000 times
end repeat
end repeat
--if select_button is "OK" then exit repeat
end repeat

--その3
--2nd clic y position set
set y to item 2 of second_clic
repeat --number is not change then exit
set y to item 2 of second_clic
display dialog "Step 4:2nd Mouse Y Position is:same is set end" default answer y buttons {"SET"} default button 1

set y to (text returned of result) --as number -- as list
set y to y as number

if y is not equal to item 2 of second_clic then
set item 2 of second_clic to y
else
exit repeat

end if
beep
MoveMouse second_clic
repeat 100 times
repeat 5000 times
end repeat
end repeat
--if select_button is "OK" then exit repeat
end repeat
end if

--main
MoveMouse first_clic
PressButton

repeat 100 times --ここでプルダウンメニューが表示されるまで、待ちたいのですが、repeat文ではダメのよう。
repeat 5000 times
end repeat
end repeat

MoveMouse second_clic
repeat 50 times
repeat 5000 times
end repeat
end repeat

PressButton
repeat 300 times
repeat 5000 times
end repeat
end repeat
beep
--MoveMouse init_pos　--この1文で動かない

--何卒宜しくお願い致します。

>>204
delayじゃだめなの？

彼はバージョンがふるいのではなかったか？

>207
delayも--iTuns2のラヂオチューナ　・・・で見て、試して見ました。
どうも、スクリプトが終了した後に、キーボードバッファー？から、
遅れて出力されて切り替わるようです。動作を見てますと、このスクリプト
がrepeat文やdelayを使っても、CPUを占有して放さない様に思え、終了後に
tyeptext文やpressbutton文が実行されている様に思えます。考え方が間違って
いるかもしれません。希望としては、typetextの直後に、画面に反映して欲しいと
思ってます。
>208
OSは9.2.2と8.6を交互に使用してます。AppleScriptは1.6、PowerMac7300/166を使ってます。
前回のレスでバージョンを明記しなかった事をお詫び致します。

(*
MenuEventsを使っても出来そうな気がするが
どうでしょ？＞MenuEvents使ってるひと

OS8.6で使えるかはわからないけど、そこまでしてやりたいなら・・・

純正のキーボード追加OSAXとHyperCardを使います
まずHyperCardで新たなスタック"ScriptChenge"を作成し
そこにUSfontに設定した入力可能なカードフィールド"US"を作成
さらにカードボタン "USscript"を作成し
on mouseUp
click at loc of cd fld "US"
end mouseUp
この様なスクリプトを設定
下のAppleScriptを実行

HyperCardから直接AppleScriptでやってもいいし
日本語への切替も同様の方法で出来るでしょう
*)

set font and keyboard script synchronization to true
tell application "Finder" to open alias "HD:ScriptChenge"
tell application "HyperCard"
tell card button "USscript" to mouseUp
set font and keyboard script synchronization to false
quit
end tell

(*
HyperCard はAppleScriptではやりにくい事も簡単に出来るし
AppleScriptのインターフェイスとしてもDialogDirectorなどより
簡単に使えるので、いろいろ試してみて下さい。
*)

(*
>>209
CursorOSAXもカーソル位置取得以外の
Mouse操作なんかには実際はあんまり使えない気がする
AppleScriptは基本的にイベントドリブンなので
リアルタイムな感じの処理には向かないみたいです

たぶんダメだと思うけど
*)
MultiTask
repeat until (MouseDown) = true
MoveMouse first_clic
PressButton
end repeat
delay 2
repeat until (MouseDown) = true
MoveMouse second_clic
PressButton
end repeat
(*
などとしてみたらどうでしょう？
delayの他にSleep Commands などのOSAXも有りますた
*)

>>210
×Chenge
○Change


ｳﾄｩ.....逝ってきます

OSXで、常駐して
再前面のウインドウを強制的にカラムにするってやつ
出来ないですか？

最前面ですた。
つまりカラムにしまくってくれるってことす。

>>213
「ご主人様ご命令を！」OS Xでスクリプトスレ
http://pc.2ch.net/test/read.cgi/mac/1010546884/l50

選択して実行すると対象を片っ端からロックする、というのを習作として作ったんですが、
これ自体はうまく動作しているのですが、これをドロップレットにしようとして悩んでます。
ドロップレットではselectionが使えないためref folders of selection以下の再帰的な参照渡しができません。
速度を追求してこの形になったのでできればrepeatで１つ１つ処理するようなことは
避けたいのですが、上手い方法ないでしょうか？

set theLock to true
tell application "Finder"
activate
set locked of files of selection to theLock
set folderList to a reference to folders of selection
repeat while contents of folderList /= {}
set locked of files of folderList to theLock
set folderList to (a reference to folders of folderList)
end repeat
beep
end tell

自己解決しちゃいました。第一階層だけ個別にしてやるだけでよかったでした。
スレ汚しごめん。

repeat with theItem in fileList
if last character of (theItem as string) = ":" then
repeat while contents of theItem /= {}
set locked of files of theItem to theLock
set theItem to (a reference to folders of theItem)
end repeat
else
set locked of theItem to theLock
end if
end repeat

>>213
--実行後、自動的に終了しない　アプレットで

property last_container : ""
on idle
tell application "Finder"
try
set front_container to ﾂ
(container of (front container window)) as alias
on error
set front_container to (path to desktop folder) as alias
end try
end tell
if last_container is not front_container then
tell application "Coela"
activate
open front_container
end tell
set last_container to front_container
end if
return 1
end idle

>>216
--選択して実行、またはドロップ
lock_it()

on open selected_items
tell application "Finder" to select selected_items
lock_it()
end open

on lock_it()
tell application "Finder"
activate
ignoring application responses
set locked of selection to true
end ignoring
end tell
beep 2
end lock_it

>>216-217
もう解決したみたいだけど
ドロップレットの場合はスクリプト内でselectionに変換すればいいんじゃないか？

on run
main()
end run

on open drop_items
tell application "Finder" to set selection to drop_items
main()
end open

on main()
--実行ルーチン
end main

>>219,220
おお。
select 〜
set selection to 〜
どちらもOKでした。selectすっかり忘れてました…
2人ともありがと。

関係ないけど、selection使うと、処理中にボリュームアイコンとか
クリックしちゃうととても悲惨なことになりますな。。

>>216,219,220
ん？　というか、ドロップレットでもFinderからselectionを
フツーにゲットできますが？

on open
tell application "Finder"
set drop_items to selection

end open

ちなみに、こうするとエイリアスをドロップするとオリジナルのパスを
取得してしまう問題を回避できます。

初心者な質問で恐縮ですが、OS9のスクリプト編集プログラムで
OS9で使う為に書いたスクリプトを「OSＸアプリケーション」で
コンパイルしたら、OSＸでもフツーに使えてしまうんでしょうか？
わざわざ、「OSＸアプリケーション」という選択肢が用意されて
いるから出来るのかなぁと淡い期待を持っているのですが。
よろしくお願いします。(OSＸは持っていないので試せません)

保全ハゲ

ﾖｲｼｮ

>>223
検証してないっすけど、OS 9アプリ間でのスクリプトを
クラシック環境で使うのは平気でしたよ。

あまりUIがないし普通に実行出来るんじゃないっすかね？

AppleScript1.8.3だと、なぜかアプリ保存の選択肢は"Application"一つしかないす。
OS ×と９に分かれてるのは1.7まですか？

×と９じゃAppleScriptのバージョンが違ったりする事も有るから
×用アプリとして保存しても実際動作するかはビミョ〜と思ってたっす。

>>226,227
そうですか、期待薄ってトコですかね。最新版だと選択肢が
ないって事は尚更ですね。

>>223
一応、使えますよ。
選択肢がないのは全部OSX用アプリとして
コンパイルされるからなんじゃないのかな。
ただ、OS9とOSXじゃ書き方で動いたり動かなかったりなんで
OSX用はOSXで実証してみないとだめなんじゃないかな。

蛇足。
OS X用をOS 9で動かすとメモリ余計に食うみたいだから、
足りないって言われたら情報ウインドウで増やすといいよ。

クリエーターを変えるスクリプトを作ってみたのですが、
下から三行目でエラーとなってしまいます。どこが逝けないのか
皆目見当がつきません。ご指摘お願いします。


property crt : ""

set it1 to choose file
tell application "Finder"
set knd to kind of it1
end tell
if knd is "アプリケーション" then
display dialog "このアプリのクリエータを登録します。" & return & crt as string buttons {"キャンセル", "OK"} default button 2
set crt to file creator of (info for it1)
tell application "Finder"
set name of (path to me) to crt
end tell
else
set it1 to it1 as string
tell application "Finder"
set (file creator of file it1) to crt
end tell
end if

>>231
×file creator
○creator type

>>232
書き直してみましたが、やはりエラーになります。
OS9.1J、スクリプト編集プログラムJ1-1.6です

>>232
もう一回やり直したら、上手くいきました。ありがとう。

>>234
Finder の用語説明が見にくいのなら
>>2 のサイトにある用語辞書シリーズを激しくおすすめ

>>235
Finderと実行アプリでクリエータを呼び出すレコード名が違ったので
ちと混乱してしまったのでした。

捕手

キープ

OSA Menuについて日本語で詳しく載ってるところ知りませんか？
どうも Preferences の設定とかわからないッス…。

Use Simple Menusにチェック入れとけば万事OK

>>239
「Script factory」
http://www.MacOS.com/scriptfactory/

コンテンツ「Monologueの」あたりにOSA Menuの話があるので
一応読んでおくと良いと思ふ。

>240
それやると Preferences を変えたい時にいちいち初期設定
捨てて再起動しなきゃならんのよね…。

>241
ありがとう。
でも、そこを読んでも動くスクリプトと動かないスクリプトが出来てしまう…。
やはり全部 Finder からアプリケーションとして動かすしかないのか…。

option + About OSA Menu...

sage

ｷﾎﾞﾝﾇscriptﾈ

どなたかよろしく
ランダムに並んだ数字のリストを {2,5,4,1,3}
順番どおりに並べるのって {1.2.3.4.5}
どうすればいいんでしょうか？

>>246
高速なソートの仕方って自分も知りたいんだけど、AppleScriptでは無理っぽい

>>246
有料か要登録のOSAXしか見つからないねぇ。
...ダミーでファイル作ってソートさせるか？！

>>247-248
ありが?ｫ
何か専用のコマンドが用意されてて
簡単にソートするというわけにはいかないんですね
じゃあリストからひとつひとつ取り出しつつ
比較して並べ直すというスクリプトを組めと…(;´Д`)

リストはせいぜい数百個程度なのでそれほど高速化にはこだわらなくてもいいので
なんとか作ってみます、ありがとうございました

>246,247,248
GTQ Programming Suite(1993-1998)
にそのまんまSortというOSAXがある。テキストも数もsortできる模様。
Case SensitiveなsortもOKのようだ。
osaxen.com/gtq_scripting_library.html
に今でもある。9でも動くぞ。

2

ぐは。
まちがった。Chimera挙動不審......

一晩かけてソートルーチン作ってみましたが…

on sort_list(thelist)
set outList to {}
repeat until thelist is {}
set minItem to 1st item of thelist
repeat with i from 1 to (length of thelist)
if minItem is not less than (item i of thelist) then
set minItem to (item i of thelist)
set minItemNum to i
end if
end repeat
set end of outList to minItem
set thelist to my remove_list(minItemNum, thelist)
end repeat
return outList
end sort_list

on remove_list(n, thelist)
if n is 1 then
set thelist to rest of thelist
else if n is (length of thelist) then
set thelist to rest of (reverse of thelist)
else
set thelist to items 1 thru (n - 1) of thelist & items (n + 1) thru (length of thelist) of thelist
end if
return thelist
end remove_list

処理速度が問題で、以下のようなスクリプトで
数字のリストを作ってベンチマークしてみたところ
100個のリストだと２秒程でできるんですが200個にすると10秒
300個で30秒、500個ではハングしたのかというくらい加速度的にかかる時間が増えていく
ここはこうしたら高速になるよというのがあればよろしこ

on run
set thelist to {}
repeat 100 times
set end of thelist to random number 1000
end repeat
sort_list(thelist)
end run

>>250
うん、すなおにOSAX使った方がよさそうですね

>254はOS9.1で試した結果なんですが
いまOS X(10.2)で試してみたら全然速い！
300個で10秒ぐらい
すばらしい

>>253
プログラムを見る限り、選択ソートを使ってるようですね。
動作を速くしたいというなら、クイックソートを使ってみては？
ただ不安定になってしまうけど。

ソートはアルゴリズムの典型的な勉強例になるよなあ。

on CombSort(aList, ascending)
set nData to length of aList
set gap to nData
repeat
set gap to (gap * 10) div 13
if (gap = 0) then
set gap to 1
else if (gap = 9) or (gap = 10) then
set gap to 11
end if
if ascending then
set idx0 to 0
set idx1 to idx0 + gap
else
set idx1 to 0
set idx0 to idx1 + gap
end if
set nLoop to nData - gap
set exchanged to false

repeat nLoop times
set idx0 to idx0 + 1
set idx1 to idx1 + 1
set tmp0 to item idx0 of aList
set tmp1 to item idx1 of aList
if (tmp0 > tmp1) then
set item idx0 of aList to tmp1
set item idx1 of aList to tmp0
set exchanged to true
end if
end repeat
if (not exchanged) and (gap = 1) then return
end repeat
end CombSort

on run
set thelist to {}
repeat 300 times
set end of thelist to random number 1000
end repeat
CombSort(thelist, true)
thelist
end run

サイズもバラバラで沢山有るCDシングルからのAIFFファイルを
１枚のＣＤ−Ｒの限界サイズできっちり収めたい
サイズもバラバラで沢山有る文書を
フロッピーの限界サイズできっちり収めたい
と言う場合には
アップルスクリプトではどうしたら良いんでしょうか？
アルゴリズムだけでもいいのでよろしくおながいします。

>>256
そのクイックソートとやらで作ってみました
速いです、感動です、ありがとう
>258-259氏のスクリプトは私の>253のものより三倍ぐらい速いですが
これはもっと速いです、500項目でも1秒、1000個でも10秒かかりません

on QuickSort(thelist)
set listCount to (length of thelist)
if listCount is 1 or listCount is 0 then return thelist
set pivotItem to some item of thelist
set lessList to {}
set greatList to {}
set equalList to {}
repeat with i from 1 to listCount
set szItem to (item i of thelist)
if pivotItem is greater than szItem then
set end of lessList to szItem
else if pivotItem is less than szItem then
set end of greatList to szItem
else
set end of equalList to szItem
end if
end repeat
return QuickSort(lessList) & equalList & QuickSort(greatList)
end QuickSort

>>261
お疲れさまですた。
ところでスクリプトを見て思ったけど4行目set pivotItem to some item of thelist
じゃなくてset pivotItem to 1st item of thelistというように決め打ちしてしまい、
7行目set equalList to {pivotItem}
8行目repeat with i from 2 to listCount
とした方がrepeatを一回減らせるんで多少速くなるかも。
でも実際やってみたらほとんど変わらんかった。

>>262
確かにそうすると少し速くなるはずですね
この方法は比較する基準の値に何が選ばれるかという「運」で
速度が変化するので分かりにくいですが
速くなると思います
AppleScriptで大きなリストの扱いによる速度の低下は
「大きなリストからアイテムを取り出す時」に起こるそうです
ですから計算の数は増えてもいいので
リストをうまく分割することに重点を置けばもっと速くなるかも

終わらせないぞ。
自動化君ここ来ないかな。

リストハッシュをサポートしてくれれば解決しそうだなぁ。

あげます。

すみません。音量の調整をするにはどうかけばよいのでしょうか
音がうるさいソフトがあり、使う時には音をミュートしているのですが
めんどうなのでスクリプト化してアイコン一発で使えるようにしたい
と考えています

ためしに、これでは駄目でした
なんでだろう？

tell application "おえかきv1.3(OSX)"
set volume 0
activate
end tell
set volume 1

>>268

tell application "Finder"
set volume 0
end tell

>>270

ありがとうございました。
音は確かに消えました。
でも、ソフトが終了すると音量の復元をさせようとすると
うまくできません。
下記の内容では音量の再現がソフト開始前に実行されてしまいます

tell application "Finder"
set volume 0
end tell

tell application "おえかきv1.3(OSX)"
activate
end tell

tell application "Finder"
set volume 7
end tell

>>271
スクリプトがソフトの起動終了を監視しているわけではないので。
1段目のスクリプトは音量を7にするだけのスクリプト、
2段目のスクリプトは単におえかきが「立ち上がるだけ」のスクリプト、
3段目のスクリプトは音量を7にするだけのスクリプトなのです。

>>271
＞でも、ソフトが終了すると音量の復元をさせようとすると
＞うまくできません。

同時には無理だよ...
ソフトを終了させた後に、別で作った音を戻すスクリプトを
起動しないとね。漏れはOSX使って無いんで分らないんだが
スクリプトメニューみたいのついてるんだっけ？
終了＆音量復帰っていうスクリプトを通常の終了の代わりに
使えばいいんじゃない？

>>271

訂正
スクリプトがソフトの起動終了を監視しているわけではないので。
1段目のスクリプトは音量を0にするだけのスクリプト、
2段目のスクリプトは単におえかきが「立ち上がるだけ」のスクリプト、
3段目のスクリプトは音量を7にするだけのスクリプトなのです。

>>268
どのハード使ってるの？
キーボードに音量調節が無いやつ？

ああ、いろいろ教えてくだすってありがとうございます
でも簡単にはいかないようですね
２段目と３段目の間に wait するような命令が入ればよいのですが
見つかりませんね。過去ログみてますが repeat するしかないようですね
でも repeat するとＣＰＵのパワー無駄にしないか心配です

>終了＆音量復帰っていうスクリプト

これは別ファイルにするってことでしょうか
うーん、別にしても同じ結果にならないかなー

>>275

いま使用しているのは　iBook です。OS10.2
キーボードには調整があります。
しかし、使うのが親なのでできるならアイコン一発で
わずらわしいことはさせたくないなー、なんて考えていました

すみません。ご迷惑かけてます

ってゆーか、OSAXなのにFinderにtellする意図は？
set volumeってゆうOSAXなんだから1行でいいじゃん。

>>277

なんですか〜　OSAX　って
すみません。いつもは win なもので
調べてきます

>>277
ほんまやねぇ。
OS 8時代からのスクリプトをコンパイルし直して使ってたから
気づかんかったよ。
それはそうと、OS Xの音量は0.5単位で調整できんのかな？。
OS 9だとできてたんだが、Xだとうまくいかんみたいなので。

OS 9だけど、iTunes使う時に
起動用スクリプト（アプリ起動＋それまでの音量を記録してから前回iTunesを使ってた時の音量に変更）
終了用スクリプト（iTunesを使ってる最中の音量を記録してから元の音量に戻す＋アプリ終了）
っていう二つのスクリプトを作って使ってるよ

set volume だと音量設定しかできない。
現在の音量を取得する命令があれば、ひとつのスクリプトで済むのだが。

>>281
できるか？

音量の取得は標準で入ってるSound Scriptingでできなかったかな
いまOS Xなんで検証はできんが
用語説明読む限りではできそう

if (sound volume) is not 0 then
set sound volume to 0
else
set sound volume to 8
end if

これでひとつのスクリプトで済みますた

>>283
あぁ、なるほどね。ひとつで済むってそういう意味か。
監視じゃないのね。
でもやっぱ起動する時はScriptダブルクリックで起動してもらって
終了する時はスクリプトメニューから終了スクリプトを
起動してもらうのが自然な流れっぽいと思うんだが。

これインスコしる↓
http://www.apple.com/applescript/script_menu/

終了用スクリプト、
ってどうやって登録するのですか？

これでどうだー

try
if (sound volume) is not 0 then --音量が0でなければおえかき起動
set svol to sound volume --現在の音量を保存
set sound volume to 0 --音量を0に
activate application "おえかきv1.3(OSX)" --おえかき起動
else --音量が0ならばおえかき終了
quit application "おえかきv1.3(OSX)" --おえかき終了
set sound volume to svol --保存しておいた音量に戻す
end if
end try


ほんとはプロセス取得でおえかきの起動終了を判断すべきなのだが、
当方OS9なもんでOSXのプロセス取得の仕組みが同じかどうかわからず。
とりあえずtryでエラー回避。

>>285
http://www.zdnet.co.jp/macwire/0110/17/c_browsing_2.html

>>286
現在の音量を保存...って起動処理が終わった時点でそのスクリプトは
一旦終了するんじゃ？

prop

そっか、
property svol : sound volume
が必要か。

こうかな？

property svol : sound volume --現在の音量を保存
try
if (sound volume) is not 0 then --音量が0でなければおえかき起動
set sound volume to 0 --音量を0に
activate application "おえかきv1.3(OSX)" --おえかき起動
else --音量が0ならばおえかき終了
quit application "おえかきv1.3(OSX)" --おえかき終了
set sound volume to svol --保存しておいた音量に戻す
end if
end try

わー、いろいろとありがとうございました。
でも残念ながら上手く行かないですね
もういろいろ考えるのも時間がもったいないので
思いきってソフト側で音を止める設定をつけていただけないか
作者様にお願いをしました。

いや、でもスクリプトっていろいろあるのですね
勉強になりました。皆様ありがとうございました。

>>291
＞もういろいろ考えるのも時間がもったいないので

ｶﾞ━━━━（・Д・;）━━━━━ﾝ！

>>293
ソフトをただ消費するだけの側にまわってしまったか。
俺は寂しい。

>>293
自分に言い聞かしているのかい？

と、まぁお約束の突っ込みを。

悩む時間がもったいないか･･･。悩む時間が楽しいんじゃないかと言ってみるﾃｽﾄ。

set volume 0
tell application "おえかきv1.3(OSX)" to activate

on idle
tell application "Finder"
if "おえかきv1.3(OSX)" is not in ﾂ
name of (every application process) then
set volume 7
tell me to quit
end if
end tell
return 1
end idle

アップルスクリプトでWindowsの「デスクトップを表示」のような
ことできません？
この機能、Macにもあればすごい便利だと思うんだけど。

>>296
Win使ったことないんで分からんのだが
デスクトップを表示って何がどうなるの？

>>297
俺もよくわからんが、Finder以外を隠す→デスクトップが前面にでる
ということなんじゃないかな？。
単にFinderを前面に出すなら、activateコマンド一つだが・・・
あるいはOS Xでデスクトップフォルダの内容をウインドウに表示する
ってことかも？。

あらゆるウインドウを一度にタスクバーにしまうやつだと思われまする。

Finder以外を隠す、だったらAppleScript使うまでもないよね

おいらはむしろ、[option][command][W]の動作がWindowsにもほしいよ

すみません、説明が足りなくて。

>>299　の方が近いです。
OSXを使ってますが、特にCD-ROMを使ってると、
この機能（クリックひとつで）があれば便利だと感じます。

>>302
option押しながらDockのFinderアイコンをクリック。

OS Xでいつでもデスクトップ上のアイテムを見えるようにしたいなら
ドックにDesktopフォルダ入れといて右クリック

フォルダをダブルクリックして開いた時に、その中の沢山あるフォルダの中の任意の
フォルダも一緒に開くようにするフォルダアクションをつけたいのですが…
誰か分かる方いらっしゃったらお願いしますです。

>>305
フォルダアクションのつけ方が解らないの？それとも
フォルダアクションハンドラの書き方が解らないの？
ちなみにフォルダを開くにはFinderにopenさせるだけなんだけど
本家アポーで調べるよろし

http://www.apple.com/applescript/folder_actions/

早速のレスとても有り難いのですが英語が全く分かりませんヽ(´Д｀)ノ…
あと、書くの忘れていましたがOS 9です。
構文の書き方が分からないのです。

例えば、Aというフォルダがあって、その中にBからZまでのフォルダがあったとします。
で、Aのフォルダを開いたと同時にKのフォルダも開くというような事です。

>>307
ああOS 9か、すまん
検証はしてないがこれでどおでっか？3行目の"K"は任意の名前ね
これをコンパイル済みスクリプトで保存して
目的のフォルダにコンテクストメニューから「〜つける」でいけるはず

on opening folder thisFolder
set containerPath to thisFolder as string
set folderName to "K"
tell application "Finder" to open item (containerPath & folderName)
end opening folder

>>307
自分は307ではないが、
308さんのスクリプトを実行すると、
自分の環境ではエラーがでました。
自分のパソコンでは上手く機能したけど、
これでは、どう？

on opening folder X
tell application "Finder"
open {folder "A" of X, folder "C" of X}
end tell
end opening folder

Xという名前のフォルダの中に、
フォルダA,B,Cを作って、ためしてみてね。
動くようだったら、
{}内の、""内に任意のフォルダ名を入れてね。
本当はもっと自由度の高いスクリプトを書けると良いんだけど、この程度の実力しかないもので.....

>>309
あっ、エラー出た？
そりゃすまん、>307にも、すまん

>>310
すいません。
エラー出なかったです！
「K」という名前のフォルダを作り忘れてました。
マジですいません！！

>>311
ﾜﾛﾀ

>>308
今やってみたら出来ましたヽ(´▽｀)/〜♪！！
本当に感謝です！
自分ももっと勉強してこのスレで教えられるようになりたいです。

しかし、30分で出来てしまうとは…

すいません>>309さんも御協力ありがとうございましたヽ(･∀･)ﾉ！！

age

>315
実行誤り
age変数は定義されていません

http://www.amazon.co.jp/exec/obidos/ASIN/4883373207/ref=sr_aps_b_3/250-4794215-4243400
Studioの使い方まで載ってるけど高いなあ。本屋で見たけど、電話帳みたいに厚いし

書き込んだテキストの黒色以外の文字を抽出
するためのスクリプトなんすけど、
バイト単位で文字を消していくので処理が遅くて、
使い物になりません。
どなたか、Jedit持ってる方、ヨロピク！
環境↓
AppleScript J1-1.4
MacOS 9.04
Jedit4
（続く↓）

（続き）
tell application "Jedit4"
activate
select document 1
copy document 1
make new document
paste document 1
select document 1
tell document 1
select byte 1
get number of byte of selection
set X to result
repeat
select byte X
if fore color of selection = {0, 0, 0} then
delete selection
else
set X to X + 1
end if
select byte X
data size of selection
if result = 0 then exit repeat
end repeat
end tell
end tell
（おわり）

アップルマークから「このコンピュータについて」を出すことを考えた。

tell application "Finder"
activate
open about this computer
end tell

成功したがもうひとつ(不要な)ウインドウが出ます。
日本語アップルスクリプトでは出なかったのに・・・
どう修正すればいいのでしょうか?

どなたか御教授下さい。

>>318-319
どういうテキストを扱うのか分からんのだが
文字色だけで区別したいならbyteじゃなくて
style run単位で比較すれば少しは速くなるかと
>319のbyteをstyle runに置換するだけでもいいと思うけど
違うパターンで作ってみた
一応検証済み、環境は 微妙に違うけど大丈夫でしょう
OS 9.1、AppleScript 1.5.5、Jedit 4.0.5

tell application "Jedit4"
activate
set theName to name of document 1
set newText to make new document
tell document theName
repeat with idx from 1 to (count of style run)
if fore color of style run idx is not {0, 0, 0} then
insert style run idx at after last byte of newText
end if
end repeat
end tell
end tell

>>320
不要なウィンドウって何？試したけど出なかった

>>320
日本語AppleScript って、懐かしいね。

アプリケーション "Finder" について
アクティベート
このコンピュータについて を開く
以上

こんなんだったっけ？

http://homepage.mac.com/bloombloom/

>>320
　「結果」ウインドウのこと？

318です。321さん有り難うございます。
パーフェクトっす！
感動しました！
repeat文内は難しくて、全然わからないっすけど、
おれも、いつか321さんみたく書けるように
勉強したいと思います。
「ゼンマイびゅんびゅん」で。

>>322
そうそう( ・∇・)
いまだに日本語が気に入ってる。
英語が苦手だから。

>>321と>>320へ
自己解決しますた。
「結果」ウインドウでした。
実行専用で保存したら出なくなりました。
初歩的ミスでｶｺﾜﾙｲ。
逝ってきます。

メールボックスが一杯にならないように
Macを起動したまま出かけるときに
受信と一緒にスケジュールで実行させている

on run
tell application "Microsoft Entourage"
set keitai_mail to "携帯アドレス"
set subject_mail to "一人でがんばってます…"
set content_mail to "とりあえず、受信しました…"
make outgoing message at folder "送信トレイ" with properties {subject:subject_mail, address:keitai_mail, content:content_mail}
send
end tell
end run

身内が突然入院することになって、数日留守にしなければならなくなり
メールの受信確認をどうしようと思いOE用のがネット上にあったので
流用させてもらったはいいがスケジュールで実行するとエラーになり
on run~end runの存在を知るのに朝方までかかってしまいました。

アップルスクリプトをもっと勉強したいと思いました…。

たとえばスクリプト↓

display dialog "hello"

にアイコンを入れるにはどうすればいいのでしょうか？

display dialog "hello" with icon note --or caution or stop だったっけ
アプレットとかOSAXとかどこかにアイコンリソースが無いとダメだけど

Reseditでアイコン埋め込むとか

display dialog "hello" with icon <iconNameOrNo>

<iconNameOrNo>は、stop, note, cation のどれか
（これらは システムリソースのを使うから、別に
スクリプト側に持たせなくてもいい）
あるいは、ICON(or cicn)リソース番号。
これも、システム標準のものはそれをそのまま使える。

display dialog "hello" with icon -16396

とか。

on idle

tell application "Finder"
set current view of window 1 to column view
end tell

return 1
end idle

OSXにて。Finder最前面のウインドウを常にカラム表示にする。
カラムが好きなんだけど、さりげなくフォルダを開いたら
アイコン表示になっていてブチギレたことは御座いませんか。
このスクリプトは常駐して強制的にカラム表示にするものです。
ぽちっとボタンを押してアイコン表示に戻しても、すぐに
カラムに切り替えます。

「自動的に終了しない」アプリケーションにして使ってね

すみません、ちょっとお聞きしたいことがあります。
ある特定のアプリケーションを起動後すぐにウインドウを
閉じさせる、という作業をスクリプトで自動化したいんですけど
そういうことはApple scriptで出来るんですか？

>>335
launch 命令を使えば、そのソフトをウインドウを開かずに起動させることは出来る。
どのソフトでも100%そうなるわけではないが。
というのじゃだめ？

>>336

えっそんな事ができるんですか？良かったら教えてください。

とりあえず>>2の辞書集を放り込め。話はそれからだ。

フォーサイトあたりで、ツール、書籍などひとまとめにして
「まるごとAppleScript」として販売してもらいたいね。

ちょっと質問。
Apple Scriptで、
HDからOSたち上げ→RAM Diskを作る→そのRAM DiskにHDを丸ごとコピー→
→起動ディスクをRAM Diskに変更→再起動
てな感じでできないかな？
できそうだったら、教えてくださいm(_)m

340さんが環境を書いてないので、僕の環境（MacOS 9.2.2）を前提として書きます。
AppleScriptで出来る出来ないを○×で書くとこんな感じになります。

△　RAM Diskを作る
○　そのRAM DiskにHDを丸ごとコピー
○　起動ディスクをRAM Diskに変更
○　再起動

RAM Diskの作成についてですが、MacOS に標準でついてるメモリコンパネでは出来ません。
ただし、ramBunctious というシェアウェアを入れれば AppleScript で出来る様です。
ぶっちゃけ、タダではできないってことです。

ramBunctious
http://www.vector.co.jp/soft/mac/hardware/se039996.html

なお起動ディスクの変更も、MacOS 8.x系はAppleScriptでは出来ません。
（回避する方法はあるはずです。試した事ないので断言できません。）

tell app "メモリ" to set state of RAM disk to active

これでRAMディスク「入」にはできるぽいけど。
それより最近の機種ってRAMディスクブートできないんじゃなかったっけ？
ましてramBunctiousじゃ絶対無理。

>>342
コンパネの起動ディスクで指定して
Finderの特別メニューからシステム終了でなく
再起動すれば１回だけRAMディスクブート出来たはず。
システム終了したら駄目ですよ。

tell application "Chinpo"
set Chin to Chinpo
repeat
if noGirlFriend then
set position of migite to {0, 0}
set position of migite to {0, 100}
else
insert Chin
eject Chin
end if
end repeat
end tell

いつまでもイクことが出来ません。
イキ方を教えて下さい。

>344
終了判定がないので気付かずに無限ループしてると思われ。
try構文つかってみたら？

>>344
たまにはmigiteをhidariteにすべし

>>344
ﾊｹﾞｼｸﾜﾗﾀ

いや、べつに

つか>>345の冷静なレスがナイス。

下記のようなASにてファイルメーカーのフィールドに
エクセルのデータをコピペ作業しています。
ちなみにASはファイルメーカー内に格納して使用しています
（レコード毎に取込みするexcelのセルと張付けるFMのフィールドが異なるため
ASはテンプレートを使ってレコードごとに作成→実行しています）
このままでも目的には沿っているのですが、コピペ故に
（また、コピペするセルが１レコード当たり30〜50あるため）
かかる時間を短縮できないものかと思っています。
理想としてはファイルメーカーのフィールドに直接（アプリ切替無しで）
エクセルのデータを入れることが出来れば....なのですが、
はたしてこのような事は可能でしょうか？
お力添えください。

tell application "Finder"
activate
select file "fix.xls" of folder "fix" of folder "excel_data" of startup disk
open selection
end tell
tell application "Microsoft Excel"
Activate
Select Range "A1B2"
set CutCopyMode to false
CopyObject Selection
end tell
tell application "ファイルメーカー Pro"
activate
go to cell "データ1" of current record
paste
end tell
....以下コピペ部分延々繰り替えし

>>350
状況が違うかもしれないが、わしが昔やってた方法は
エクセルからCSV出力＞ファイルメーカーでリレーション
その値をフィールドに固定
と言う感じでした
取り込むセル位置が不定ならエクセルで前処理するか
ファイルメーカーに全部取り込んで整形する必要があるかも

良スレage

どなたかご教授願います。
on idle の return を1秒以下（0.5秒とか)に設定する事は可能ですか？

うましかな私に教えてください。
あらかじめ複数のフォルダ名をテキストで作っておいて
そのテキストファイルをドロップすると
フォルダ作成+名前をつける
という簡単そうなスクリプトはどうかけばよいんですか？

>354
on open nameFile
tell application "Finder"
activate
set filenum to open for access file nameFile
try
repeat
make folder with properties {name:read filenum before return}
end repeat
end try
close access filenum
end tell
end open

これでど。テキストは１つずつ改行すること。

できんかった。

nameFileはリストです。

？　できるぞ。

>>354
>>355の
activateの次の行に
set nameFile to item 1 of nameFile
を入れてみるとか。

>>355様>>359様ありがとうございました。
当方OS9.14ですが
on open Droplist
tell application "Finder"
activate
set nameFile to item 1 of Droplist
set filenum to open for access file nameFile
try
repeat
make folder with properties {name:read filenum before return}
end repeat
end try
close access filenum
end tell
end open
で動きました。デスクトップで起動したのでフォルダが画面いっぱいになったのは驚きましたが。
text名のフォルダにおさめるようにしたらいいのですね。

9.14？

いまさらOS9で、IEでダウンロードが途中で途切れた複数のファイルの続きを
MacGetでダウンロードするためのAppleScriptって作ったんだけど需要ありますか？
ナローバンドだとかなり重宝するんだけど。

１，Finderで選択された複数のファイルについて、
　　コメントに書き込まれたURLとそのファイルのパス（保存場所）を読みとる
２，MacGetのリスト形式のテキストファイルを作り、手順１で読んだ情報を元に書き込んでいく
３，できたリストのファイルのファイルタイプとクリエータをMacGet用にしてMacGetで開く

という感じ。
実際はリピート文を使っているので手順１と手順２は交互に進みます。

>>362
IEにはリジュームD/L機能がついとるし
複数ファイルD/Lするなら最初からMacGet使ってるだろうし
使い所が分らん。

>363
IEのバグ知らんのか？

>>363
IEのリジューム機能？そんなものはないです。（ｗ
たしかに使える時もありますが、（ftpの時の方が使えるような気が。）
ちょっとデータが途切れるとすぐあきらめるし、
途中までしか落としてないのに完了した事にしちゃって最初からやり直さないといけなくなったり、
IE5からダウンロードマネージャーに新規登録できなくなったし、イマイチなのです。
ブロードバンドしか使った事がない人にはわからないかもしれませんが。
初心者の人が「ダウンロードしたのに解凍されない！」という問題にぶつかったうちの何割かは
ダウンロードに失敗しているのだと思われます。

IEの利点は、
いちいち登録とかしなくてもクリックでDLが始められるところ。
サーバー側でいろいろしかけてあっても（cgiで実際のDLのURLに飛ばすとか）とりあえず簡単にDLが始められるところ。
画像ならDL後クリエータ、ファイルタイプを設定した上でプレビューとアイコンを付けてくれるところ。
URLをコメントに書き込んでくれるところ。

もちろんM_Loaderとかも使ってますけどね。

余談ですがYellow_DもURL書き込んでくれるがイマイチこんじょーなしな点でIEに似てると思います。。

fumufum

すみません。
開いたウィンドウを閉じるにはどうすればいいのでしょうか

tell application "Finder"
activate
select files of folder "DATA:ねこ"
open selection
close folder "DATA:ねこ" <-------------できない
end tell

＞select files of folder "DATA:ねこ"
って、「ねこ」フォルダの“中身”を開いてるんでしょ。
なのに
＞close folder "DATA:ねこ"
で「ねこ」フォルダを閉じようとしても無理さね。

>>369
回答ありがとうございます
フォルダーのねこ画像をプレビューソフトで表示する
という機能ですが、あと一歩なんです
開いたウィンドウを閉じることができれば．．．
環境はＯＳＸです

>＞close folder "DATA:ねこ"
>で「ねこ」フォルダを閉じようとしても無理さね。

うむむ、単純にウィンドウを閉じることができればいいんです

tell application "Finder"
activate
select files of folder "DATA:ねこ"
activate "DATA:ねこ"
close folder "DATA:ねこ" <-------------できない
end tell

とやってもエラーが出るので
close命令が間違っているのは明白なのです
命令さえ分かれば．．．。

・・・なにがしたいのか全然意味わからんが。

>>371
ただsageしたいだけなんだろう
スクリプト知らないなら口挟むな！！

tell application "maka-you"
sage

なるほど。これが週末というやつか…

なるほど。これが休日出勤ってやつか…

WEB上の画像ファイルを定期的にダウンロードできるスクリプトないですか？

>>368

> select files of folder "DATA:ねこ"
> open selection
ねこフォルダの中のファイルを選択して、そのファイルを開く

> close folder "DATA:ねこ" <-------------できない
ねこフォルダを閉じる（ねこフォルダが開いていれば閉じるでしょう）

あなたは一体どのウィンドウを閉じたいのですか？

>>370

> select files of folder "DATA:ねこ"
ねこフォルダの中のファイルを選択する

> activate "DATA:ねこ"
ねこフォルダを最前面に出す

> close folder "DATA:ねこ" <-------------できない
ねこフォルダを閉じる（ねこフォルダが開いていれば閉じるでしょう）

あなたは一体何をしたいのですか？

とじるのはフォルダじゃなくてウインドウだろうと

いやきっとフォルダそのものに対して操作を加えるので
openしたファイルはcloseするというファイル操作の基本を。

なんとなくageてみよう

>>378-379
その通りでーす。単純にウィンドゥを閉じたかったのでーす

tell application "Finder"
activate
select files of folder "DATA:ねこ"
selection open
close window "ねこ"
end tell

たぶんいちいちウィンドウ開かなくてもできる処理だろうな。
>>368には難しすぎるだろうが(ぉ

>>382
またネチネチとやーだねー。パソコン好きには
なぜこういうバカが多いいのかね。
もっと上手くできるなら手本を示すべきでしょうが
カラッポくん。

ごめん　なさいね　私のせいよ
ふたりの心　もてあそんで
ちょっぴり楽しんでたの　思わせぶりな態度で
だから
けんかをやめて　ふたりをとめて
私のために　あらそわないで
もう　これいじょう

手本を示すまでもないような。

たぶん>>372の書き込みがなければ丁寧な解説があったと思うのだが・・・。
>>371=>>369なのに、なぜ>>372で豹変したのか気になる・・・。

>>386
単にID確認しなかっただけかと。

いろいろ事情があるんだな。

あげ

あげー

>>383
ていうか、ひとに聞く態度じゃないね。

パソコン好きにはバカが多いいだって。

それに加えてカラッポくん。

カラッポくんはどちらなのか。


＃答え書いてあるのに。

Finderでmoveすると、違うボリュームの場合、duplicate動作になってしまうんだけど、
この仕様、なんとかならんだろうか。いったいどういう理由があるんだろう。
Finder上のD&D操作の場合は、コマンドキーを同時に押しておくことで、
コピーではなく、移動として扱うことができるのだが、
AppleScriptのmoveの場合はそういうオプションも見当たらないし…

OSAMenuって「ソ」がダメ文字なんだね。

奇数区29点の文字全部ダメそうだね。

FileCut
-----------------

set tempPath to "MacHD:FileCutList.temp" --path of temp file
set exlist to ""

tell application "Finder"
set theItemList to selection
if theItemList is {} then
if exists front window then
set exlist to ((target of front window) as alias) as string
else
display dialog "Nothing to FileCut" with icon 1
return
end if
else
repeat with theObj in theItemList
if exlist is "" then
set exlist to (theObj as alias) as string
else
set exlist to exlist & return & (theObj as alias) as string
end if
end repeat
end if
end tell

----
続く

FileCut 続き
-------------

--display dialog exlist

try
set fileNum to open for access file tempPath with write permission
set eof fileNum to 0
write exlist to fileNum
beep
end try
close access file tempPath

---
FileCut 終わり

FilePaste
---------------

set temppath to "MacHD:FileCutList.temp" --path of temp file

try
set tempfile to open for access file temppath
set theItemList to read tempfile using delimiter {return} as text
on error
display dialog "read error"
return
end try
close access tempfile

--display dialog theItemList

tell application "Finder"
--set theTarget to target of front window
--display dialog (theTarget as alias) as string

--
続く

FilePaste 続き
---------------


-- Youpi Key has bugs
--if ((target of front window as alias) as string) does not end with ":" then
--display dialog (target of front window as alias) as string
--set theTarget to container of target of front window
--end if

--move theItemList to folder ((target of front window) as string)
repeat with theObj in theItemList
--display dialog theObj
if exists theObj as alias then
if container of (theObj as alias) is target of front window then
display dialog "can not"
else
try
duplicate theObj as alias to (target of front window) as alias
delete theObj as alias
end try
end if
else
display dialog "file not found" & return & theObj with icon 0
end if
end repeat
end tell

---
FilePaste終わり

・FileCutで選択したFinder項目のパスリストをtemp fileに書き込む
・FilePasteでそれらのリスト項目アイテムをFinderの選択フォルダに移動

ScriptMenuから実行するのを推奨。
QuickeysやYoupi Key、Big Cat等のユーティリティから実行した場合、
日本語を含むパスを扱えなかったり、空白スペースを含むパスを
扱えなかったりする等のバグがあった。
本当はmoveで移動させたかったが、>>392の理由で、
一つずつコピーした後、ゴミ箱に捨てている。

両方とも一行目で指定しているtemp fileのパスをそれぞれの環境に合わせて、
各自設定して下さい。

あ、こっちはClassic向けか。スレ間違えちゃった。
上のファイルのカットとペーストはOS X向けで。
Classicでも使えると思うけど…。

>>392

へ？違うボリュームへの移動ってつまり、HDからMOとかでしょ？
複製になって当たり前だと思うのだが。。

そーいやOS X用じゃないけどコピー、カット、ペースト作って使ってるよ。
かなりごちゃごちゃしたスクリプトだけど。

>>402
もちろん内部的な動作としては複製になるんだけど、
その場合も外見上の動作としては、移動元ファイルの掃除をして、
形としてインテリジェントに移動する手段が欲しいってこと。UNIXのmvのように。
Finder上ではその手段があったけど、AppleScriptではそれが見当たらなかった。

内部HDDを複数持っている時、ユーザはボリュームの区別をことさらに意識しない。
場合によって同じような操作が、移動になったり、複製になったりするのは疑問。

>>403

コマンド押しながら・・で見た目上〜　っていうのはOS Xですか？
OS 9で試してみたら普通に複製でした。

えーと、まずコピー＆ペーストでは複製だから気にしなくていいですよね？
カット＆ペーストの時は僕はたしか元ファイルをゴミ箱にぶちこんで、ペーストが指示された時にmoveしてたような気が。
あ、↑は自分が作った時の話です。

もしもOS X限定でよいのなら、AppleScriptからTerminalのコマンドが使えるらしいから、mvとやらを使えばいいのでは？

コマンド押しながらは、OS Xの話です。
mvは2バイト文字や空白スペースや特種文字に考慮する必要があるので、
気軽には使えない。
MvMacは異なるボリュームへの移動自体ができない（エラーが出る）

あと、OS9だとスクリプト自身や、初期設定フォルダなどのパスを得られたのでテンポラリファイルなどは固定パスじゃなくてもよかったのですが。。
あと、ファイルには文字列以外も記録できるのでパス文字列でなくてもよさそう。

リピートのとこは複数一括処理できませんか？
試してみないでケチばかりつけてすんません。

>>405
なるほど。

moveが文字通り移動として使えるなら、
普通に一括処理できるんだけど、（一応コメントアウトして書いてる）
それはできない（わからない）ので、複製して元ファイルをdeleteしている。
この処理を一括すると、途中でエラーが出た場合ややこしいので、
ひとつずつリピートしています。

初期設定フォルダは利用してもいいかも。
ファイルの文字列以外の記録はよくわからなかった。
エイリアスのリストを記録できるなら、そっちのほうがいい。

>>408
アップルスクリプトのファイル自身にpropertyとして変数を保存できます。それが一番簡単と思います。
OS Xで相対パスが使えるなら他のスクリプトから読み込むのも可能。

たしかに一括にすると途中でエラーが出た時面倒ですね。速いけど。

僕はペースとしてから捨てるんじゃなくてカットした時点で捨てるっていう乱暴な方法にしてたんで一括でやってたんですけど。
その方がワープロなどでのカットの動作に近いし。
作った時点ではWindowsでそのへんどういう動作するかも知らなかったというのもありますが。

お、おれのヤツOS X用にコンパイルしなおしたら基本的なとこは普通に動くみたい。
ちょっとここにスクリプト本文出すにはでかすぎるけど。

ただし動作は俺のヤツの方がにぶいかも。ログ機能とかごちゃごちゃつけてるし。

>>409
>アップルスクリプトのファイル自身にpropertyとして変数を保存できます。それが一番簡単と思います。
なるほど、それ忘れてた！
store script 使ったら、エイリアスのリストで保存できた。
移動した元ファイルの参照もできるようになった。
Youpi Key経由でもパスに2バイト文字や空白スペースを含むファイルを扱えるようになった。
^xにファイルカット、^vにファイルペーストに割り当てて、いい感じになったー。
リピート処理もやめてみた。エラー処理は気にしないで、速度優先してみた。

FileCut
-----

set FileCutListPath to ((path to preferences) as string) & "FileCutList"
set FCL to load script file FileCutListPath
set pFileCutList of FCL to {}

tell application "Finder"
set theItemList to selection
if theItemList is {} then
if exists front window then
set pFileCutList of FCL to {((target of front window) as alias)}
else
display dialog "Nothing to FileCut" with icon 1
return
end if
else
repeat with theObj in theItemList
if pFileCutList of FCL is {} then
set pFileCutList of FCL to {theObj as alias}
else
set pFileCutList of FCL to pFileCutList of FCL & {theObj as alias}
end if
end repeat
end if
end tell
store script FCL in file FileCutListPath replacing yes

FilePaste
------

set FileCutListPath to ((path to preferences) as string) & "FileCutList"
set FCL to load script file FileCutListPath
set theItemList to pFileCutList of FCL

--display dialog theItemList

tell application "Finder"
set theTarget to (target of front window as alias) as string
--display dialog (theTarget as alias) as string

-- Youpi Key has bugs
--if ((target of front window as alias) as string) does not end with ":" then
----display dialog (target of front window as alias) as string
--set theTarget to (container of target of front window as alias) as string
--end if

--move theItemList to folder ((target of front window) as string)
duplicate theItemList to folder theTarget
delete theItemList
end tell

FileCutList -- これは初期設定フォルダに置く
------
property pFileCutList : {}

このスレに何度も登場してる
open for access~close accessについて
エラー処理をしといた方がいいというのは分かるんですが
見るたびにtry構文の仕掛け方が違うんですね
どれが正解なんでしょう？
例えば少し上の>>397では
try
open for access file FilePath
(*いろいろな処理*)
end try
close access file FilePath
ってなってますが、これだとファイルを開くことに失敗した場合
ファイルを閉じることができない（もともと開いてないから）と
エラーになると思います

書きなれていらっしゃる方は定形文として扱ってると思うので
教えてほしいです

1.Appleが配付してるサンプルの例
try
open for access file FilePath
(*いろいろな処理*)
close access file FilePath
on error
try
close access file FilePath
end try
end try

2.AppleScriptリファレンスの例
open for access file FilePath
try
(*いろいろな処理*)
on error errorMsg number errorNum
close access file FilePath
error errorMsg number errorNum
end try
close access file FilePath

3.鳶氏のAppleScript Dictionary
try
open for access file FilePath
(*いろいろな処理*)
end try
close access file FilePath

>>416
397だけど、丁寧に書くなら、1と2を合わせたり、いいんじゃないでしょうか。

try
open for access file FilePath
(*いろいろな処理*)
close access file FilePath
on error errorMsg number errorNum
try
close access file FilePath
end try
error errorMsg number errorNum
end try

個人的には、AppleScriptが自分でエラーを吐いてくれれば、それで意味がわかるので、
397などは開発効率から適度に簡略化した（手を抜いた）コードになってました。

open
try
　処理
end
close

俺はこれだけ。
最も致命的な事態（開いたファイルが閉じれない）だけ避けられればいいので。

俺が気になるのはcloseするのをファイルパスで指定するべきか
ファイル参照番号で指定するべきかだなあ。
どう使い分ければいいのかわからん。

レスくださった方有り難うございました
参考にさせていただきます

OSXで、キータイプをエミュレーションできるOSAXって無いですかね。

おっと、やばい、保守！

ｺｿｰﾘage

on replace_text(theText, searchStr, replaceStr)
set AppleScript's text item delimiters to searchStr
set itemList to every text item of theText
set AppleScript's text item delimiters to replaceStr
set theText to itemList as string
set AppleScript's text item delimiters to ""
return theText
end replace_text

↑テキスト置換のスクリプトなんですが
大文字と小文字を区別しない様にしたくて
調べるとconsidering、ignoringを使えばいいらしい
というとこまでは分かったんですが
うまく行きません、どうかアドバイスをよろしく

set theText to "MICROSOFT & microsoft"
ignoring case
replace_text(theText, "Microsoft", "Apple")
end ignoring

どこが間違ってるんでしょうか？

http://rira.moo.jp/sharp/
http://www.geocities.co.jp/Playtown-Part/7565/

2002/12/26
ブレオブ2、久しぶりすぎて話が見えてこない…
これじゃクリアできても寂しいと思い、
もう一度最初からプレイすることにしました。
子供リュウ君、頭のてっぺんでくくってて可愛いv
これクリアしたら3〜5（新作は名前違うんだよね？）も
貸してくれるとのことなので、張り切ってクリア目指して
頑張ります！特に一番新しいシリーズのニーナが
細く小さくて可愛いので、早く会いたい♪


↑ｲｳﾞもｸﾘｽﾏｽも明けもゲームしかないのかこの人は

>>424
経験上、区切り文字を使った置換の場合は大文字小文字が区別されると思う。
あと試すとすれば、replace_text()の中でignoreを指示してみるとか？
文字列置換はOSAX使うのが速いんじゃないかな？
オレはMacJPerl通すけどね。OS XならTerminalで。。

ignoring caseブロックで、

set X to "cd"
set Y to "abcdef"
set AppleScript's text item delimiters to "CD"

X = AppleScript's text item delimiters　　　　　→true
Y contains AppleScript's text item delimiters　　→true
text items of Y　　　　　　　　　　　　　　　→{"abcdef"}

バグかな？

>>426-427　どうもです
ignoringは文字列の比較の時しか有効でないということですかね
区切り文字は大文字小文字を区別する、あとoffsetも試してみましたが
ignoringを無視して区別するみたいです
OSAXやテキストエディタを使うことにします
サンクスでした

set theText to "ABCDE"
ignoring case
theText is "abcde"
--true

set AppleScript's text item delimiters to "ab"
set theText to (text items of theText) as string
theText is "abcde"
--true
set AppleScript's text item delimiters to ""

offset of "ab" in theText
--0
end ignoring

超初心者質問ですみません。
アップルスクリプトでワイルドカードを使うにはどうしたら良いのでしょうか？

終了時に特定のフォルダ内にある、特定の文字を含むファイル
（abc.d,abc-1.d,abc-2.dなどファイル先頭にabcを含む、または最後に.dを含む）を
削除する削除するスクリプトを作りたいのですが、本で調べてもさっぱり解らず困っています。
どなたかご教授お願いします。

ASではデフォルトでは高度な文字置き換え、検索はできないよ。
http://homepage1.nifty.com/ton_b/AppleScript/Tips/index.html
ここの「文字列」の項を見て解決できないようであれば、
Tanaka's OSAXとか探せ。

>>429
アップルスクリプトのよいとこはいろんなアプリケーションを利用できる事です。
ワイルドカードとか使いたい場合、ボクだったらMacJPerlを通します。これはOS 9の場合ね。
OS Xだったらシェルスクリプトを実行させたらいいんでなかでしょか。
ほかにOSAXを使う手があるかもしれません。詳しくはだれかフォローしてください。

>>429,430
レスありがとうございます。
うーん、簡単には出来ないようなのですね。

書き込んだ後も本を調べていたのですが
repeat with ~ in ~に
「リストの要素を１つずつ拾いながら、リストの要素の個数会だけ繰り返す」
と説明があったので、使えるかも？と思ったが
repeat with NAME in ALLNAME
if NAME end with ".d" then
select file NAME of folder "efg"
delete selection
end repeat
(↑多分、構文むちゃくちゃなんだろうな…）
フォルダ内の全てのファイル名をリスト(ALLNAME)に入力する方法が解らなかった…。

>>432
tell app "Finder"
tell every file of folder "なんとか" of disk "Macintosh HD" whose name end witn ".d"
delete
end tell
end tell

で駄目かね。なんか眠いので試してないが。「Finderのフィルタ」で調べてみて。

ワイルドカードってのは「正規表現」のひとつだと思うけど、
AppleScriptはこれをサポートしてないよ。

>>434
あふぉ。今までのやりとりを無視すんな。

>>432
フォルダの中にある全てのアイテムの名前を
リスト化するには
list folderっていうコマンドがあるけど
たぶん>>433氏の方法でいけると思う

OS 9 なら多分 RegEx Commands OSAX が使えると思います

>>429
ファイル名を contain でチェックすれば良いんでない？

>>438
だからそれを具体的に書くと>>433になるやん。end withかcontainかの違いでしょ。

OS 9.2ですが、
イラレのショートカットとぶつかるので
ファインダーのショートカット
　コマンド＋タブ でアプリ切り替え
をアップルスクリプトで使用 可/不可 切り替えたいんですが
誰かスクリプトをうpして下さい
よろしくお願いします。

こいつのイラレは割れ物

>>440
＞アップルスクリプトで使用 可/不可 切り替えたいんですが

と言った場合スクリプトを作ろうって事だよな？普通。その質問かと思えば

＞誰かスクリプトをうpして下さい
ハァ？
んなスクリプト作れねーよ。
なに勝手に作れるって決めつけて人使おうとしてるんだよ。作れそうかどうかぐらい調べてから来いボケ。
資料そろえて作れそうだけどわからんって段階になってから来いや。だったら作ってやってもいい。

こんなソフトありませんか系のスレでキーボードショートカット切るソフトねーか聞いてこい。
それかスレ立てるまでもない質問のとこで、こういう事がしたいのですがどんな手段がありますかみたいな感じで聞いてこい。
いずれにしろ自分の態度は反省した方がいいぞ。

>>442
大晦日ぐらいおちけつ

おはよう。

>>442
いや、作れるだろ。
finderでプログラム切り替えのショートカット
不使用にできるんだから
Macヘルプでできるんだが、
それを記録する事ができないんで困っていたんだけど
プログラム切り替えのウィンドウの外観をカスタマイズする
スクリプトがあるからそれを調べてみるよ。

つーか、なんで突っかかってくるんだよ。
ま、
>>442,みなさん、良いお年を。

>>444で書いたスクリプト何処から落としたんだか見つからん。
プログラム,切り替えで検索してたのを
アプリ,切り替えで検索したらもっとそれっぽいのが出てきた。
http://www.google.co.jp/search?hl=ja&inlang=ja&ie=Shift_JIS&q=applescript+%83A%83v%83%8A%90%D8%82%E8%91%D6%82%A6&lr=
が、軒並み404になってる。
ちょっと時間ができたら、見つけてうpします。
でわ。

そう言えば、過去スレに>>444で書き込んだスクリプト
紹介したような気が…。
とりあえず、アプリ切り替えon/offのみのスクリプト
http://mac-energy.com/base.php?modo=kate1&keywd=syte
見つかりました、お騒がせしました。
でわ、良いお年を。

こいつは半角厨

>>444
すまん。知らなかった。できるんだな。俺が厨だった。
つかFinderでOFFにできるの？
バックグラウンドアプリケーションの「アプリケーション切替」を終了してもcommand＋Tabは有効なんだけどなぁ。。
ちょっとこの板、スレと文化が違うような気がしてキミの行動に面食らってしまった。
で、キミの目的のスクリプトは、ぐぐったらすぐ見つかったぞ。いったいどんな検索をしたのかと小一時間（略
「アプリケーション切替 ショートカット」だよ。

追伸：他人の作品やそのページのアドレスの直リンを貼るのをうｐとは言わん。
　　　それと、サイト作成者の意図を汲んでマナーを守れよ。

あー、くそ、作っちまったじゃねえかよって簡単だしな。

tell application "アプリケーション切替"
if keyboard cycling active then
set keyboard cycling active to false
else
set keyboard cycling active to true
end if
end tell

コンパイルの仕方ぐらい勉強しろ。

おら、ついでにcontrol＋tabで切り替えできるようにするスクリプトだよ。
連書きすまん。

tell application "アプリケーション切替"
--get cycling keystroke
--結果：{class:keystroke, key:tab key, modifiers:{command down}}
set key of cycling keystroke to tab key
set modifiers of cycling keystroke to control down
end tell

--tab key のとこは、down arrow keyとか、F1 keyとかも使える。詳しくは用語説明を見よ。

tell application "アプリケーション切替"
set keyboard cycling active to not (keyboard cycling active)
end tell

でも、451のほうがいいね。

>>452
なるほど！>>450は基本の教科書的？書き方ですが、現在の値の逆にするって事でそれだけで済むんですね。
勉強になります。

あけましておめでとうございます。

今年もよろしく

むずい

OS 9なんですけど、メニューの実行を監視する方法ってありますかね？
たとえばメニューから「ゴミ箱を空に」が実行されたタイミングで何かをやるとか。
そういう事出来る機能拡張とかバックグラウンドアプリとかご存じでしたら教えてください。

使ったことないけどAkua Sweetsになんかそんなのが有ったような
なかったような

アクアスイーツは動かないのも多かったような

>>442
>>452
thx.

ランチャーのウィンドウの枠を無くしたいんだけど
教えてください。
一応自分で書いてみたんだけど全然ダメだった。
本買おうかな。

tell application "Finder"
copy button returned of (display dialog "枠はいるの？ "buttons{"あり","なし"} default button 2) to as_0
if as_0 is "あり" then
tell application "ランチャー"
set frame visible of palette to true
end tell
else
tell application "ランチャー"
set frame visible of palette to false
end tell
end if
end tell

>>459
ランチャーってOS9のコンパネフォルダに入ってるランチャー？
うーん、これまたスクリプトで制御できるのかどうか私は知らない。。
スクリプト編集プログラムからは用語説明が開けないし。。という事は制御できない可能性大。

見た目をいじりたければどっちかというとResEditでリソースを編集する事になると思う。
でもプログラムそのものをいじらないと本格的な変更は無理でしょう。
気に入るランチャープログラムを探す方がよいかも？

Safariで「select」が効かないのはつらいな。

>>460
なるほど。
thx.

>>461
それって、selected textが得られないとか？

ネコミはできるんかな。。HotGoogle改造してネコミ用に出来るかなーと思ったらあっさりつまずいた。

（＾＾）

パート4まで行った良スレだよ!
落ちてたまるか。

464 名前：山崎渉 ﾒｪﾙ：（＾＾）sage 投稿日：03/01/23 02:24 ID:ghhLiS5+
（＾＾）
は、闇の魔法。
ホグワーツのみんなで、闇の魔術に対抗する方法を考えよう!

起動ディスクコンパネいじってみようと思ったら
用語辞書見ても記録使ってもうまくいかねー。。

>>466
これじゃだめ？

tell application "起動ディスク"
set startup system folder alias to alias "システムのパス"
end tell

>>467
レスサンクスです。
コンパイルしようとすると
「構文誤り、この（application constant or consideration）のあとにapplication constant of cnsiderationを書く事はできません。」
となって
「startup system folder alias」がハイライトされます。
OS 9.2.2
AppleScript J1-1.6
です。

>>468
もしかするとas1.6だからかな？

うちもstartup disk aliasは問題ないけどstartup system folder aliasはエラーがでる。
でも構文は通ってるよ？

>>469
かもですね。
でもバグ回避のために1.6にバージョンダウンされてるんですよね？
（自分で下げたんじゃなくて本体購入時から1.6です）
スクリプト機能拡張とぶつかってるかもしれないって事はあるんでしょうか？
純正以外外して試したほうがいいのかな。。

スルーか…

>>470
エラーは出るけど構文チェック通るんですか？
ASとOSのバージョンは一緒ですか？

9.1
1.6

えーとそれで構文通ってちゃんと動くって事なんですかね。

初心者です。
apple scriptが常にCD-ROMドライブを監視していてマウントされたら、
あるプログラムを実行みたいなことができますか？
すれ違いでしたら誘導お願いします。初心者スレ見つからなくて。

>>476
OSは？

ちなみにうちは9.2.2で1.8。
OSXをアップした時にかわったような・・・。

>>478
1.8入れてみるべしですかね？ジャガー買おうかな。。

1.8.3は本家(us)にだけあるよ
でもやぱりダメだたよ

実を言うと、辞書を見て書いてもうまくいかなくて、
「記録」でやったのだ。
system folder alias といいながら、システムフォルダではなく
システムスーツケースを指定しているのも変なんだよなあ。

＞システムスーツケースを指定

それを先におしえてくれよw
1.6でも問題なくできるじゃん。

>>481,482
そ、そんな罠が。。（脱力

でも記録でやるとうちの場合
set ﾇclass sysfﾈ to
ってなるんですよね。
で、記録やめて編集して再コンパイルしようとすると失敗する。

なった。
エディタ再起動したら直った。

>>485
うお、ほんとだ！ありがと！
エディタ再起動したらstartup system folder aliasでコンパイルできるようになった。
ﾇclass sysﾈはだめだけど。

なんで？？
なんか予約語がぶつかってるくさいんだけどなー。。

ついでに聞いちゃいますけどOS Xの場合はどうやればいいんですか？
本を見ても環境設定については触れられていないんですけど。
用語説明も何のものを見ればいいのやら。。

>>487
OSXの場合は直接ASコマンドでいじるのはまだ不可能らしい。

こっちのスレに外部コマンドを使った例がある
http://pc.2ch.net/test/read.cgi/mac/1010546884/l50

AS以外はｻﾊﾟｰﾘわからん・・・

>>488
THX！やっぱりターミナルを叩くんですね。
blessってのが起動フォルダを変更できるソフトなんでしょか？
私もASは日本語の頃から使ってましたがそれもブランクありでいーかげん、
OS X環境整えるお金なしでますますだめぽになって来ました。。

スレ違い＆既出でしたら申し訳ありませんが

フォルダの「表示オプション」、「常に名前で並べる」というのを
ボタン一発でバッチ処理してくれるスクリプトってありませんか？
レベルが低い話で申し訳ないですが、どうかよろしくお願いします！

ほい。

tell application "Finder"
tell front window to set spatial view arrangement to arranged by name
end tell

一番手前に開いてるウインドウに対して有効。

>>491
おおおおおおお！ありがとうございます！
感謝！！

質問厨でごめんなさい。スレ違いだったら更にごめんなさい。

ファイルをドラッグ＆ドロップして、
そのファイルの修正日をその操作を行った日時に変更し、
書類フォルダに移動するというスクリプトを作りたいと思ってます。
アップルスクリプトで作ることは可能でしょうか？

>>493
ヨユーで。基本的なものだから練習と思って作ってみそ。
複数処理の高速化とかは知らないとできないけど、
（参考にすべきところを知っていればすぐわかるが）
それはのちのちって事で。

初心者ですいません。。。OS9でTurboMemというソフトを起動させて
隠し、音量を0.1にするというスクリプトを書いたつもりなんですが、
うまく動いてくれません。。。これです↓


tell application "TurboMem"
open selection
end tell

tell application "Finder"
tell process "TurboMem" to set visible to false
end tell

set volume 0.1

TurboMemは起動するんですが、
隠すのがうまくいきません。。。TurboMemが起動してる状態で実行す
るとちゃんと隠してくれるんですが・・・。どなたか解決法を教えてく
れないでしょうか？？？

まずopen selectionは意味不明なのでactivateにでもしといて。

んで本題のほうは、TurboMemの起動処理が遅いので立ち上がりきらないうちに
processチェックしにいっちゃってるのがダメっぽい。
とりあえず間にdelay 3ぐらい挿んでおけば一応うまくいくみたい。待ち時間ができちゃうけど…

>>496
待ち時間を設けないと無理みたいですか・・・。隠すの無理っぽいし、
起動さしてFinderを前面にくるようにします。ありがとうございまし
た。

tell application "TurboMem"
activate
end tell
tell application "Finder"
activate
end tell
set volume 0.1

別にこれで無駄な部分ないですよね・・？？何せ初スクリプトなもので
・・・・。

今頃ながら>>27の実質一行のスクリプトでアプリが起動してるかどうか調べられるのを知って
感動しますた

>>495のtell app "Finder"の直後に
repeat
if creator type of processes contains "ここにアプリのクリエータタイプ" is true then exit repeat
end repeat

を置くのはどないでしょ
TurboMemっていうののクリエータタイプ知らないので調べてみて

>>494
レスありがとうございます。
見様見真似で以下のようなスクリプトを書いてみましたが、
ファイル修正日を変更するのがうまくいきません。
もう少し頑張ってみます。スレ汚しでスミマセン。

on open dropFiles
tell application "Finder"
set CurrentDate to current date
set modification date of dropFiles to CurrentDate
move dropFiles to folder "Documents" of desktop
end tell
end open

500頂きま〜す！

>>498のrepeatはターゲットのアプリが起動してなかったら
無限ループになるんじゃ。

それって大丈夫なのか？

>>499
>>355-360あたりにヒントが。

>>495　TurboMem は使ってないけど、起動遅いアプリで試してみますた。
おいらんとこの環境(OS9.2.2)では全体を
with transaction 〜 end
で囲ってやるとうまくいきますた。
でも、ちょっと遅い…

>>502
ありがとうございます。
>>360を参考に書き直してみましたが、

duplicate dropFiles to "Macintosh HD:ユーザ:xxx:Documents" with properties {modification date:CurrentDate}
delete dropFiles

with propertiesの箇所で構文エラーが起きてしまいます。
申し訳ありませんが、どのように書き直せばいいか
教えていただけないでしょうか

>>504
とりあえず、dropFilesをアイテムに分解してみたの？
それから、duplicateは多分with propertiesを使えないと思うんだけど。
>>499の dropFilesをアイテムに分解すればちゃんと使えるよ。

>>494, >>502, >>505
改善の余地はたくさんあると思いますが、一応目指すものができました！
いろいろ教えていただいてありがとうございました！

on open dropFiles
　tell application "Finder"
　　set CurrentDate to current date
　　repeat with thisItem in dropFiles
　　　set modification date of thisItem to CurrentDate
　　　move thisItem to folder "Macintosh HD:ユーザ:xxx:Documents"
　　end repeat
　end tell
end open

>>506
おめでとう。という事で高速版。
ただしこれはOS Xでは動かない。OS XのASが未完成だから。
鳶嶋工房というところに行くと役に立つTipsがあるよ。

on open fileLst
tell application "Finder"
set butu to a reference to every document file of selection
set modification date of butu to current date
move butu to folder "書類" of startup disk--ここは好きなのに変えてけれ
end tell
end open

>>507
うう、高速版まで書いていただけるとは。感激。
OS 9以前のAppleScriptなら一括処理できたんですね。

初めてAppleScriptを触ってみましたが、すごく面白いです。
いろいろ作りたくなってきました。
このスレや鳶嶋工房で勉強するです！
ホントお世話になりました。多謝です！

3日前からアップルスクリプトをいじり始めた超初心者です。
環境は、パテーション切ってOS9.2.2、OS10.2.3+classic用OS9。

通常はOSXを起動ディスクにしています。
んで、OS9を使っていた際の再起動用に｢もいちどOS9で起動しろ！｣
っていうスクリプトを作りたいのですが、まったく上手く行かず…。

もしよろしければ、お手本を見せていただけませんでしょうか？

>>509
OS9起動スクリプト
http://pc.2ch.net/test/read.cgi/mac/1010546884/357

>>510
リンク先見ましたが、ちょっと分からなかったです…。。
上記の環境(パテーション切ってOS9.2.2、OS10.2.3+classic用OS9。
通常はOSXを起動ディスクにしています。)で、

｢0S9を使っていて、もう一度(起動ディスクではない)OS9で
再起動させたい。｣場合もこれでOKなのでしょうか？

厨でｽﾏｿ。

option押しで起動したんなら次もoption押せばいいだろ

>>511
起動ディスクの操作なら
スクリプト編集プログラムの「記録」で記録できるよ。

>>513
スクリプト自体が上手く書けないので、どうしようもないでつ。

>>514
キミの日本語がよくわからない。正直、殴りたいくらいイライラする。
｢0S9を使っていて、もう一度(起動ディスクではない)OS9で再起動させたい。｣って何？
あるパーティションのOS 9で起動していて、別のパーティションのOS 9で起動したいの？
通常がOS Xとか言うから余計わからん。何がしたいんじゃ。

手本。もとは>>510のとこでもらったヤツだけど簡易化してる。説明も付けた。
ttp://pc.2ch.net/test/read.cgi/mac/1032115716/221-222
それともう一つ。上で書いたように、OS9から別パーティションのOS9で再起動するヤツ
--ここから
tell application "起動ディスク"
activate
set startup system folder alias to alias "HD2:システムフォルダ:System"
end tell
tell app "Finder"
end tell
--ここまで
ハードディスクの名前は自分の環境に合わせて変えろ。
手本っつーか答えじゃねーかよ。これでできんとか言ったら殺す。

>>515
横から申し訳ないけど、なんかｽｹﾞｪﾜﾛﾀ。
優しいね(･∀･)

>>515
自己レスっつーか補足。
よく見たら最後の再起動の部分が抜けてたのでほかの手本を参考にして自分で書いてみてや。

今頃＆厚かましいと承知の上なんですが、
>>491さんが作って下さった
tell application "Finder"
tell front window to set spatial view arrangement to arranged by name
end tell
というスクリプトなんですが、更にズームボックスを押した状態でフォルダを閉じる
という機能をどうかプラスしては頂けないでしょうか！？
自分で記録機能を使ってみましたが、いまいちよくわかりませんでした。。。
何度も申し訳ないですが、どうかお願い致します。。。

>>514
皆さんがアドバイスされてるのは
起動ディスクを変更するスクリプトです
起動ディスクをOSXのままOS9で再起動するスクリプトは
無理なんじゃないかな>>512氏の言うようにするのが良いかと
的外れならすまん

>>518
今後の為にも、記録の使い方を憶えた方が良いかも。

スクリブト編集プログラムで新しいスクリプトウインドゥ開いて
"記録"ボタン押してから
Finderでズームボックス押して、ウインドゥ閉じて
スクリプト記録"停止"したら下のが出来たよ。
tell application "Finder"
activate
set zoomed of container window 〜 to true
close container window of 〜
end tell

後は、教えてもらったスクリプトにこれを追加すれば良いんでない。
tell application "Finder"
tell front window
set spatial view arrangement to arranged by name
set zoomed to true
close
end tell
end tell

超初心者な質問で申し訳ないのですが、
OS9のセレクタ経由、もしくは直接にプリンターを切り替える機能を付加する
OSAXを探しています。
ご教示下さい。

>>521
デスクトッププリンタは標準で入ってるOSAXで操作できる
デフォルトプリンタの切り替えはこんなんあったけどどお
ここの下のほうのUsePrinter
http://www.lazerware.com/software.html
今ぐぐってみただけで俺は使ってないのだが

>>521
まだあった
ここのset printer to
http://osaxen.com/gtq_scripting_library.html

Resorcererを操作しようとしたら、そもそも開いたファイルにtellすることすら
どうやったらいいかわからなかった・・鬱。

>522,523様
　ありがとうございます。早速トライしてみます。

OSX用のosaxが少ないなぁ。
田中ズosax移植きぼん。

Jon's commandsきぼん

今のところOS XのOSAX作ってるのって飯盛さんくらい？
Tanaka's OSAXって使った事ないんだけどdo shell scriptで代用できません？
あと、Appleのホームページ見てたらメニューとかもコントロールできるようになるみたいですね。

メニューが操れるようになったら最強やな

ttp://www.apple.com/applescript/GUI/

↑
これなんだけど、俺の勘違いかな？
だれか英語がわかる人お願いします。

>530
メニュー操れますね。記録できたら最強なんだけど

URL Access ScriptingのDownloadコマンドで実行しているダウンロード作業を
例えばダウンロード作業に10秒以上かかった時点でキャンセルする、みたいなことは可能でしょうか？

tell application "URL Access Scripting"
try
　with timeout of 10 seconds
　　download "http://〜"
　end timeout
end try
quit
end tell
だと、「ダウンロードの接続が確率するまで」に10秒以上かかる場合はtimeout処理をしてくれるのですが。。

help me please!

新規フォルダを作成したとき
毎回任意の名称をつけられる
そんなスクリプトが欲しいのですが
いろいろ調べてみても
さっぱりわからないので
ご指導お願いします

Finderで新規フォルダを作成すると毎回任意の名称をつけられますが。

>>532
難しいですね。AppleScriptは複数の処理の同時進行できないから
進行中の処理を外から制御したりできないすもんねー。うーん。。
downloadの次の行にどうでもいい処理をなんか挟むのはどうですか。
そこまで実行するのに指定時間以上かかったらタイムアウトになりますよね。。
駄目かな。

>>533
つまり、デフォルトの名称である
「名称未設定」を変えたいということ？
フォルダが作成された時点ですでに希望する名称になっててほしいんだよね？
それはOS9以前ならシステムのリソースいじった方が速いかもね。。

自動的に日付けなどの複雑な名称にしたいなら
１：Finderからフォルダを作成せずに、アップルメニューやスクリプトメニューからスクリプトを実行してフォルダを作るようにする

２：フォルダアクションでフォルダを監視して、新しい項目が追加されたら
　　「名称未設定」で始まる名称のフォルダの名前を変えるスクリプトを付ける

て感じかなあ。

ただし仕様上、フォルダアクションは開いているフォルダしか監視できないという。。
OS 9だと閉じたフォルダに対しても作用できるようにする機能拡張がありますが。
OS Xだとそもそもフォルダアクションが搭載されたのがジャガー以降だったかも。

（フォルダアクションはフォルダナビゲーションとは別ものです）

やろうとしてるのは
１．新規フォルダ作成スクリプト実行
２．ダイアログ入力画面から希望のフォルダ名入力
３．新規フォルダできあがり
ってかんじです
ダイアログ入力画面を使用するのはむりなんでしょうか？

>>537
いまいちやりたい事（それによって得る便利さ）がわからんけど簡単。
さて、ここまで言って後は答えの一例を書くくらいしかないのだが、
どうします？
（つーか二度めの書き込みでもOSすら書いてないし、これから先も細切れの応答になりそう）

どういう風にして何を調べて何をどこまでやって、どこが駄目だったのかって話があれば
アドバイスのしようもあるのだが。

display dialog
と
choose folder
と
make new folder at 〜 with properties {name:"〜"}

でも調べてみては？

>>537、これで良いかな？

tell application "Finder"
display dialog "フォルダ名" default answer "" buttons {"キャンセル", "OK"} default button 2
set fnm to text returned of result
make folder with properties {name:fnm}
end tell

>>539
それだと場所指定が抜けてる。

>>537
さあ、ここまで書いてくれた人がいたから頑張れ。

＞いろいろ調べてみても
＞さっぱりわからないので

ありえない

>>537
一体何がやりたいの？？？
キーボードからファイル名（フォルダ名）を入力するんだったら、
AppleScriptを使う必要なんか無いと思うんだが。
Finderでファイルを選択している状態でリターンキーを押すと
ファイル名を変えられるのを知らないとか？？？

>>823,845
Disk Copyで容量ぶんのイメージ作ってからDisk Copyで焼くようにしても同じ？

>>543は操作ミス。ごめん。

>>542
その可能性もあるんだけど（w
オープンセーブダイアログみたいなので任意の場所に作るのと、名前をつけるのが
セットじゃ無いの？
何かもっと大きなスクリプトのうち一部としてフォルダを作る場面と考えれば納得行くかも。

>>537
答えを書くのもどうかと思ったが・・・。
まあ初心者だとちょっとしたところでつまづくので。

set theFol to choose folder
repeat
tell application "Finder"
display dialog "フォルダ名を入力" default answer "" buttons {" cancel ", " OK "} default button 2
set theResult to result
set nameOfFolder to text returned of theResult
set btnResult to button returned of theResult
if btnResult is " cancel " then
exit repeat
else
make folder at theFol with properties {name:nameOfFolder}
end if
end tell
end repeat

OS X 10.2.3ならこれでできるはず。
OS 9.xでも動くと思うけど検証してない。

537を読むと連続して作りたいとは書いてないなぁ。
なんか勘違いのレスだったかもしれん。

まあ、このスレで「こういうスクリプトを教えて」という場合、
具体的な用途を書いてくれたほうがいい。
そうじゃないと言っている意味が分からないこともあるし、
スクリプトより効率のいい方法があるかもしれないし。

ほんまもんの初心者だった場合は
display dialogで入力した文字列を変数に収めてFinderに渡す
っていうことをイメージすること自体が出来ないかもしれないし
理解できればかなりな進歩だと思うので
スクリプトを使わないほうが便利だとしても
あえてスクリプトでやる方法を教えてあげたらいいんじゃないの

皆様、すいません
当方　OS9.2.2　です
で、>>543 さんので無事動きました
ありがとうございます

僕の説明がおかしかったです。
手入力でやるのではなく
あらかじめいくつかの名前を登録しておいて
そこから選択してフォルダ名がつけられればいいなと思ってたんです。
新規フォルダ作成　を選んだら
「どの名前のフォルダで作りますか」
と聞いてきて
ネット上で住所とか入力するときに都道府県などを選択する部分みたいな感じで
新規フォルダ名を選べればいいなと思ったんです。

スレ汚しすいませんでした。
ありがとうございました。

>>549
あふぉか。。
出してもらった回答を否定して細かい注文つけるような事を言って
どうしようという。
その部分ができないっていうなら最初からそういう聞き方しろよ。

>>545氏の例があればそんなもん簡単に作れるぞ。
手入力を選択にするくらい頭使えよ。。
あとは自助努力。

本買え。「AppleScriptリファレンス」とか。
OS9の本だけどOSXでも使えるし。
どんな手が使えるか調べる手段や知識がなけりゃ
実現したい事のために何をどう組み立てるか考えようがないしな。

とりあえず今回はchoose from list調べて使え。
検索エンジンのYahooとかGoogleくらい知ってるよな？
そういうので調べな。

>>549、コレでよいかな？

property LST : {"新規フォルダ", "本気フォルダ", "狂気フォルダ", "発狂フォルダ"}

tell application "Finder"
set fnm to (choose from list LST with prompt "ファルダ名を選択 :" OK button name "コレにする" cancel button name "ヤメ") as string
if fnm is not "false" then
make folder at desktop with properties {name:fnm}
end if
end tell

>>551
ヒマなのか？（w

>>551
使えるようで使えない。かな？

ｺｿｰﾘsage

☆　ﾁｭｰ　☆　Squeak　☆　ﾁｭｰ　☆
http://pc.2ch.net/test/read.cgi/mac/1046446110/
Squeakスレです。

sage

> ただし仕様上、フォルダアクションは開いているフォルダしか監視できないという。。
> OS Xだとそもそもフォルダアクションが搭載されたのがジャガー以降だったかも。

Jaguarでようやく実装されたフォルダアクションですが、9と違って開いていない
フォルダの監視も出来ます。つまり、フォルダに項目が追加されたら開く、という
9では出来なかったことができるです。

実際にやってる例をつけやう。こいつを付けると
・何かファイルが追加されると開く
・ファイルが全部取り除かれると閉じる
・ファイルが入っているのに閉じるとまた開く
という動作をするようになる。付けるのは
FolderActionManagerを使うと楽。
http://www.apple.co.jp/downloads/macosx/utilities/folderactionmanager.html

on adding folder items to this_folder --after receiving added_items
tell application "Finder"
if ((every file of this_folder) is not {}) then
ignoring application responses
open this_folder
end ignoring
end if
end tell
end adding folder items to
on removing folder items from this_folder --after losing deleted_items
tell application "Finder"
if ((every file of this_folder) is {}) then
ignoring application responses
close window of this_folder
end ignoring
end if
end tell
end removing folder items from
on closing folder window for this_folder
tell application "Finder"
if ((every file of this_folder) is not {}) then
ignoring application responses
open this_folder
end ignoring
end if
end tell
end closing folder window for

デスクトップの再構築をやるには
rebuild desktop
で出来た記憶があるのですが、記憶違いでしょうか？
OS 9.1です。

>>559
そんなのあったっけ?
すべてのアプリケーションとFinderを終了させるスクリプト作って、
Finder起動時にcommand+option押してたけど。

Finderの用語として、有効なのか無効なのかわからんupdateってのはある。
特定のフォルダの内容についてデスクトップファイルの更新かけたりする命令。

おれも>>560氏と同じ事やってるな。

>>559は、言われてみればそんな気も。。。だがAppleScrptリファレンスには載ってないしなあ。。
ttp://www.google.com/search?q=rebuild%20desktop%20applescript

http://216.239.39.100/search?q=cache:9frCBgUoZdYC:developer.apple.com/ja/technotes/tn2010.html+%E5%86%8D%E6%A7%8B%E7%AF%89+desktop+applescript&hl=ja&lr=lang_ja&ie=UTF-8&inlang=ja

else if execution state is rebuilding desktop then
beep 4 -- 現在デスクトップファイルを再構築中

何だっけ。

わ、すごい。
execution stateって知らなかったよ。おもしろそう。
しかしデスクトップ再構築中に呼び出されるってどんな状況？

起動時にドライブのアンマウントをしようとおもって
tell application "Finder"
put away disk "名称未設定" without asking
end tell
っていうスクリプト組んで起動項目に突っ込んだんですが
MacOS9.1/AppleScript1.5.5
の環境ではダイアログを表示せずに動くのに
MacOS9.0.4/AppleScript1.4.3
ではダイアログが表示されてしまいます。
２番目の環境でもダイアログを出さないようにする方法は無いでしょうか？

AppleScriptのバージョンを上げたらいいのではないでしょうか。

>>565
9.0.4だと1.4.3ガ最新だとおもうのです。
少なくともアップルからおとしてきた1.6は動かないと思う。
1.5.5を移植するにしてもどのファイルを動かせばよいのか判らない。

思うじゃなくてやってみれ
インストーラがダメならTomeViewerで抜け

>>566
機能拡張に入ってるAppleScript本体と、スクリプティング機能追加のフォルダ。

ただし動かなくなっても責任持てん。

>>567,568
ありがと。インストーラに弾かれたんで自力ではできないって意味でした>>566の「思う」
アドバイスの通りやってみるよ

でも9.0.4以前の環境ではダイアログを出さないようにする標準的な手段てないのかな？

put away without askingってFinderの機能だよね。
AppleScript変えて直るものなんでしょうか。
without askingが効いてなくてダイアログが出るのか
それとも違う原因で出るダイアログなのかがよーわからん。
一体どんなダイアログが出てるんだ？

そもそもB's Crewを使うと起動時にマウントするかどうか変更できる。
（初期化が必要だったかもしれんけど）

tell application "Disk Copy"
unmount disk "Kiwi"
end tell

ちょっとばかばかしい気もするけど、こういうのはあります。

>>572
なるほど発想のてんかんですね。

まだみなさんにきいた方法何も試していないのですが。試したら報告します。

read命令で一度に読み込めるのは何バイトまででしょうか？
ネット上を駆けずり回ってみたんですが見つかりませんでした。。(ﾊｧﾊｧ
教えて下さいマシ。
一応、tyr&errorで20000でNG、19000でOKな感触を得たんですが、
ギリギリまで読みたいので。。。

だれか指定したフォルダに書類を移動させるスクリプト作ってくれ
HD死んでもう作る気無い…

>>575
動くかどうかしらんけどこんなんでいいの？
アップルメニューに放り込んでちょ。
Finderで選択中のものを、フォルダ選択ダイアログで選んだとこに移動。
パーティションまたいでいるときの処理はしてないからその場合複製になる。
つーか、全然試してないから動くかどうか知らない。（ｗ

tell app "Finder"
activate
set butuList to selection
set basyo to choose folder
tell butuList
move to basyo
end tell
end tell

>>574
OS 9 以前ならTanaka's osax 使えばもっと読み込めるとおもいまつ。

>>574,577
エディタ使う手もある。読み込み量はエディタの能力によりけり。
正確なところはちょっとわからね。俺も以前トライしたとき調べたような気もしたんだが。

>>577,578
さっそくありがとうございます。なるほど、
他のソフトとの連携という線で試してみます。

追記：19000でもだめでした18000くらいがラインのようです。

保守

読み込める量って、データ量だけじゃなくて行数にも依存しとったかも。勘違いだったらスマソ。

すいませんが詳しい人教えて下さい。
アップルスクリプトの中で「"」を使いたいのですが、アップルスクリプトの
構文に使う"〜"の一部と勘違いされて構文確認でエラーが出ます。
「"」を使うためには何か特別な書式があるのでしょうか？
宜しくお願いします。。

>>582
半角の￥を"の前に打つのです。

ああ、do shell scriptとかやってるのかな？それともPerlの本文埋め込みか。
\だらけでわけわかめになるよね（ｗ　楽しいけどさ。
外部ファイルから読み込んだほうが賢いけどね。たぶん。

>>583
解決しました。ありがとうございます。助かりました。
>>584
HTML作成を自動化しようとしてました。

>>585
なるほどHTMLか。
テキスト処理は適宜Perlを呼び出して使うようにすると速くできまっせ。

すいません、ちょっと質問です。
ダイアログに"を含む文字列を表示させたいと思い、
>>583を見てその通りにやってみたのですが、巧くいきません。

display dialog \" & "この文字列とか" & \"

↑のような表記で良いのでしょうか？
ちなみに、PBで作成してAS Studioで動作させる予定です。

エスケープ文字列って何か調べてみそ。

display dialog "\"こんなんどうです\""

AS Studio使うなら、display alertが好きかも

>>588
ありがとうございます、解決しました！
エスケープ文字列はちゃんと調べてみます。

解決してねえ(;´Д`)
Script Editorで試したら巧くいったんでPBでもやってみたら、
\"の\がバックスラッシュになって、その時は良いんだけど、
それからもう一度構文確認すると、アラート……なんでやねん。
これってPBのバグ？　それとも、また漏れ間違えてるの？

がんがれ（ｗ

>>590
バックスラッシュになるのは問題ないと思うけど
それ以上はおれはXerで無いので勘弁

……で、出来ますた(ﾟ∀ﾟ;)>
徹夜して何やっとんのかと自分にツッコミ。夜明けのハイです自分。

バックスラッシュに変わってしまった\はビルドすればOKでした。
まあいざとなったらビルド後のパッケージ開けて直接スクリプトを
弄ろうかとも考えてましたが、まあ何とかなりました。ｻﾝｸｽです！

ftp://ftp.apple.com/research/sk8

SK8ってどうなん？

３０代からの使用をおすすめします。



桃井からのお知らせでした。

SK8

9.2だと立ち上がりもしねえなああ

testとゆう書類を不可視ファイルにしたいのですが、
エラーが出まくって、困ってます。
だれか教えてください。

>>597
http://klablog.okiraku-pc.net/logs/current-bbs/161/xqqrlz.html
このあたりが参考になるだろう。

すいません、SK8って何？
>>594のリンク先はftpで、ReadMeも置いてないし。
解説してるサイトとかあったら教えてください。

OS X用のもの？それとももっと古いもの？

>>598
ひどい

参考にするまでもなく実践してるもんな。

そもそも、AppleScript で書類を不可視にすることはできないような気も。

>>602
自分なりに作って見たのですが分からない…もうだめぽ

どういう環境で
どういうスクリプトを組んで
どういうエラーが出たのよ？

File Visibility　使っとけ

>>603
http://www.google.co.jp/search?q=%8B%B3%82%A6%82%C4%83N%83%93%97%7B%90%AC%83%7D%83j%83%85%83A%83%8B&ie=Shift_JIS&hl=ja&btnG=Google+%8C%9F%8D%F5&lr=

ワーイいっぱい釣れたよー

OS9でiTunes 2.0.4を使用しているのですが、iTunesの再生中の
曲を次の曲に移動させるスクリプトってどう書くのでしょう？？
ファンクションキーに割り当てて使おうと思ってるんです。自分で
やってみたら、次の曲に行くんですが、それまで使っていたアプリ
が最前面に来ず、必ずFinderが最前面に来てしまうんです。。
どう書けばいいんでしょう？

おねがいだから、こういうの聞くときは
自分の書いたスクリプトを提示してくれ。

Finderが前面に来るって事は、
・tell app "Finder"している
・ファンクションキーからアプリを実行するとFinderが前面に来る

のいずれかが考えられるな。
後者の可能性が強い気がするので、この場合コンパネの機能でファンクションキーに割り当てるのをあきらめて
OSAメニューを使ったりするべしと。Drag Thingとかでもよさげかな？

>>610
tell application "iTunes"
activate
(以下、スクリプト)

てな感じで、"activate"を入れればいいのでわ？・・・って、そういう問題ではないのか・・・。

>>611
いや、相談者の希望はおそらく、iTunesを前面に出さずに、今作業中のソフトが前面のまま
（たとえば2chブラウザとかWebブラウザとか）
iTunesの操作をしたいのだと思う。

逆転の発想でいきましょう。

まずAppleScriptの最初に、
現在アクティブなアプリの名前を取得して変数に入れておく。

しかるのちに、iTunesに指令を送り、
その後、さっきアクティブだったアプリを activateして終了。

これでどう？

現在アクティブなアプリって取得できたっけ。
たぶんファンクションキーからスクリプト呼んだ時点でスクリプト自身がフロントモストになるし。

tell app "iTunes"
next track
end

これでなんの問題もないんですが。

>>612

ファンクションキーじゃなくて、アップルメニューじゃダメかな。

ということを>>610で書いたつもり。

>>617
ｽﾏｿ。やっと、わかった。
って、オレがわかったって、しょーがないんだが(W

Quickeys上でApplescriptを書いて、ファンクションキーに割り当てれば
バックグラウンドできりかえできるよ。
playpause, next track, previous trackの３つを揃えると快適だね。

おお〜。知らぬまにこんなにもレスが。。

>>609
>>610

ミスった・・・・


>>609 -610
>>615 と同じスクリプトを書いて使ってました。

>>613
すいません。。。まだそういうスクリプト書けるレベルじゃありません・・・。

>>616
ファンクションキーの方が便利なので出来たら・・・。

>>619
Quickeysですか。試してみます。

OSA menuにキーボードショートカット割り当てられなかったっけ？

>>613 の方向で無理矢理やってみた
これを自動的に終了しないアプリにしてファンクションキーに割り当てすればいけるはず
return の間隔は各自調整してくれい

事前に起動しておかないといけないけど、、、

property currentapp : ""
on idle
set capp to (path to frontmost application as text)
if capp is not (path to me as text) then ﾂ
set currentapp to capp
return 3
end idle
on reopen
tell application "iTunes"
next track
end tell
tell application currentapp to activate
end reopen

>>623

三秒ごとに現在のアプリケーション取得するのかい！（ｗ

それでも希望通りの動作を実現できちゃったとしたらすごいかも。

>>624
ツッコミありがとう。だから無理矢理なんでつ。
３秒が気に入らなければ１秒でも、return無しの気まぐれ動作でも好きにしてくれい。
うちの環境では動いとるよん。

returnなしのデフォルトは30秒じゃなかったっけ？

OS Xならマルチタスクの恩恵で平気なのかな？マシンの性能も上がってるし。。

ちょっと前ならマシン全体のパフォーマンスがガタガタでしょうね（ｗ


これ実行中に、ほかのAppleScript実行しようとしたらどうなるんでしょ。

G3にOS9.2.2で動いてまつ。
確かに他のプロセスでリアルタイムな処理が有るとガタガタになるかも。
って疑似マルチタスクでもこれくらいはいけるんでないの。

そうか、、。やっぱ68KのKT7.5で始めた俺の感覚は古いのかな？

フォルダの名前をリアルタイムで変更して実現する時計（ｗ
とか作って、Finderの動きがカクカクなって笑った事とかありまして。

おいらもはじまりは030にKT6.0.7だで、気持ちは分かるで。
今でもCPUに負担が掛りそうとかメモリ食いそうな処理とかは
無意識に避けようとしてしまう自分が情けない。

質問です。

２つあるのですが、まず、Tanaka's OSAXでファイル名置換のドロップレットを
作っています。

on open drop_items
display dialog "さがす語は?" default answer "0"
set D_search to text returned of result
display dialog "入れ換えたい語は?" default answer ""
set D_replace to text returned of result
tell application "Finder"
repeat with obj in drop_items
set name of obj to xReplace name of obj search D_search replace D_replace
end repeat
end tell
end open

こうすると、ファイル名内のヒット文字全部を置換してしまいます。
冒頭最初のヒット文字だけ、末尾最初のヒット文字だけを置換するには
どうすればよいでしょうか。

もう１つですが、命令先アプリが起動していない時は命令をキャンセルする
スクリプトは、どう書けばよいのでしょうか。

>630の2
if (processのリストに目的アプリが含まれているか) then
end

>>631
>>26-170を参考に、思ったものが作れました。
ありがとうございました。

>>630
xReplaceてなんですか？
OS X用のTanaka's OSAXがもう出てるんでしょうか？

OS 9用では
MT Replace〜search〜replace〜with case sensitive and only first hit
で最初のヒット文字列はいけるでし。

でも、末尾はどうしよう？
ファイル名なら短いから、文字列全部ひっくり返して入れ替えてから元に戻すってのはどう？

末尾の時は下の様な処理でファイル名とさがす語を逆さまにしてリプレイスしたら
また元に戻すってかんじでどうですか。
on reverse_text(textobj)
set texttmp to every text item of textobj
set rtext to ""
repeat with str in texttmp
set rtext to str & rtext
end repeat
return rtext
end reverse_text

OSXだとPerl呼べるよな。

OS 9でもPerl使う。楽だもん。

OS9のMacPerlってちょっと長いやつ書くとメモリ不足で落ちるんだよなあ・・・

Perlの長さの方でメモリ不足に？
大量のファイル（数百）で無理だったりしましたが。
MacJPerlのメモリ不足であれば割当て増やしてしのげませんか？

たしかに僕は100行越えるコードは書かない人だけど。

>>633
ありがとうございます。頂いたものをさっそく試してみます。

Tanaka_osax_2.0.1
http://mtlab.ecn.fpu.ac.jp/tanaka_osax.html
OS9でも使えます

>>638
訂正、
xReplaceはv1.3の名前で
MT Replaceがv2.0.1の名前でした
うちのはv1.3のままでした。

ちなみにOSAX無しだとこんな感じ？（動作確認不足）

on replace_first(the_str, search_str, replace_str)
if search_str is not in the_str then return the_str
set ASTID to AppleScript's text item delimiters --デリミタ待避
set AppleScript's text item delimiters to search_str
set temp_list to text items of the_str
set replaced_part to (item 1 of temp_list) & replace_str & (item 2 of temp_list)
set temp_list to rest of temp_list
set item 1 of temp_list to replaced_part
set result_str to temp_list as text
set AppleScript's text item delimiters to ASTID --デリミタ復帰
return result_str
end replace_first

on replace_last(the_str, search_str, replace_str)
if search_str is not in the_str then return the_str
set ASTID to AppleScript's text item delimiters --デリミタ待避
set AppleScript's text item delimiters to search_str
set temp_list to text items of the_str
set replaced_part to (item -2 of temp_list) & replace_str & (item -1 of temp_list) --変更点
set temp_list to reverse of (rest of (reverse of temp_list)) --変更点
set item -1 of temp_list to replaced_part --変更点
set result_str to temp_list as text
set AppleScript's text item delimiters to ASTID --デリミタ復帰
return result_str
end replace_last

>>637
いやあ・・・そのとき書いていた奴をいま開けてみたら
600行くらいでした
AppleEventを直叩きしたりDialogDirector呼んでみたり・・いま見ても無茶してましたな

AppleEventの生書きはおもろいですよね。
MacPerl MLはもはや過疎の村っつーか無人の場所になってますが。。
あそこで終わりがた？にAppleEventの事をあれこれ訊いてるのが僕です（ｗ
教えてくれたのが>>641さんだったりして（ｗ

600行はすごいですねー。いまだかつてそんなコードを書いた事がないです。
ASでもPerlでも。

MacPerlでタスクが占有されるっていうか、実行中にほかの作業ができなくなる感じは
味わった事あるんですけどね・・。

>>640
うおう。AppleScriptな定石でやるとやっぱしたいへんですな。

>>633-640
頭から探す方は出来ました。ありがとうございました。

よく考えたら、ファイル名の後ろから探して最初のヒット文字だけを置換する
という状況は、あまりないのかなと思いながら、ハンドラ２例を
組み込もうとして、手を焼いています。しばらく寝かせます。

AppleEventの生書きってどうするとですか？
AppleScriptみたいにAppleEventの用語辞書みたいなものがあるのでしょうか？

なんでいきなり九州弁やねん。

えー、私のつたない説明でよければ。こげんするとですよ。

AppleEventの生書きは、AppleScript、Mac(J)Perl、REALbasicなどで使われます。
手段としては、（私の知ってる方法は）AppleScriptを使います。
まず、AppleScriptで目的の処理（に近いもの）を書きます。
で、Mac OS（9以前）には、AppleEventを記録するフリーウェアのコンパネみたいなのがあるので、
さっき作ったAppleScriptを実行しながら記録。
で、あとは記録されたもんをいじるだけです。
Mac(J)Perlでの具体的な使用法は
MacPerl入門とかいう本に載ってます。
場合によりけりですが、AppleScriptを呼び出すより多少速度が稼げたりするようです。

AppleScriptでも、tell app "アプリ名"でアプリケーションを探すのを避けるためとかで
＜＜＞＞こんなカッコで囲まれたAppleEventなものが登場する事アリ。

Outlook Expressで自動的に指定されたメールアドレスにメールを送るスクリプトを
友達を頼りに作ったのですがエラーが出てしまって困ってます。
だれか救助をｷﾎﾞﾝっす。。。

tell application "Outlook Express"
　　make message at end of mailbox "送信" of mail folder ""
　　　　tell message 0
　　　　　　set field "To" to 送信先アドレス
　　　　　　set field "Subject" to メールタイトル
　　　　　　set field "" to 本文
　　　　end tell
　　queue message 0