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

気分新たに逝きましょう。

１　http://mentai.2ch.net/test/read.cgi?bbs=mac&key=957215209
２　http://piza.2ch.net/test/read.cgi?bbs=mac&key=962044994&ls=50

ブラウザのたくさん開いたウインドウを整頓するスクリプト。
ネスケやＩＥでも大丈夫なはず。
もっと手短に書けるはず。。。

on run
tell application "iCab"
set hida to 6
set ue to 42
set migi to 770
set shita to 600
set mado to number of window
repeat mado times
set bounds of window mado to {hida, ue, migi, shita}
set mado to mado - 1
if mado = 0 then exit repeat
set hida to hida + 5
set ue to ue + 5
set migi to migi + 5
set shita to shita + 5
end repeat
end tell
end run

>2
IEではエラーです。
IEでやるなら、"DoScript"でJavaScriptを実行させるしかないみたいです。

IEで、1さんの作ったスクリプトと同じ動作をするものを作ってみました。
--
tell application "Internet Explorer"
set wlist to ListWindows
set ct to 0
repeat with i in wlist
Activate i
do script "window.moveTo(" & ct * 10 & "," & ct * 20 & ");"
set ct to ct + 1
end repeat
end tell
--

腐れさんどーも。用語説明を見たら、IEにはAppleScriptの「window」がないんですな。
ちなみにネスケでは動きました。
で、２の手短なやつ。ネスケ、iCab用。

on run
tell application "iCab"
set {hida, ue, migi, shita} to {6, 42, 770, 600}
set mado to number of window
repeat while mado > 0
set bounds of window mado to {hida, ue, migi, shita}
set mado to mado - 1
set {hida, ue, migi, shita} to {hida + 5, ue + 5, migi + 5, shita + 5}
end repeat
end tell
end run

サルベージしてみよう

age

感動。

--選択範囲を開く。板上で「ttp://〜」なんてのがある場合に「wwwから」選択してどうぞ。
tell application "iCab"
tell window 1
set selectedurl to selection
OpenURL selectedurl toWindow 0
end tell
end tell


--ページをexciteの翻訳ページを使って英日翻訳
tell application "iCab"
Activate
set currenturl to URL of window 1
set hon to "http://www.excite.co.jp/world/url/body/?body="
set hon2 to "&trans_type=enja-ATL"
OpenURL (hon & currenturl & hon2) toWindow 0
end tell

万年カレンダースクリプトを作ってみました。
AppleScript内部の日付関数を全く使わず、
グレゴリオ暦の日付から曜日を求める公式を使いました。
AppleScriptの日付形式って、WeekdayとMonthが数字でなく英語表示なので
加工するとき鬱陶しいですが、こういう手もあるということで。
---

on run
set flag to false
repeat until flag is true
set dt to inputdate()
if (length of (dt as text) is 8) then set flag to true
end repeat

set y to text 1 thru 4 of dt
set m to text 5 thru 6 of dt
set d to text 7 thru 8 of dt

set a to (12 - m) div 10
set b to (16 * a + 13 * m + 8) div 5
set c to (5 * (y - a)) div 4
set e to y - a div 100
set f to e div 4
set w to ((b + c + d - e + f) mod 7) + 1

set wd to "月火水木金土日"
display dialog y & "年" & m & "月" & d & "日は、" & text w thru w of wd & "曜日です。"
end run

on inputdate()
text returned of (display dialog "曜日を知りたい年月日を数字8ケタで入力
例）20000918" default answer "")
end inputdate

IEのボタンバーにある、「メール」ボタンから複数のメールソフトを起動できませんか？
起動させたいソフトは、OEとポスペなんですが。

>>10　アンチョコの小ネタみたいでおもろいっす。アップルは月と曜日の書式を
なんとかしてほしいもんです。OSAXで解決できるとはいえ。

>>11　無理です。もしワンタッチで２つのソフトを起動したいのなら、単純に
activate application "Outlook Express"
activate application "Postpet"
これだけのスクリプトをアプリケーション形式で保存するですな。

>>12
無理ですか。。。代案ありがとうございます。

exciteで翻訳してくれるスクリプト
めちゃ重宝してます。ありがとう。

最近よいネタないっすか？

9.1でアップルスクリプトのバージョンは上がってますか？

1.5.5だよ。

AppleScriptをREALbasicで使えるAppleEventに変換するツール無いですか？

--選択範囲の語句でgoogle検索
tell application "iCab"
tell window 1
set surl to selection
set google to "http://www.google.com/search?num=30&hl=ja&safe=off&lr=&q="
OpenURL (google & surl) toWindow 0
end tell
end tell


なお、選択範囲に半角スペースや記号が入ると正常に動作しません・・・

あげとこか。

>>19
地味だけど便利でした。ごちそうさまです。お気に入りメニューバーに
AppleScript用フォルダを登録して、いろいろつっこんでますが
一番上にこれ置きました（あとは助けてネスコ、トップウィンドウを
Excite/Amikaiで翻訳、webプロクシ通してリロードなど）。

>>18
ここに手がかりがあるかも
mtlab.ecn.fpu.ac.jp/webcon_resources.html

--dat2行きになってしまったログを通常のスレッド形式で読む
--DAT2HTML（win用）のアップルスクリプト版です。
tell application "iCab"
set currenturl to URL of window 1
set currenturl to MT Replace currenturl search "key=" replace "key=../dat2/"
OpenURL currenturl
end tell

＃Tanaka's OSAXを「スクリプティング機能拡張フォルダ」に入れておく必要があります。
mtlab.ecn.fpu.ac.jp/tanaka_osax.html

たぶん万能ではないです。

一旦ダウンロードしたものではなく、直接ブラウザでアクセスしたら
dat2行きになっていた場合にしか使えません。
dat2ファイル自体が消えていたらダメです。（>>1の１とか）

ワンタッチでサウンド入力ポートを切り替えるにはどうしたらいいですか?

20周年記念Macなんですが，テレビを見るたびにサウンド入力ポートをCD-TV-ビデオ
に切り替えなければ音が出ないんです．放っておくとサウンド入力ポートが「なし」
になってしまいます．

サウンド入力切替してからAppleビデオプレーヤーを起動するスクリプトを書きたいん
です．

age

>24
OS9.1限定だけど
--
tell application "Sound Scripting"
set sound input source to "ビデオ"
end tell
run application "Apple ビデオプレーヤ"
--

>>26 ありがとうございます．G3カード入れて9.1にしてますから
きっとバッチリだと思います．明日試させていただきます．

9さんのの2番目の、excite翻訳のIE版。
一番上のウインドウを和訳して進ウインドウに表示します。
tell application "Internet Explorer"
set q to item 1 of (GetWindowInfo (item 1 of (ListWindows)))
OpenURL "http://www.excite.co.jp/world/url/body/?body=" & q & "&trans_type=enja-ATL" toWindow 0
end tell

>>21
難しいですね、pratical use of AE in RB
AppleScript書けたからといって理解の助けにならないのが辛いですね。
だれかAppleScript to REALbasicコンパイラ作ってくれないですかね。

アプリを「隠す」ことってAppleScriptでできますか？

アプリをプロセス名で指定するなら
tell application "Finder"
set visible of process "Netscape Communicatorｪ" to false
end tell

クリエータタイプで指定するなら
tell application "Finder"
set visible of every process where creator type = "MOSS" to false
end tell

あえ

>>26 実行してみました．スクリプト編集プログラムから実行したらうまく
いくんですが，実行専用アプリケーションとして保存すると，「スタックが
あふれました」といわれてしまいます．

恐縮ですが，なんとかならないでしょうか？

http://www.bbspink.com/kitchen/index2.html　　　　　　　　　　　　

property MPEGHead : {0, 0, 1, 186, 33, 0, 1, 0, 9, 128, 27, 145, 0, 0, 1, 187, 0, 9, 128, 27, 145, 1, 225, 255, 224, 224, 46, 0, 0, 1, 190, 8, 243, 15}
on open FileList
tell application "Finder"
repeat with AktObj in FileList
set TempStr to (ASCII character 0)
repeat with x from 2 to (count of MPEGHead) by 1
set TempStr to TempStr & (ASCII character (item x of MPEGHead as integer))
end repeat
set creator type of AktObj to "TVOD"
set file type of AktObj to "MPEG"
set OpnHndl to open for access file AktObj with write permission
write TempStr to OpnHndl starting at 0
close access OpnHndl
end repeat
end tell
end open

>>31 ありがとうございます。AppearanceChangerというAppleScript
http://www.vector.co.jp/soft/mac/util/se099025.html
を以下のように改造して、FinderPopのメニューに登録して
快適に使っています。
on open obj
tell application "アピアランス"
set picture file of monitor 1 to no picture
set picture file of monitor 1 to obj
set picture positioning of monitor 1 to tiled
end tell
end open
tell application "Finder"
set visible of process "アピアランス" to false
end tell

>33
Finderの「情報を見る...」ウインドウで、アプレットのメモリを増やしてみてはどうでしょう。
（これしか思いつきません...申し訳ないです）

すみません、end openを最後にしないとダメでした。
on open obj
tell application "アピアランス"
set picture file of monitor 1 to no picture
set picture file of monitor 1 to obj
set picture positioning of monitor 1 to tiled
end tell
tell application "Finder"
set visible of process "アピアランス" to false
end tell
end open

>36
こうすると、最初から「アピアランス」コンパネを表示しませんよ。
---
on open obj
launch application "アピアランス"
tell application "アピアランス"
set picture file of monitor 1 to no picture
set picture file of monitor 1 to obj
set picture positioning of monitor 1 to tiled
end tell
quit application "アピアランス"
end open
---

>>39 ありがとうございます。さっそく試してみたんですが、
アピアランスは起動するのに3,4秒かかってしまうので、
毎回起動／終了すると時間がかかってしまうんですよね。
ちょっと悔しいですが、アピアランスを隠す方法で行こうと
思います。

Pro Keyboradを買ったので、めでたくキーボード上から
パソコンの起動＆終了ができなくなりました。
起動の方はまぁ覚悟していたのですが、終了をメニューバーから
選択して終わらせるのがけっこう面倒なことに気がつきました。
それで、拡張キーに「パソコンを終了させるスクリプト」を
割当てたらいいんじゃないかと思いまして。

プログラムが書けないのでとりあえず、アップルスクリプトで
行動を記録させようと思ったんですが、パソコンを終了させちゃうと
アップルスクリプトも終わっちゃうわけで、つまり保存できま
せんでした（苦笑）

そんなわけで、「パソコンを終了させるスクリプト」を作って
いる方いらはりましたら、ぜひお分け下さいませ...。

tell application "Finder"
shut down
end tell

これだけ。

>>42
ありがとうございます〜！！
さっそく使ってみます。

これは読んでおけ！
て、言う本ありますか？

>>44 さんに便乗で、このサイトいいよ、っていうのありますか？

>44,45
私は、
AppleScript タコ入門
http://AppleScript%20タコ入門/
AppleScript スクリプターズ ガイド
http://www.sh.rim.or.jp/~shuichi/AppleScript/ScriptersGuide/
に目を通した後で、
ソフトバンク刊「AppleScriptリファレンス」を辞書替わりに使ってます。

>>46
サンクスです。
これから見に行って見ます。

ごめんなさい、AppleScript タコ入門のURLは
http://www.macos.com/octopus/
でした。

>>37 ダメでした．残念．

ビデオプレーヤに話しかけるとダメなようなので，Finderにビデオプレーヤを
起動するように命令するようにしたらうまくいきました．アップルメニューに
ビデオプレーヤのエイリアスが入ってるとして，
tell application "Sound Scripting"
set sound input source to "CD-TV-ビデオ"
end tell
tell application "Finder"
activate
select file "Apple ビデオプレーヤ" of folder "アップルメニュー" of folder "システムフォルダ" of startup disk
open selection
end tell

これで成功．腐れさん，お世話かけました．

--選択範囲の語句でgoogle検索（改訂）
tell application "iCab"
tell window 1
set surl to selection
set AppleScript's text item delimiters to " "
set lsurl to every text item of surl
set AppleScript's text item delimiters to "+"
set surl to lsurl as text
set google to "http://www.google.com/search?num=30&hl=ja&safe=off&lr=&q="
OpenURL (google & surl) toWindow 0
end tell
end tell

＃>>19の改訂版。
選択範囲に半角スペースがあると検索が機能しなかったが、
それを+に置き換えることで解決。あえてMTreplaceを使わずに。。。

"を含む文章を表示というか、スクリプト内で使用するにはどうしたらいいですか？
"""にするとエラーになっちゃうし。困っとります。

"\""

tell application "iCab"
tell window 1
set surl to selection
set AppleScript's text item delimiters to " "
set lsurl to every text item of surl
set AppleScript's text item delimiters to "+"
set surl to lsurl as text
set hon to "http://sangenjaya.arc.net.my/cgi-bin/senttra_dispatch.cgi?pair=EJ&sent="
OpenURL (hon & surl) toWindow 0
end tell
end tell
end tell

腐れさんのと１９さんのを足してみました。iCabで開いてるページの選択範囲を翻訳です。もう誰かが書いたかな。

tell application "iCab"
tell window 1
set surl to selection
set AppleScript's text item delimiters to "
"
set lsurl to every text item of surl
set AppleScript's text item delimiters to "%0D%0A"
set surl to lsurl as text
set AppleScript's text item delimiters to " "
set lsurl2 to every text item of surl
set AppleScript's text item delimiters to "+"
set surl to lsurl2 as text
set hon to "http://sangenjaya.arc.net.my/cgi-bin/senttra_dispatch.cgi?pair=EJ&sent="
OpenURL (hon & surl) toWindow 0
end tell
end tell

段落があるとうまくいかなかったのでもう１回。

特別なアプリケーションを使わず、OS9.1の機能だけでAppleScriptでpingを打つことって出来る？

9.1の同梱の WhatRoute 1.7でPing打てる

あっ、WhatRouteってAS対応なんですね。知らなかった。
---
tell application "WhatRoute 1.7"
ping "192.168.0.1"
end tell
---

age

初心者質問で聞くべきなのかもしれませんが
OE5でバックアップの為にテキストで書き出したいのですが
一つ一つじゃないと書き出せないようなのです。
(自分がしらないだけかも・・・）
出来ればアップルスクリプトでフォルダ単位で
テキストに書き出せたらなぁ
と、思うのですが無理でしょうか？

>>60
いや多分できると思うよ。
でも、めんどくせーのでやる気なし。
もし、作ったらなんかくれるっていうんだったら、やってもいい。

OE持ってないけど、コマンド一覧を見るかぎり１個１個セーブしないとダメみたいね。
なんだかんだいってASはバッチ処理には向かないと思う。

>>61
わしの描いたかわいい女の子のイラストあげるから作ってやってください。
...と思ったが、OEだそうなのでやめやめ。

>>62
>なんだかんだいってASはバッチ処理には向かないと思う。

スクリプトグルーのわたくしめに対して、
手ひどい言葉を吐きましたわね。
・・・な〜んて。
いや、最近ではASに対応したアプリケーションが充実してきたので、
バッチ処理いけるよ。
Windowsの方が逆に大変。WSH（WinのASみたいなやつね。）アプリって少ないからね。
まぁDOSアプリ？を呼び出していけば、できないことはないんだろうけど。
実際、同じ事をやらせてみても、Winの方がすげー大変。
アプリ多そうに見えて、うまく他のアプリと連携できるように
設計されたものが少ないと思う。（まぁこれからだろうけどね。）
たとえば、
「ある拡張子のついたファイルを自動で圧縮して、FTPにアップして、
アップしたファイルの一覧をメールで送るってえのをやらせる」
としたときに、MacだとFinderとStuffitとFetchとOE（あるいはユードラ）あたりを
組み合わせて、自動でやれるなぁとすぐに検討がつくし、実際やれるんだけど、
WinだとWSHに対応したアプリが少ないし、あー、じゃあ圧縮はDOS系のアプリ探して、
FTPもえっと自動でやれるやつは、あ、Ws-FTP-Proか。でもって、こいつは、
独自のスクリプト持ってるから、じゃあそれのスクリプト作って、呼び出して、
・・・キィー!!!!ってなる場合が多い。
まぁ、こういうのはUNIX系の方が得意中の得意って思うんだけど、
ASは良くやってると思うよ。
処理速度に関しては、ASで文字解析とかの処理を全部やらせようと
するから遅いんであって、MacPerlとかと組み合わせてやると、
かなり快適なの。

勉強になるなぁ
サンクス>>64

>60
---
tell application "Outlook Express"
set fldnm to name of every ﾇclass cFldﾈ
set foltotxt to choose from list fldnm with prompt "テキスト書き出しを行うフォルダを選択して下さい。" with multiple selections allowed
end tell
tell application "Finder"
set dist to choose folder with prompt "出力されたテキストを保存する場所を指定して下さい。"
end tell

repeat with k in foltotxt
open for access file ((dist as text) & (k as text)) with write permission returning FL
tell application "Outlook Express"
set eof FL to 0
set MailCount to count ﾇclass msg ﾈ of ﾇclass cFldﾈ (k as text)
repeat with i from 1 to MailCount
set s to "From ???@??? Sat Dec 11 20:43:11 1999" & return
set sb to "Subject: " & (ﾇclass subjﾈ of ﾇclass msg ﾈ i of ﾇclass cFldﾈ (k as text)) & return
set sd to ﾇclass sndrﾈ of ﾇclass msg ﾈ i of ﾇclass cFldﾈ (k as text)
set fr to "From: " & ﾇclass dspnﾈ of sd & "<" & ﾇclass addrﾈ of sd & ">" & return
set tm to ﾇclass timsﾈ of ﾇclass msg ﾈ i of ﾇclass cFldﾈ (k as text)
set y to year of tm
set m to text from character 1 to 3 of (month of tm as text)
set d to day of tm
set w to text from character 1 to 3 of (weekday of tm as text)
set t to time string of tm
set tt to "Date: " & w & ", " & d & " " & m & " " & y & " " & t
set ct to ﾇclass ctntﾈ of ﾇclass msg ﾈ i of ﾇclass cFldﾈ (k as text)
write s & sb & fr & tt & return & return & ct & return to FL
end repeat
close access FL
end tell
end repeat
display dialog "テキスト書き出しが完了しました。"
---

ｽｹﾞｰ　ﾏﾝｾｰ

>66
これは新手のトロイだ！

このスレでAppleScriptに興味をもってちょっとかじりはじめた初心者です。
デスクトップピクチャを変えるスクリプトを書こうとして行き詰まりました。

記録を使ったりしてとりあえず画像をいれてあるフォルダを放り込むものはできました。

tell application "アピアランス"
set picture file of monitor 1 to alias "Macintosh HD:画像フォルダ:デスクトップピクチャ:"
set picture positioning of monitor 1 to tiled
quit
end tell

で、次に、実行するたびにフォルダから画像ファイルをひとつずつ順番にとってくるものを
作ろうとして、どうしたらいいのかわからなくなりました。
なにかヒントなど教えてもらえませんか。

>69
「実行するたびにひとつずつ順番に」って事は、

1.そのフォルダに入っている画像に順番をつける必要がある
2.現在表示中の画像を記憶しておく必要がある

ってことになります。
1.に対しては、Fileのindexを使用すると良いでしょう。
スクリプト編集プログラムで、「制御」メニューから「結果」と「履歴」のウインドウを開いて
---
tell application "Finder"
set a to choose folder
get index of every file of a
end tell
---
を実行すると参考になるかも。

2.については
・Open for access〜Write&Readを使って、初期設定ファイルに保存する
・Propertyでスクリプト内に保存する
の二つがありますが、下の方が楽です。
http://www.macos.com/octopus/LetsAS/scriptproperty.html
が参考になるかも。

これだけではなんなので、5秒おきにデスクトップピクチャを変更するスクリプトを作ってみました。
あとは、どうやって順番や現在のピクチャを保持して、
それを反映させるかを考えてもらえれば...。
極力わかりやすく書いたつもりですけど、わからんかったら聞いて下さいね。
---
tell application "Finder"
set theFolder to choose folder
set FileList to every file of theFolder
end tell

repeat with i in FileList
tell application "Finder"
set theFile to i as alias
end tell
tell application "アピアランス"
set picture file of monitor 1 to theFile
set picture positioning of monitor 1 to tiled
end tell
delay 5
end repeat

＞腐れさん
的確なアドバイス、ありがとうございました！
まさに７０の１、２で指摘していただいた２点がわからなかったところでした。
いろいろ試してみて、なんとか自分の思った通りに動いているような（気がする^^;）
ものができました。
たぶん無駄も多いと思いますが・・・。

property MyData : 1
tell application "Finder"
set theFolder to folder "Macintosh HD:画像フォルダ:デスクトップピクチャ:"
set PictIndex to index of every file of alias "Macintosh HD:画像フォルダ:デスクトップピクチャ:"
end tell

set MyData to MyData + 1
tell application "Finder"
set theFile to item MyData of theFolder as alias
end tell
tell application "アピアランス"
set picture file of monitor 1 to theFile
set picture positioning of monitor 1 to tiled
end tell

ところで３行目と４行目に同じ指定（"Macintosh HD:画像フォルダ…〜）が
続いてしまいました。
4行目はtheFolderでいいのかなとおもったんですが、うまくいかず。
この場合はtheFolderにはフォルダの位置の情報が入っていないということでしょうか。

なんにせよ、とにかく動いてくれてすごくうれしいです。

>72
うまく動いておめでとうございます。
4行目はなくても動きますね。
無駄のない、良いスクリプトだと思います。

エイリアスをドロップすると、元のファイル／フォルダではなくエイ
リアスそのもの（のファイル名）を加工したいのですが、どうすれば？

>74
確かに、
---
on open a
tell application "Finder"
display dialog (alias of (info for a)) as text
end tell
end open
--
でエイリアスをドラッグ＆ドロップすると「False」になってしまいますね。
なにか裏技あるんでしょうか...

---
on open
tell application "Finder"
set a to selection
display dialog (alias of (info for a)) as text
end tell
end open
---
だとTrueになりました。(^^)

ちゅうことで、以下のスクリプトで如何でしょう。
---
on open
tell application "Finder"
set name of selection to "名無しさん"
end tell
end open
---

74です
普通に考えていたら出来なかったわけですね、
どうもありがとうです。

4行目が意味なかったですね(^^;
このままだとフォルダ内のファイルの数を越えるとエラーになってしまうので
少し付け加えました。

property MyData : 1
tell application "Finder"
set theFolder to folder "Macintosh HD:一時置き場:デスクトップピクチャ:"
set PictIndex to index of every file of alias "Macintosh HD:一時置き場:デスクトップピクチャ:"
set PictIndex to number of PictIndex
end tell

set MyData to MyData + 1
if MyData > PictIndex then
set MyData to 1
end if
以下同様

htmlドキュメントの特定部分を抜き出す操作、たとえば
http://www8.big.or.jp/~000/CyberSyndrome/pla.html
とかのプロクシリストの中で先頭にあるプロクシの文字列データを
コピーして、それを「インターネット設定」のweb用ファイア
ウォールへ設定する、なんてことはASでも可能なんでしょうか？
ちょっと無理？

IEでgoogle検索するAS作ったのですが、これで大丈夫ですかね？
間違ってたら直して下さい。

tell application "Internet Explorer"
set surl to selected text
set AppleScript's text item delimiters to " "
set lsurl to every text item of surl
set AppleScript's text item delimiters to "+"
set surl to lsurl as text
set google to "http://www.google.com/search?num=30&hl=ja&safe=off&lr=&q="
OpenURL (google & surl) toWindow 0
end tell

あと、日本語のページを検索するってのも作ってみたいんだけど
どうすればいいんですか？

日本語のページだけを検索する場合は
googleのURL部分の「lr=」を「lr=lang_ja」にすればよいです。

>81さん
ありがとうございます。出来ました。

最近のOSは英語しか対応していないので日本語でAS覚えた私は悲しい状況にいるぞ！

日本語AppleScriptを見て、「ぴゅう太」を思い出した貴方は素敵。

あの伝説の16bitマシンを・・・

画期的とも言える16bitだったのに異常に動きが遅かったあのマシンを・・・

一定時間マウスとかの操作がなかったら、ブラウザの特定の画面が
起ち上がっているようにしたいのですが。

まず、一定時間したら動作開始するスクリプトってわかりますか？

>87
Delay n
(n=秒数)
で、何秒間か「何もしない」事は可能ですけど
マウスやキー入力を監視することは、標準のASでは不可能です。

OSAXは？

>89
調べてみました。
Jon's commands OSAXでマウスの状態は獲得できるけれど、
キープレス監視は無さそう。

特定のCGIコマンドを自動送信するスクリプトを組む事は可能ですか？
例えば。2chで特定のスレッドを一定時間毎にage続けるような…

それできるんなら
たいへんなことになりますがな。

2ch崩壊

>>91
世間一般にはそれを「攻撃」と言いますよ

システムに常駐するQuickeysでできないか、検討してみますが。
英語ばっかしのpdfで探すのもしんどい。でも無理だろうな(^^:)

別の方法論を考えねば。
定期的に実行するけど、操作が入ったら中断するとか。

ドラッグ＆ドロップでFetch を立ち上げて、指定したdirectory に
ファイルをアップしてくれるアップルスクリプトを手に入れたのだ
けど、なんだかうまく行かない。撃つ田志乃宇。

そんなの「ネットワークブラウザ」使えばよろしいがな。

>96
URL Scripting additionでできますね。
時間がないから実例挙げられないけれど、ヒマな時に作ってみます。

>95
on idle 〜
end on
を使用すれば、アイドル時間（システムがヒマな時）に実行するスクリプトが書けますよ。

>91-94
KeyQuencer + AppleScriptでできます。

腐れ様、
４時間ほどかけてFetch用のスクリプトを探し回ったら、何十個目かでよう
やく問題なく動くものが出てきました。スクリプトを見るとどれも同じに
見えるのですが・・・。

アプレットとかドロップレットそれ自身を指定するにはどうすれば良いですか？

今は　tell app "〜〜〜"　で自分を指定してますけど、これだと不便なんですよね。

>102
tell me
です。
「スクリプト編集プログラム」で編集中は、
この「me」は「スクリプト編集プログラム」自体を指すのでご注意を。

おおありがと。どこにかいてあるんだろか、うちのには載ってないよ(^^:)
Quickeysを併用するとまた暴走してしまうだろうから、アプスクだけでやるか。

完成までは遠い道のりでしょうが、頑張ります。

>96
何度も使えば使うほど楽になる、
ドラッグ&ドロップで指定ディレクトリにファイルをアップロードするスクリプト。
アップロードするファイルも記憶させて方が楽なんだろうか...
---
property URLList : {}
property theLastURL : "ftp://"
on open (theFile)
set theDialog to display dialog "アップロードするディレクトリを指定して下さい" default answer theLastURL buttons {"リストから選択", "キャンセル", "OK"} default button "OK"
set theButton to button returned of theDialog
set theURL to text returned of theDialog
if theButton is "リストから選択" then
set theURL to choose from list URLList
else
set the end of URLList to theURL
end if
set theFile to choose file
tell application "URL Access Scripting"
try
upload theFile to theURL replacing yes with progress
on error errmes number errNo
display dialog (errNo as text) & ":" & errmes
end try
end tell
set theLastURL to theURL
end open
---

ちなみに、IDとパスワードは
URLを「ftp://ID:[email protected],jp/abcde/」
とすればOKです。

鬱だ。
ドラッグ＆ドロップしてるのに、ファイルの在所を尋ねてしまっている...
↓が正しいです。
---
property URLList : {}
property theLastURL : "ftp://"
on open (theFile)
set theDialog to display dialog "アップロードするディレクトリを指定して下さい" default answer theLastURL buttons {"リストから選択", "キャンセル", "OK"} default button "OK"
set theButton to button returned of theDialog
set theURL to text returned of theDialog
if theButton is "リストから選択" then
set theURL to choose from list URLList
else
set the end of URLList to theURL
end if
tell application "URL Access Scripting"
try
upload theFile to theURL replacing yes with progress
on error errmes number errNo
display dialog (errNo as text) & ":" & errmes
end try
end tell
set theLastURL to theURL
end open

長々とすみません。
エラー回避と、リストに多重登録されるバグをFixしたもの。
---
property URLList : {}
property theLastURL : "ftp://"
on open (theFile)
set theDialog to display dialog "アップロードするディレクトリを指定して下さい" default answer theLastURL buttons {"リストから選択", "キャンセル", "OK"} default button "OK"
set theButton to button returned of theDialog
set theURL to text returned of theDialog
if theButton is "リストから選択" then
try
set theURL to choose from list URLList
end try
else
set the end of URLList to theURL
end if
tell application "URL Access Scripting"
try
upload theFile to theURL replacing yes with progress
on error errmes number errNo
display dialog (errNo as text) & ":" & errmes
end try
end tell
set flag to false
repeat with i in URLList
if i is theLastURL then
set flag to true
exit repeat
end if
if flag is false then set theLastURL to theURL
end repeat
end open

申し訳ありません。
今度こそバグフィックス...
---
property URLList : {}
property theLastURL : "ftp://"
on open (theFile)
set theDialog to display dialog "アップロードするディレクトリを指定して下さい" default answer theLastURL buttons {"リストから選択", "キャンセル", "OK"} default button "OK"
set theButton to button returned of theDialog
set theURL to text returned of theDialog
if theButton is "リストから選択" then
try
set theURL to choose from list URLList
end try
else
set flag to false
repeat with i in URLList
if i is theLastURL then
set flag to true
exit repeat
end if
end repeat
if flag is false then set the end of URLList to theURL
end if
tell application "URL Access Scripting"
try
upload theFile to theURL replacing yes with progress
on error errmes number errNo
display dialog (errNo as text) & ":" & errmes
end try
end tell
set theLastURL to theURL
end open

まだOS8.5 でURL Access Scripting が使えないようです。
スクリプトは保存したのでOS アップグレードしたときに使わせてもらいます。

＞「スクリプト編集プログラム」で編集中は、
＞この「me」は「スクリプト編集プログラム」自体を指すのでご注意を。

ありがとうございます。そうだったんですか、勉強になりました。

なんでアップルスクリプトはこうも解りにくいのか？

普通の言語みたいに綺麗に体系づけた解説がないんだ。本もWebも。
なんか独りよがりで使えないものばかり。

http://homepage1.nifty.com/ton_b/
とりあえず用語辞書はでてるなあ。
解説書はつやの氏のアレくらいだな。
まーぱの連載の奴は本やWebに出ないのか？

マクロっていうものとは違うの？
そもそも何だろ？
わたしiMacだけどできるのかな

＞１１３
さっそくヘルプをインストールしたよ　さんきゅ！

「実行後、自動的に終了しない」を選んで保存してみた。
動作するのは良いのだけど、これどうやったら止められるの？

再起動しかないのか？

ForceQuit
command+option+esc

tell application ○○
quit
end tell
という終了用スクリプトを作っておくしかないかな。
Jedit用のJLAAというのがそうだし。

＞117　118

おおサンキュ。ネスケも全部落ちたけど、助かった。
なんか止めるifでも入れられればいいのですが、まず、118さんのやります。

age

>113
この用語辞書の人（とんびさん=大串さん）がまーぱの連載の人ですよん。

>>114
一般にマクロといわれるものはあるアプリに対してのみ
(ExcelとかWordとか)に効くものだけど、Apple Scriptは
(Apple Script対応の)いろんなアプリに対して効きます。
Finder操作とあるアプリの連携、とかもできるし。

比較的わかりやすい文法で記述できるとか、記述できなくても
キー操作の記録、再生である程度使えるとかいう点は、マクロ
にも似ているね。

iMacでもできますよ。
起動ディスク/Apple エクストラ/AppleScript/AppleScript について
を読んでみましょう(OS9.1だとApplications (Mac OS 9)の中にある)。
より複雑な事をやるには上記リンク先とか専門書とか参照。

> 122

そういった「コマンドを打ち込む」のを排除して
「GUIで誰でも使いやすく」がMacの思想だったと思うのだけど
AppleScriptを見ると何となく破綻してるように思う。
便利だけどね。

OS-Xではなおさらか…。

「GUIで誰でも使いやすく」を具現化したのが、
リアルタイムでの「記録」なんじゃないかと。
それにしてはできることが少なすぎるけどさ。。

＞「GUIで誰でも使いやすく」がMacの思想だったと思うのだけど


妄想はヤメレ。
すべてはエンゲルバートのパクリ。

無知無恥君は怖いね。

おまえ「ソフトウェア」の意味しらんだろ？

＞１２３

なことはないでしょう。通常の初心者はApplescript使わないだろうし。
必要に応じてＧＵＩとコマンドを併用するのがベストでしょう。

それに、社外にはQuickeysという優れたＧＵＩ自動処理ものが
あったわけだし。

ホントにソフトウェアの意味やエンゲルバートの業績を知っていれば
そういうカキコはしないと思うす(笑)
http://www.cs.stir.ac.uk/~sjr/origins.html

＞１２５
ジョブス陣営の貢献ほとんどゼロじゃん。

「GUIは初心者には向いていますが、あくまで簡単で自然なインターフェースが優れているのならば、人は大人になっても三輪車に乗っているはずでしょう」
〜ＧＵＩとマウスの父祖、ダグラス・エンゲルバート〜

エンゲルバート博士のＧＵＩアイディアは、米国の半自動式防空管制システム「ＳＡＧＥ」
のインターフェースとしてＡＲＰＡに見初められ支援を受ける。

その結果エンゲルバート博士が行ったデモンストレーションを見て
まねしようとしたのがアランケイ。

それをパクって金儲けしようとしたのがジョブス。

うちのばあちゃん３輪自転車乗ってるよ。後ろにかごがあるやつ。

ピザ屋さんのバイクも３輪だよな

名無しさん＠お腹いっぱい。:キーボードのパワーキーを押した時に出てくるダイアログを出すのはスクリプトで出来ますか？

スクリプトでボタンを押すのは無理です。
gloomy alert という自動ボタン押しソフトでやってみましょう。
って、できるかな？

>>128
>ジョブス陣営の貢献ほとんどゼロじゃん。

「MacはAltoをパクっただけ、Appleは何らGUIの進化に貢献してない」なんてのは
妄説もいいとこだ。Altoのスクリーンショット見たことある奴なら絶対そんなこと
言えないはず。ていうか、おまえ前に一度その話題振ってボロボロに論破されてた
だろうが。STARの説明まで一からされたのに、なんでもう一度同じことすんだ？
ただの低能煽りか？　それとも単なる鳥頭なのか？　もう一回書くのはめんどくさい
から、ここ↓の下の方読んで寝ろ。
http://www.mackido.com/Innovation/Desktop.html
MacKiDo/Innovation/Desktop

　おまえ邪魔だから、これ以上書き込みたいならApplescriptに関連した話しろ。
それができないなら、自分のスレ立てろ。ちゃんと付き合ってやるから。まともな
情報交換スレにクビ突っ込んでみんなを不愉快にさせるな。

http://mypage.goplay.com/kimoto/machelp/autodrive.html
AppleScriptと連携してボタンを押したりそのほか。
osaxでどうにかならんでもないのか？

私はCubeで以下をアプレットにしてF1キーに割り当てて使ってます。
アプレットゆえにボタンが3つまでしか表示できないのと、キーボード
ショートカットが使えないのが難ですが…

tell application "Finder"
display dialog "コンピュータを今システム終了してもよろしいですか?" buttons {"再起動", "キャンセル", "システム終了"} default button "システム終了" with icon 2 giving up after 50
if button returned of result = "再起動" then
restart
---else if button returned of result = "スリープ" then
---sleep
else if button returned of result = "システム終了" then
shut down
else if gave up of result is true then
---(ダイアログを閉じる)
end if
end tell

とりあえずMacOSは使いにくいＯＳってことで。

このスレ見て、自分でも作ってみたんですけど、
「記録」で作るにあたって何か気を付けることってあった？
あと、もしスクリプトが間違ってた場合、何か被害ある？（藁
実行して特に問題なかったけど。。。
あと、実行専用で保存...の「コンパイル済みスクリプト」と「クラシックアプリケーション」の違いは何？
ふつーに実行させたい時は「クラシックアプリケーション」でいいのかな。

＞１３４

オマエわかってねぇなぁ
アランケイ自身がパクリなんだよ。

エンゲルバートのな。

>138
Finderで自動記録したものは、ファイル名やフォルダ名が変わると通用しないです。
それくらいかなあ。

ゴミ箱直行関係は慎重にしたほうが良いかも。

＞１３４

つーかオマエ英語読めないだろ。
そりゃキショマッカーの抽象的願望と妄想であって、
何ら事実を反映していない文章だな。
「ダブルクリックでフォルダを開いたりプログラムが起動出来るのはアップルが最初」
なんて妄想かましてやがる。

ま、書いてる本人も原稿料もらって記事に色つけてるんだろうが、
読んで信じちまう信者の頭って哀れだなぁ。

つーかオマエラ、
http://www.aisoft.co.jp/japanese/products/scr/spp32v21.htm

これしらんのか？
ＮＴでこれ使うのが一番ＧＵＩで閉じたバッチ環境なんだよ。
俺はこれ使ってるがな。

マッカーってダサイの使って喜んでるなぁ。

finderのウインドウを整列するスクリプト。
--
tell application "Finder"
activate
set WindowList to every window
set WindowNumber to count items of WindowList
repeat with i from 1 to WindowNumber
tell item i of WindowList
set position to {5 * i, 20 + 20 * i}
open
end tell
end repeat
end tell

タダだし。

＞とりあえずMacOSは使いにくいＯＳってことで。
ファイルをコピーする前に空き容量も計算出来ないWinよりマシと思うが。
さんざん待って、空き容量が足りませんっていわれても。
Macだと、始めにちゃんと教えてくれる。
どう考えてもWinのほうが使いやすいってことはない！！

＞１４５

それオマエの環境だけだって。
環境書いてみ。

おれんとこではそんなことは起こらん。

Windowsのリスト表示で、修正日、作成日の欄はでないのですか？
いちいちプロパティを見ないといけないのか？
MACだと修正日、作成日はリスト表示で出るんですが。
まさか、出ないわけないでしょう。

WinのネットワークドライブはＺ以降に割り当ては出来ないのですか？
MACだとそんなAだのCだのバカみたいな概念はないので、
関係ないですが。

＞146
Winは環境によってそうなるのか。使えねぇ〜

>138
「実行専用で保存...」の「コンパイル済みスクリプト」は
OSA Menuとか、OEのスクリプトメニューとかで使うためのもので
この形式で保存しちゃうとアイコンダブルクリックで実行することはできないです。

＞１４７

Windows2000じゃ余裕で出ますよ。
つーより何倍も詳しく表示内容が選択出来ます。

＞１４８

チミは何もしらんのだな。
ドライブ名そのものが数必要ではない。

低機能ＯＳと一緒にせんように。

何倍もって何倍だよ？

>>138
コンパイル済み＝ダブルクリックすると編集プログラムが開く（そこから実行）
クラシックアプリ＝ダブルクリックするとスクリプト実行
OSXアプリ＝カーボンアプリってこと？

Windows2000はよさそう。
しかし、いまいちWinはダサくてダメだ。
アプリのボタン等。どれ見ても素人プログラマーが作ったような感じ。
マウスもガタガタだし。

＞ドライブ名そのものが数必要ではない。
意味不明。

言い争いはヨソでやってくれ。ここはアップルスクリプト発表スレなので。

AからZまでで事足りるってことか？
そう言う問題じゃないんだけど

俺の環境Windows2000で選択出来るエクスプローラーの詳細表示項目

名前　サイズ　種類　更新日時　属性　コメント　作成日時　アクセス日時　所有者　作成者　タイトル　表題　カテゴリ　ページ数　著作権　会社名　モジュールの説明　モジュールのバージョン　製品名　製品バージョン　送信者名　受信者名　受信者番号　ＣＳＩＤ　ＴＳＩＤ　転送時間　発信者電話番号　ルーティング　サンプル率　オーディオのサンプルサイズ　チャンネル　再生の長さ　フレーム数　ビデオのサンプルサイズ　ビデオ圧縮

Winで、半角で「\100」というファイル名をつけたいのですが
どうすればいいですか？
まさか出来ないわけないでしょう。
低機能ＯＳでも簡単に出来ます。

WINはエクスプローラーという物を使わないと、詳細表示も出来ないのですか？

＞１５８

http://nttcom.e-words.ne.jp/view.asp?ID=45

Macで A:B っていうファイル名を
つけたいんですけどどうすればいいんですか？

やはり、真剣にMacとWinを比較すると、Winはかなり使いにくそう。

ドライブレター割り振らなくても使えるよ…

どこが真剣なんだよ
ワラタじゃないか

それをいいだすと。Winは完全に負けるよ。
どうしてもしたいなら、言い合いしてもいいけどね。

>>162
NTまではできなかったのか？信じられん

＞１６１

どうもわかっていないようだけど、
エクスプローラーで出来るって事は、
ほとんどすべてのソフトで出来るって事だよ。
同じ部品使ってるからね。

Winで aa*っていうファイル名を
つけたいんですけどどうすればいいんですか？
はい、次どうぞ

Winのリソースってなんですか？
メモリは沢山積んでるのに、リソースが減るとアプリが立ちあがらなくなったり
するんですねぇ。不思議だ。
Macではありえない。

Macで　aa*:B
っていうファイル名をつけたいんですが
どうすればいいんですか？

Macで全角31文字以上のファイル名つけたいのですが・・

＞
ヴァカかね？
そんな問題はWindowsNT時代以来発生しない。
差別化を図るためにわざとリソース制限を低くしてるんだよ。

Ｍａｃではあり得ない？
嘘つくんじゃねぇよボケ。

＞ほとんどすべてのソフトで出来るって事だよ。
意味不明。

ソフトを使うとそりゃ出来るだろ。

わかってねぇなぁ。
何も考えずに作られたアプリに勝手に機能が付くって事だよ。

ま、コンポーネント技術が遅れているＯＳつかってりゃ信じられんか。

WinはGUIなくしてエクスプローラだけにして欲しいな

＞ Macで　aa*:B
それネタ？
ネタでなければ、Macに負けるWinがかわいそうになってきた。

WinのGUIは不要。

＞１７９

安心しろ。
そういう偏屈な奴に対しても道は開けた。
今度のWindowsXPじゃ見た目を自由に変えられる。

ふうんコマンドラインにできるんだXP

遅くなったけど、腐れさんありがと！　えっと、>>140の
＞ゴミ箱直行関係は慎重にしたほうが良いかも。
ってのどうして？　やりたい（やってる）のはまさにソレなんだけど。
ゴミ箱に移動するだけで、空にはしてない。

＞一部の人。何でこんなとこで言い争いするかな。。。もう。

XPの話はやめよう。あれは恥ずかしい。

このスレはしばらくスクリプト発表は凍結しよう。
馬鹿どもに任せた。

アップルスクリプトの話をしようよ（Ｔ＿Ｔ）

アップルスクリプトの話します。
録音機能で、あるソフトのダイアログからファイルを選び、選択ボタンを
押すまでを記録したいのですが、ファイルを選びから記録されません。
ソフトが対応してないとダメなんですか？

俺は昔、ゴミ箱直行＆削除スクリプト作ったけど
デバグするのに走らせたらえらいことになったぞ（笑）

>>186
ダメです。そういうのだと、Quickeysのお世話になるしか。。

>>186
なんのアプリか知らんけど、

tell application "Finder"
select file "世界地図について" of folder "世界地図コントロールパネル" of folder "Apple エクストラ" of folder "Applications (Mac OS 9)" of startup disk
open selection
end tell

ダブルクリックで対応アプリで開けるタイプの書類なら、上記の例を参考に。

すいません。Quickeysってなんですか？

ありがとうございます。一度やってみます。

http://www.aisoft.co.jp/japanese/products/scr/spp32v21.htm

こっちのほうが便利で使いやすいと思いまーす。

>>187
えらいことって、どんなふうになったの？

Quickeys
基本的にはショートカット割り当てソフト。
シーケンスやリアルタイムを使えば一応なんでも自動化できる。
アップルスクリプトのようにリアルタイムでマウスの動きやボタン押し、
メニュー選択、文字入力などすべての操作を記録可能。

フォルダの指定したはずのと違うフォルダが選択されて、
どんどん消されていくので強制停止した。
すげえあせった。

あ、そか。空にするのも実行したんだ？　こわ。

143の発展系。
システムフォルダでも選択しておいてから、これを実行してみて下さい。
階層どおりに整列させます。
？？？なんのこっちゃって感じですが、実行すれば判ります。
まれにエラーが出ることがありますが、それはFinderのバグであって私のせいではありません(^^;

---
global Filelist

on run
set AppleScript's text item delimiters to ":"
tell application "Finder"
activate
copy selection to x
end tell
repeat with i in x
set Filelist to {i}
my GetItem(i)
my Arrange(Filelist)
end repeat
end run

on Arrange(wd)
tell application "Finder"
repeat with j in wd
open j
set a to (j as alias) as text
set i to (count items of text items of a) - 1
set position of window of j to {5 * i, 20 + 20 * i}

end repeat
end tell
end Arrange

on GetItem(Target_F)
tell application "Finder"
set getItems to every folder in Target_F
repeat with n in getItems
set end of Filelist to n
my GetItem(n)
end repeat
end tell
end GetItem

197には致命的な欠陥がありました。
アプリケーション形式で保存すると、フォルダを選択することができない...(^^;
これを解消するために、ドラッグ&ドロップで実行するように変えました。
また、フォルダが開きすぎるんで、フォルダを20個開いたらウインドウを閉じるようにしました。
---
global Filelist

on open (x)
set AppleScript's text item delimiters to ":"
repeat with i in x
set Filelist to {i}
my GetItem(i)
my Arrange(Filelist)
end repeat

end open

on Arrange(wd)
set ct to 0
tell application "Finder"
close every window
repeat with j in wd
open j
set a to (j as alias) as text
set i to (count items of text items of a) - 1
set position of window of j to {5 * i, 20 + 20 * i}
set ct to ct + 1
if ct mod 20 = 0 then close every window
end repeat
close every window
end tell
end Arrange

on GetItem(Target_F)
tell application "Finder"
set getItems to every folder in Target_F
repeat with n in getItems
set end of Filelist to n
my GetItem(n)
end repeat
end tell
end GetItem

>182
195さんのおっしゃったのと同じです。
自動記録だと、たいがい選択したものに対してコマンドを実行しています。
手動で選択した後記録開始すると、選択したものに対して操作を行うスクリプトになります。
もしそれがゴミ箱行きのものだったら、「選択したものをゴミ箱に入れる」スクリプトの出来上がり...。

Finder操作は基本的にselectで行うというのが、
ちょっと扱いにくい部分ではありますな。
違うとこを触っちゃったらオシマイだからなぁ。

シンプルテキストやリンク非対応のメールソフトとかで選択したURLを
取って、explorer を立ち上げてアドレスボックスにぶち込んでくれる
スクリプトというのは不可能？

そういうのをOSA Menu に入れられたら素晴らしい。

>>201
スクリプトだと「URL Access」機能拡張の仕組を使って書くんだっけ？
スクリプトじゃないけど、これはどう？
Internet Address Detectors (Contains the Apple Data Detectors 1.0.2 Software)
http://www.apple.com/applescript/data_detectors/detectors.01.html

インストール&リスタートすると一発目はフリーズするかもしんない。
これはすでに「コンテクストメニュー機能拡張」が入っているのに
インストーラが「Contextual Menu Extension」を入れてしまうため。
スペースバー起動で「Contextual Menu Extension」を外しましょう。

で、クリッカブルURL非対応のアプリでURLを選択し、右クリック
(あるいはcontrol+クリック)すると、そのURLをアプリでどう処理するかを
選択できます。選択肢として表示させるアプリ一覧はApple Data Detectors
コントロールパネルで編集可能。

要OS7.6以上。8.6で動作確認したけど、なにぶん古いソフトなので9.xでは
うまく動かないかも？

Internet Address Detectorsを入れたら、アプリ固有のコンテクストメニュー
が出なくなってしまった(全部IADメニューになる)...鬱死。

>201
AppleScriptじゃないけれど、「IceTEa」という機能拡張で実現できます。
http://hyperarchive.lcs.mit.edu/HyperArchive/Archive/comm/inet/internet-config-14.hqx
の「goodies」フォルダに入っています。
「インターネット設定機能拡張（Internet Config Extension）の純正の機能なので
コンフリクトは起きにくいと思います。
使い方は、URLを選んでCommand + クリック だけです。

http://www.aisoft.co.jp/japanese/products/scr/spp32v21.htm

こっちのほうが便利で使いやすいと思いまーす。

げ、純正でそんなのあったんだ、しらんかったよ

腐れ様、
ゲットしました。最高です！

>>206
さすが有料ツールだけあって良さそうだね。
MacだとRealBasicあたりが対抗馬になるかな？
http://www.ascii.co.jp/realbasic/index.html

>>205
いやぁ、これ便利だね。教えてくれて有難う。
AppleScriptじゃないから一応さげ。

198の改良版です。
198だとでかいウインドウが下にはみ出したりしたので
ウインドウの横幅、縦幅の下限と上限を設定しました。
デフォルトでは、最小 404 x 218 ピクセル、最大横幅 700ピクセル、
下限を930ピクセルにしてあります。
（1280 x 960 でコントロールバー分の30ピクセルとかぶらないようにしてある）
アプリケーション形式で保存して、ダブルクリックで設定変更できるので
適当な値を入れて試してみて下さい。

個人的には、再帰処理がうまくいっただけで大満足。
--
global Filelist

property XMAX : 700
property YMax : 930
property XMin : 404
property YMin : 218

on run
set XMin to text returned of (display dialog "ウインドウの横幅の最小値を設定して下さい。" default answer XMin)
set YMin to text returned of (display dialog "ウインドウの縦幅の最小値を設定して下さい。" default answer YMin)
set XMAX to text returned of (display dialog "ウインドウの横幅の最大値を設定して下さい。" default answer XMAX)
set YMax to text returned of (display dialog "ウインドウの下限を設定して下さい。" default answer YMax)
end run

on open (x)
tell application "Finder"
set WL to every window
end tell
set AppleScript's text item delimiters to ":"
repeat with i in x
set Filelist to {i}
my GetItem(i)
my Arrange(Filelist)
end repeat
tell application "Finder"
open WL
end tell
end open

on Arrange(wd)
set ct to 0
tell application "Finder"

repeat with j in wd
open j
set a to (j as alias) as text
set i to (count items of text items of a) - 1
set zoomed of window of j to true
set bd to bounds of window of j
set bdx to (item 3 of bd) - (item 1 of bd)
set bdy to (item 4 of bd) - (item 2 of bd)

--下限の設定
if bdy + 20 + 20 * i < YMax then
if bdy < YMin then
set yy to YMin + 20 + 20 * i
else
set yy to bdy + 20 + 20 * i
end if
else
set yy to YMax
end if

if bdx + 5 * i < XMAX then
if bdx < XMin then
set xx to XMin + 5 * i
else
set xx to bdx + 5 * i
end if
else
set xx to XMAX
end if

set bounds of window of j to {5 * i, 20 + 20 * i, xx, yy}
set ct to ct + 1
if ct mod 20 = 0 then close every window
end repeat
close every window
end tell
end Arrange

on GetItem(Target_F)
tell application "Finder"
set getItems to every folder in Target_F
repeat with n in getItems
set end of Filelist to n
my GetItem(n)
end repeat
end tell
end GetItem

Macだと絶対Quickeys。最高なんだけどな。
http://www.cesoft.com/products/

久々に、毎度のicab用の小ネタを。
今まで俺しか使わんだろうと思っていたが、発表してみる。
imode版で見ている人向け。

--過去ログメニュー表示
tell application "iCab"
set currenturl to URL of window 1
set AppleScript's text item delimiters to "/i/"
set urllist to every text item of currenturl
set currenturl to (item 1 of urllist & "/subback.html") as text
OpenURL currenturl toWindow 0
end tell


--前10レス表示
tell application "iCab"
set currenturl to URL of window 1
OpenURL (currenturl & "&ls=20")
end tell

--前50レスを通常形式で表示
tell application "iCab"
try
set currenturl to URL of window 1
if currenturl contains "&ls=" then
set AppleScript's text item delimiters to (text -1 thru -6 of currenturl)
set urllist to every text item of currenturl
set currenturl to (item 1 of urllist & item 2 of urllist) as text
end if
if currenturl contains "imode=true&" then
set AppleScript's text item delimiters to "imode=true&"
set urllist to every text item of currenturl
set currenturl to (item 1 of urllist & item 2 of urllist) as text
end if
set currenturl to (currenturl & "&ls=50") as text
OpenURL currenturl
end try
end tell


--レス1-50を通常形式で表示
tell application "iCab"
try
set currenturl to URL of window 1
if currenturl contains "&ls=" then
set AppleScript's text item delimiters to (text -1 thru -6 of currenturl)
set urllist to every text item of currenturl
set currenturl to (item 1 of urllist & item 2 of urllist) as text
end if
if currenturl contains "imode=true&" then
set AppleScript's text item delimiters to "imode=true&"
set urllist to every text item of currenturl
set currenturl to (item 1 of urllist & item 2 of urllist) as text
end if
set currenturl to (currenturl & "&st=1&to=50") as text
OpenURL currenturl
end try
end tell

--レスxx-yyを通常形式で表示
tell application "iCab"
try
set currenturl to URL of window 1
if currenturl contains "&ls=" then
set AppleScript's text item delimiters to (text -1 thru -6 of currenturl)
set urllist to every text item of currenturl
set currenturl to (item 1 of urllist & item 2 of urllist) as text
end if
if currenturl contains "imode=true&" then
set AppleScript's text item delimiters to "imode=true&"
set urllist to every text item of currenturl
set currenturl to (item 1 of urllist & item 2 of urllist) as text
end if
try
set xxyy to text returned of (display dialog "レス範囲を指定（xx-yy）" default answer "" default button "OK")
set AppleScript's text item delimiters to "-"
set xxyylist to every text item of xxyy
set xx to (item 1 of xxyylist) as text
set yy to (item 2 of xxyylist) as text
set currenturl to (currenturl & "&st=" & xx & "&to=" & yy) as text
OpenURL currenturl
end try
end try
end tell


いずれもエラー処理が適当なので、うまく動かなかったら御容赦を。。
i-mode版じゃなくても一応動きます。
「レスxx-yyを通常形式で表示」は我ながら便利かと。

>213-215 さん
素晴らしいですね。
「レスxx-yyを通常形式で表示」を、IE用に移植してみました。
これ、むちゃくちゃ便利ですね。
---
tell application "Internet Explorer"
set currenturl to item 1 of (GetWindowInfo (item 1 of (ListWindows)))
if currenturl contains "&ls=" then
set AppleScript's text item delimiters to (text -1 thru -6 of currenturl)
set urllist to every text item of currenturl
set currenturl to (item 1 of urllist & item 2 of urllist) as text
end if
try
set xxyy to text returned of (display dialog "レス範囲を指定（xx-yy）" default answer "" default button "OK")
set AppleScript's text item delimiters to "-"
set xxyylist to every text item of xxyy
set xx to (item 1 of xxyylist) as text
set yy to (item 2 of xxyylist) as text
set currenturl to (currenturl & "&st=" & xx & "&to=" & yy) as text
OpenURL currenturl toWindow 0
end try
end tell

>>215-216
改訂。１個目のend ifの後に
if currenturl contains "&st=" then
set AppleScript's text item delimiters to "&st="
set urllist to every text item of currenturl
set currenturl to (item 1 of urllist) as text
end if
を入れれば再指定できるようになります。

tell application "WhatRoute 1.7"
ping "teri.2ch.net"
end

で、Resultが0しか帰ってこないけど、仕様ですか？

age

>>218
Resultを表示する機構が無いのにどうして分かる？

>218
ping: PING a remote host
ping reference -- The address to ping
Result: ''
なんで、仕様みたいですね。
>220
「スクリプト編集プログラム」で「結果」ウインドウを開いておくと判ります。

WhatRoute Suite: WhatRoute AEs

query: DNS Query
query 'obj=00' -- The Address (domain or IP) to query
Result: '=00=00=00=00'

ping: PING a remote host
ping reference -- The address to ping
Result: '=00=00=00=00'

trace: A Traceroute apple event
trace reference -- the address to trace
Result: '=00=00=00=00'

Class trace address: An IP address or Domain Name
Properties:
address string -- An Internet Address

優良すれだからあげときます。

215さんののIE版を、ハイパーカードスタック（笑）にしてみました。
http://homepage.mac.com/mac_2ch/IE control.hqx

スクリプト自身のコメント欄に文字を入れるのってどうやりますか？
set comment of me to ~だとエラー出ちゃうんですけど。

>225
---
tell application "Finder"
set comment of (path to me) to "123"
end tell
---
です。

サンクスです。荒れてるから上げようかどうか迷ったけど（汗

>>54-55さんのスクリプトの翻訳URLが死んでいるようなので、改訂してみました

--選択した語句を翻訳
tell application "iCab"
tell window 1
set slword to selection
set AppleScript's text item delimiters to " "
set slword to every text item of slword
set AppleScript's text item delimiters to "+"
set slword2 to every text item of slword
set slword to slword2 as text
set hon to ("http://www.odn.ne.jp/cgi-bin/dictionary/dicindex.cgi?qt=" & slword & "&mode=EJ")
OpenURL hon toWindow 0
end tell
end tell

English Text to Speechでしゃべらせた声をAIFFファイルなど
にしたいのですが、OS9.1ではAIFF WRITERがつかえないので
困っています。
アップルスクリプトで実現可能でしょうか？

ftp://mirror.apple.com/mirrors/gaea.scriptweb.com/applescript/osaxen/
osax置き場

SoundInputControl?

>229
アナログでよければ、サウンド入出力端子を接続してやって
simpleTextで発声、サウンド系のソフトで録音でOKです。
AIFF　writerって知りませんでした。検索かけてみますね。

>232
レス、ありがとうございます。
サウンド入出力端子を接続するというのは、思い付きませんでした。
でも、大丈夫ですよ......ね(^^;
#PBG4だとやばそうですけど、幸いうちはiMac.

PBG4、スピーカーのとこにあるのは、入力端子じゃないのね。

>233
大丈夫ですよ。
ただし、サウンドコンパネの「入力」で
「出力装置を通して音を再生する」のチェックがONになっていると
ハウリングを起こすので注意して下さいね。

>>229
>>223
VocalWriterってソフトがあるよ。
しゃべるだけじゃなく、歌っちゃうけど。。
http://www.kaelabs.com/

Better telnetでtelnet接続してる時に
標準出力を読み込んだり出来ないでしょうか？

例えばlsの実行結果を読み込んでファイルセレクトウインドウを
出したいのですが...

OSXのASはどーよ？

>235
>236
遅レス、ごめん。
236さんのVocalWriterを使ってみたんだけど、うまく喋らせること
ができませんでした。ちょっと、俺には操作が難しかった(^^;
でも、歌うのにはびっくりしたよ。まぢで。
で、結局235さんの方法でやってみることにしました。
レス役立ちました、ほんとにありがとうね！

OS XでClassicの起動ディスクに指定するとインストールされる
「標準機能追加」J1-1.6ですが、ネイティブなOS 9.1環境下で
Display Dialogを実行させた時にボタンの位置がずれるバグが
あるようです。（ボタンが二つの場合のみ右にずれる）

長

Sherlock 2 を動かす簡単なスクリプトを作ったのだが、
検索結果が出るまでタスクが占有されてしまうのが困りもの。
うまい方法はないものか？

ソースみないとなぁ・・・>>242

ちなみにシャーロックで検索するスクリプト。ただこれだけ。
tell application "Sherlock 2"
activate
search Internet for "検索語" with display
end tell

display dialogで"検索語"をtext returnedにしてやるのが普通かな。

ぐええ、止まる・・・

www.geocities.co.jp/Milano/3934/script/script.html
スレ閲覧用のスクリプトをまとめてみました。

最新レス50個、最新レスxx個、レスxx番表示、レスxx番からyy番
レスxx番から最新レス、レスxx番からyy個、レスxx番から50個
次レスxx個、次レス50個、掲示板に戻る、過去ログ
の各機能を１個のスクリプトで。

すみません、質問です。
アピアランスのスクロールバーの矢印をを2つにする（？）スクリプトって、
以下で合ってますか？

tell application "アピアランス"
set scroll bar arrow style to constant double
end tell

両端に二つづつであれば、二行目を
set scroll bar arrow style to ﾇconstant ****dublﾈ
にすると良いと思われ。

>>9さんのをちょっといじってネトモで韓日翻訳。
朴ってゴメンネ。
tell application "iCab"
Activate
set currenturl to URL of window 1
set hon to "http://www.netomo.com/cgi-bin/transkj.cgi?"
OpenURL (hon & currenturl) toWindow 0
end tell

ポップアップウインドウのフォルダの位置を固定させるような
スクリプトはどう書けばいいのですか？
「記録」機能だと記録してくれなかった。。

標準だと、ポップアップウインドウにすると、左下に移動されちゃってそれが嫌なので。

>246
素晴らしいです！！！！！！！
使わせていただきます。

以前、選択範囲をGoogleで検索できるスクリプトがありましたが、
あれと同じ原理で英和辞書のサイトに単語をぶち込んで結果を出す
ことは可能なんでしょうか？

>>252
まず>>9を参照するべし。
そのあと、このスレを「翻訳」で検索してごらん。

うお。宇都出汁嚢。

しょーもないもんだけど、フレッツ接続ツール用スクリプト
単に接続／切断だけ。ランチャーなどに入れておけばワンタッチということで。

tell application "フレッツ接続ツール"
if (ConnectState) is 0 then Connect
if (ConnectState) is 2 then Disconnect
quit
end tell


あと2ch閲覧用スクリプトも少し機能追加
www.geocities.co.jp/Milano/3934/script/script.html

あげあがる

ウインドウのスクロールバーのアローを「＜＞」にするのは聞いたことあるけど、
ウインドウが開く直前のズームアニメをキャンセルって出来る？

例えばテキストファイルは必ずJeditで開かせるスクリプトってできますか？

スクリプトAにテキストファイルBをドロップすると、Bがシンプルテキストの書類だとしても
Jeditを開いてくれる、という感じにしたいんです。

Jeditを開かせるスクリプトはわかったんですが、ドロップされたファイルの取得（？）と、
必ずJeditで開かせる、という部分がわからないです。。
というかそもそもスクリプトにドロップできない？

>>そもそもスクリプトにドロップできない？


できますよ。
http://www.netjoy.ne.jp/~tuya/AppleScriptTutor/index.html
このへん探れ。

>>258
ていうかそれやるんなら
デスクトップにJEDITのエイリアスおいてそこにドロップしろよ。

「テキストファイルは必ずJeditで開かせる」
JEDIT本体をFileBuddyなどのクリエイターコードを替えられるアプリで開き
クリエイターコードをttxtにしたあと、HDに存在するSimpleTextを検索で探し出し
すべて捨てる。これでとりあえず行けるような気がするが。

>>>258
>ていうかそれやるんなら
>デスクトップにJEDITのエイリアスおいてそこにドロップしろよ。

考えすぎるとたまにワケわからんことするよね（笑）
なんかやけに複雑なコトしてるなーって思ったときは、
一度シンプルに立ち返ってみるべし！！

ちなみに258は一応スクリプトでもできる。基本から勉強しよう。

>>259
おお！便利じゃ。ありがとん。

>>260-261
ちがあああう！！別に本当にJeditで開きたいわけではなく、これを応用をするために
例としてJeditで開くためのスクリプトが知りたいんですってば。
そんな複雑な思考回路してません（笑）

とりあえず今まで試行錯誤してできたのが、ドロップしたファイルをただ開くっての。。
ふつーにダブルクリックして開くのとまったく変わらん。。
先は長い。うう。

>>262
ほーい。。

↑258です。

>>263
あら、そう。誤解してゴメンね。
単純にこんなだとダメなの？

on open sss
tell application "Jedit4"
activate
open sss
end tell
end open

もういっちょサービス。多分知りたかったのはこっちかな。

on open sss
tell application "Finder"
open sss using path to application "Jedit4"
end tell
end open

リモートアクセスで複数のプロバイダを使い分けていて、
プロバイダをいつもコントロールバーで指定しているん
ですが、これをAppleScriptで行う方法はありますか？

できました〜！！　>>266の方です。
ただなぜか、構文確認ボタンを押したら下のように自動的に修正されてしまったのですが。。
でもこれでOKです。ずっと悩んでいたので。。はあ。勉強します。ありがとうございました！

on open sss
tell application "Finder"
open sss using path to application "Jedit4"
end tell
end open

age

ネスケでサイトの巡回してます。新規窓を開いてしおりをクリック、新規窓を開いてしおりをクリックの繰り返し。これをスクリプトに記録して使っているのですが、スクリプトに直にURLを書き込みたいのですけど、どう書けばいいのでしょうか？。
tell application "Netscape Communicatorｪ"
activate
make new document
end tell
tell application "Finder"
activate
select file "ホニャララ掲示板" of folder "しおり"
open selection
end tell
tell application "Netscape Communicatorｪ"
activate
・・・・・・・・・・

串チェンジってスクリプトでできないですかね。
死んでるか生きてるか確認するソフトってMacにはないですよね？
いちいち手動はさすがにつらい。

>>270
tell application "Netscape Communicatorｪ"
openURL "http://〜〜〜〜"
end tell
で。

>>270
つーか、このWebclutchっていうのを使った方が早い。

http://members.tripod.co.jp/bitworks/index.html

>>272
有り難うございます。どこへ入れればいいのか判りませんでしたが、あとは自分で試してみます。
>>273
さんも、ありがとうございます。

Mac OS 9.1 上で、KeyQuencerとQuickeysは、どちらが安定しているでしょうか？
現在Quickeys5.0なのですが、アプリを巻き添えにして落ちることが多いように感じるので
KeyQuencerに乗り替えるべきか悩んでいます。

KeyQuencerは・・・たぶん安定性はマシだと思うけど、
アプリ別にマクロを独立させられなくて、ショートカットの重複も許されないのが難点。
（たぶん製品版でも）。
さらにLite版だと、直接アップルスクリプトを動かせない。
ウチの場合、かなりAS依存なのでこれは辛い。

Quickeysは4も5も重いから3.5を使ってて、ときどき原因不明のエラーで再インストを
余儀なくされるんだが、やっぱり手放せないんだな。

>>276
ご教授ありがとうございます。
Quickeysは、再インストールするとマシになる場合もありますか？

先生、Netscape 6でアクティブURLを取得する方法が全くわかりませーん。

アップルイベント

センセ、実はそのAppleEventが解らないんですよぅ。
んでもAppleScriptさえ解れば、なんとか自力でAppleEventの解析もできるので、AppleScriptスレであるココで質問してみたんです。
先生はただひと言「アップルイベント」とのみお答えになられましたが、そもそもAppleScriptというのは、AppleEventを人間が読み書きしやすく、かつ簡単な変数や式構造を持たせて作られたスクリプトだってことはご存じですよね？
具体的にあたしが聞きたいのは、Netscape 6ではAE、ASともに、「list windows」や「get window info」にあたる命令がないんだけど、どうすりゃいいのさ代替方法はあるんかいネスケうんこ6め、ということなんです。

279とは別人です。
手元にネスケ6がないのだけど、最近のFizzillaだと
tell application "Mozilla"
set all_window to every window
set uu to URL of (first item of all_window)
display dialog uu
end tell
てな感じでウインドウのリストを得てURLも取得できるな。

　jedit3のマクロで、正規表現のグループ化機能を使って
htmlの<A>タグからurlとページ名を抜き出そうと思ってるん
ですが、

tell application "Jedit3"
activate
tell document 1
replace "<A HREF={http://.[a-zA-Z0-9/.]}>{.+}</A>" to "\1
\2" in selection with grep
end tell
end tell

みたいにしようとすると\のところで「メ"モと書くべきところに
unknown tokenと書かれています」ってなエラーが出ました。
ASでグループ化（というか\記号）を使うにはどうすればいいん
でしょう？

>>281
Netscape 6だとevery windowの取得でエラーが出ます。。

>>282
\\

\は\\と書けばいいはず

アップデートしたら、display dialogのボタンが変になった人ってぼくだけ？

Script DebuggerのExplorerで調べました。
Class Windowは用語辞書に載ってるにもかかわらず、ASでは拾えない。
AEでもちょっと調べたけどダメっぽい。多分無理です。

ネスケ6は用語辞書にこんなこと書いてた、これが辞書か・・・（ーー
alert application type class --
Most of the alerts will be sent to this application using yet unspecified AE interface.
We need a few alert boxes: alert, confirm and notify.
Any ideas on how to design this event? mailto:[email protected].
Iﾕd like to conform to the standard.

>285
OS Xのインターフェースにサイズバランスを合わせたせいかな。

>>285
ほんとだ。右詰まりになって、ＯＫが途切れる・・・

AppleScriptのスクリプトアーカイブ計画がスタート
www.zdnet.co.jp/macwire/0104/26/n_macscripter.html
だって。

\を\\と書けばいいと教えてくださった方々、ありがとうございます。
おかげで目指してたスクリプトはおおかたできたのですが、最後に
Jeditで単語"ABC"を含む行からファイル終端までを削除するコマンドが
わからずに難儀しております。はじめは

replace "ABC{.*\r}+" to "" in selection with grep

　でいいのかなーと思ったのですが、ぼくの持ってるJeditでは
複数行にわたる正規表現検索はできないらしく、どうしたものかと
考え中であります。こういう場合findとselectを組み合わせて使うのが
常道なんでしょうか？

荒っぽいやり方だけど

set aaa to every text in document 1
set AppleScript's text item delimiters to "ABC"
text item 1 of (aaa as text)

こうやってABC以前だけを取りだす方法もあるよ

起動時に一端特定のアプリを起動させてすぐに終了させることって
アップルスクリプトで可能なんでしょーか。

>>289
Tanaka's Osaxを使えば、URLなどの抜き出しは楽ですよ。
>>291
たいていのアプリなら可能。

>>292
教えてください。。

>>293
tell application "Finder"
activate application "○○"
quit application "○○"
end tell

↑
このスクリプトをアプリケーション形式で保存して
起動項目に入れておけばよろし。

素早いレスありがとうございます！！
早速試したら出来ました！
いや、今までアップルスクリプトなんて無縁だと思ってたん
ですが触ってみると結構楽しいですね。。
今までいちいち自分で終了させてたんですごく便利です！！
ありがとうございました！

パワブクユーザなんですけど、アップルスクリプト使って
画面輝度をFnキー割り当て一発でゼロにしたりフルにしたり
するのってできるんでしょうか？？
誰か知ってたら教えてください。

便乗質問させてください。
282さんのスクリプトで、
<A HREF=
の大文字小文字を区別しないで置換するにはどうしたらよいのでしょうか？
一応
replace "<A HREF={http://.[a-zA-Z0-9/.]}>{.+}</A>" to "\1
\2" in selection with grep without case sensitive

としてみたのですが、この場合「with grep」がついているために
結局正規表現とみなされて大文字小文字を区別しちゃってるっぽいのですが…
一度全て大文字か小文字にそろえて置換、という手もありますが、
どうにもスマートじゃない気がするので…
解決方法ありましたら是非お願いします。

>>298
considering case
〜〜〜〜
end considering
で囲ってもだめですか？

>>299さん
ありがとうございます。
considering case というやり方をはじめて知りました。
で、ちょっと調べてみたんですが、この場合は ignoring case を使うんではないでしょうか？
でもどっちで試してもやはり大文字小文字を区別してしまいました。うーん。

age

串チェンジってスクリプトでできないですかね。
死んでるか生きてるか確認するソフトってMacにはないですよね？
いちいち手動はさすがにつらい。

>死んでるか生きてるか確認するソフトってMacにはないですよね？

あるよ。
海外のUGサイトを探そう

>>302
オタだったら笑える

http://homepage1.nifty.com/ton_b/AppleScript/Material/index.html
AppleScript/Material

さいきんどうよ。
AppleScriptいじったことないひとも、うえのリンク先から
資料落として挑戦してみては？

市販ソフトでマウスをASで制御するってのがどこかであったんですが、
だれかわかりませんか？
どんなソフトでもASで自動化できるって感じの広告を見た気がしたんですが…。

Prefab Playerのことかな？
http://www.fsight.co.jp/

ASでアイドル状態にして置いた場合、キー入力を判定する
方法って無いですかね。
キーコンビネーションでASが動作できるようにしたいんですが・・・
KeyQuencerなんかを使わずに

スクリプトを実行する時のズームアクションって無くすことってできます？

REALBasicに載せてボタンを押すとASが起動するようにする
とズームアクションは出ません。

あの、初めてASを作ったんですが（IEの履歴を消すスクリプトです）

tell application "Finder"
delete file "History.html" of folder "Explorer" of
folder "初期設定" of folder "システムフォルダ" of startup disk
empty trash
end tell

で、"History.html"のファイルが無い場合にエラーが出るんですけど、
エラーダイアログを出さないようにするにはどうすればいいのでしょうか？
レベルの低いカキコですみません。

ここのＦＡＱデタラメばっか（ﾜﾗ
http://www.mayhem.net/juke/bodiesbeat1.html

>>311

tell application "Finder"
try
delete file "History.html" of folder "Explorer" of folder "初期設定" of folder "システムフォルダ" of startup disk
empty trash
on error
beep --ここにエラー時の処理。
end try
end tell

>>305 のリンクで「ほ〜むメイドAppleScript 1.0」ってチュートリアルがあるから、
それで文法の基本を確認すること。これ宿題な。

>>308
OSAX使えばできそうな気もするけど。どうかな。

>キーコンビネーションでASが動作できるようにしたいんですが・・・
OSA Menuを使う。

>>309-310
OSA Menuから実行しても、ズームアクションは出ないよ。
あとQuickeysやOneClick、それからDragThingから実行した場合も出ませんね。

>>308
やっぱりOSA MenuもKeyQuencerなんかの一つに入るわけかと思って、
Jon's Commandsを使ってみた。

on idle
if (keys pressed) contains "Option" then
display dialog "Option key is pressed!"
quit
end if
return 1
end idle

>>313
できたできた。ありがとー！

>>307
ちがうものでしたが、もっとよさげなものですね。
ありがとうございます。

>>316
ありがとうです。Jon's Commandを探します。

改行を含んだ文字列を検索したいのですが...

realplayerを一定時間間隔で再生するようなスクリプトってどうしたらいいでしょうか？

ttp://homepage.mac.com/jinjin/
ここにクイックタイムのやつはあるのですが、参考にして作ろうとして挫折しました。

あの〜、いつも手動でうんざりしてることなんですけど……
画像の入ったフォルダをアプレット？にドラッグ＆ドロップして
自動的にGraphicConverterでスライドショーを開始するように
することって可能でしょうか。

うちのは3.5Jだけど、スクリプティングに対応してないのでダメみたい。＞グラコン
ほかにできそうなソフトがありそうだけど。

>>321
そこのクイックタイムのやつのスクリプトの２ヶ所の
tell application "QuickTime Player"
を
tell application "RealPlayer"
にすれば、一応動作するはずです。

>>322-323
真面目にエラー処理してないけど、
手持ちの3.8の場合、これで一応できるみたい。

on open theFolder
try
tell application "GraphicConverter3.8"
activate
slideshow theFolder
end tell
on error
quit
end try
end open

>>325
グラコン4.01でもいけました。
これで、煩わしい儀式から解放されます。
ほんと助かりました。ありがとうございまーす。

「保存」に関するコマンド（？）はsaveだけど、
別名で保存とか書き出しというコマンドがわかんない。。
できないのかな？？

あと、アップルスクリプトに対応してるアプリ一覧とかってありますか？

アプリをスクリプト編集プログラムにドラッグ＆ドロップすると
そのアプリの使えるコマンド（用語説明）が表示されます。

X-Mailer: ヘッダが、「Direct Email」と「Achi-Kochi Mail」のメールを
プロバイダのメールサーバ上で自動的に消去する、なんてスクリプトはできませんか？

>>329
私も欲しい
ただデベロッパで一社Direct Email使ってユーザ向けM/Lを出している
ところがあって、一度要望を出したんだけど現段階では無理という
回答でした。

サーバー上のメールを削除できるソフトがあったはずだけど、
それがＡＳ対応なら、なんとかできないこともないか・・・。

>>331
私の場合はメールフィルタってソフトで、
フィルタ設定してDirectやらAchi-Kochiを手動で消してるんだけど、
スクリプタブルじゃないんです。

mboxerあたりでなんとかならんだろうか・・。
mtlab.ecn.fpu.ac.jp/mboxer/

うちのは3.5Jだけど、スクリプティングに対応してないのでダメみたい。＞グラタン
ほかにできそうなソフトがありそうだけど。

>>329
のspamキラースクリプトに期待age

ええと、マイペディア９７という百科事典を買ったのですが、
結構、前の物なので、全インストール（CD-ROMなしで使う）ができません。
アプリ本体と若干のディレクトリとインストールし、ドライブにCD-ROMを入れて使うみたいです。

しかし幸いハードディスクの容量に空きがあるので、Disk Copyでまるごと取り込みました。

そしてそのマイペディアを使うときは、イメージをStuffIt Expanderで開いて
デスクトップに表示させ、それからアプリケーションを立ち上げて使っています。

でもそれだと面倒なのでApple Scriptで自動化したいと思って
「記録」でやってみたのですが、
どうしてもDisk Copyで開こうとします。

StuffIt Expanderをつかうと一瞬でイメージが展開されるのに対し
Disk Copyは時間が掛かるのでうまい具合にいきません。

マイペディアのアプリケーションは開くとすぐにCD-ROMを探し、
ないと終了してしまうので・・・・

説明が長くなりましたが、ようは

「ディスクイメージをStuffIt Expanderで展開するスクリプトはどう書いたらいいのか？」

と言うことなのですが、よろしくお願いします。

>>335

そのディスクイメージのクリエータタイプをfilebuddyとか
reseditとかを使ってStuffIt Expanderに変更すれば
いいんでは。

＞スクリプトをどう書いたら

に対する答にはなってないけど。

open alias "マイペディアのイメージ" using path to application "StuffIt Expander"
でよくない？

別のアプリだけど、同じことを以下のようにして自動マウント->起動までやってます。

tell application "Finder"
activate
select file "イメージファイル.img" of folder "パス" of startup disk
open selection
select file "アプリの名前" of folder "パス" of startup disk
open selection
end tell

ただし、イメージファイルを作る時に「読み書き可能」で作らないと
なぜか駄目だった。

>>336

あっそれ、いいですね。
でもResEditはいまいちわからないので
他のソフトでクリエーターを替えてみましたが
白紙アイコンになって開けなくなってしまいました。
もしよかったら教えてください。

>>337

すみません。はっきり言ってApple Scriptはここのをコピペして
使ってるだけなのでわかりませんが、
それだとうまくいきませんでした。

>>338

それだとイメージをマウントするソフトはなんでしょうか？
アプリの名前をStuffIt Expanderにすれば、
StuffIt Expanderでマウントするのでしょうか？

ーーーーーーーーーーーーーーー

いろいろ入門とかみてみましたが、
まだ頭に入りません。
むずかしいですね、Apple Scriptは。

でも便利というかおもしろいです。

>>340
tell application "Finder"
open alias "マイペディアのイメージ" using path to application "StuffIt Expander"
end tell
ね。

Tell Applicationの所に書いてあるんだからFinderにやらせている
のかな。こっちも手探りで使っているので論理的に説明できなくて
ごめんね。
でも、おなじ方法でアプリやイメージのファイル名を置き換えて、
Off Lawの起動（Logをimgファイルにしまってある）とか、地図ソフト
の一発起動（500以上あるファイルを１つのイメージにまとめちゃった）
とかに重宝してます。

age

上記のgoogleで検索を応用してヤフオクで検索したいのですが
どこを変えればよろしいのでしょうか？

↑
ちょっと考えればわかります。
それぐらいの応用力は自力で身に付けましょう。

以前どなたかが紹介されていたselection検索を改良して、クリップ
ボードに入っている文字列をicab経由でgoogle検索するスクリプトに
してみました。標準ではクリップボード扱えないのでjohn's commandsが
必須です。素人なのでエラー処理は全然してませんが、実用にはなると
思います。このスクリプトをファンクションキーなどに割り当てたら、
死ぬほど便利になりました。バックグラウンドで開いてますが、気に
なる人はactivateしてください。

tell current application
set surl to the clipboard as string
end tell
tell application "iCab"
tell window 1
set AppleScript's text item delimiters to " "
set lsurl to every text item of surl
set AppleScript's text item delimiters to "+"
set surl to lsurl as text
set google to "
http://www.google.com/search?num=30&hl=ja&safe=off&lr=&q="
OpenURL (google & surl) toWindow 0
end tell
end tell

ぼくはMagicalKeysとコンパネを使ってcontrolダブルタップで
このスクリプトが起動するようにしてます。shiftダブルタップで
クリップボード内容をjammingで検索するようにしてたので、
読み物書き物のときの効率が異常によくなってしまいました。
Jon's commandsはこちらから。

http://www.seanet.com/~jonpugh/
Jon Pugh's Home Page

スクリプト起動なら、OneClickでショートカットするのが最強。
日本語環境で使うにはちょっとコツがいるけど、
ホントは教えたくないくらい便利です。
いろいろ試した末、これに落ち着いてる。

OE終了時に「削除済みフォルダ」を空にするの、ないかなあ。

OE5.xならツール＞スケジュールで出来ますが？

ぃってきます

落ちちゃイヤ〜ン

すんません、初心者の質問なんすけどよろしくお願いします。
起動中のプロセスを終了するアプレットの冒頭なんですけど、

tell application "Finder"
set aProcess to name of every process
end tell
set aList to choose from list aProcess with prompt ﾂ
"終了するアプリケーションを選択：" OK button name "終了"

こいつをアプリケーション形式で保存してダブルクリック起動すると、そのアプレット自身も
含めて起動中アプリのリストが出るんですけど、
ランチャーなんかから起動さすとこのアプレットの名前がリストになかったり、下手すりゃ
現に起動中のアプリの名前がリストになかったりするんですよ。なんででしょ。
そういうもんなんですか？　ランチャーとの相性とかによって起こり得る問題？
それともこれってやっぱりなんかオカシイ？
ちなみにAppleScript J1-1.3.7にOS8.6です。

ASではプロセス制御は安定しないっす・・・

>>354
あー、そういうもんですか。じゃしょうがないっすね。
レスありがとうございます。
スクリプト発表スレで初心者質問はヒンシュクだったかと冷や汗でした。
ご親切にどうも。

age

Finder以外からアプリを起動すると、プロセス制御が上手く行かない。
一旦Finderを最前にすると上手く動くかも。

>>357
OSA MenuとかFinderPopに入れて使うつもりなんで、この場合はFinderを最前にできそうにないです…。
で、ageがわりに>>353で作ってたスクリプトでも書いてみようかと思うんですが、これが全然
おもしろくないしどこにでもありそうだし、しかもクソ長いっていう。
漏れ、厨っすか？やっぱり。ついでにまたお知恵を拝借できたらって下心もあるので、スレが
沈んでた時にでもなんか助言くださったり罵倒するなり放置して一言「age」なりしてくだされば。

起動中のプロセスを個別にか全部いっぺんに終了して、全部終了した時はついでにシステム終了もします。
文、省略されるだろうから興味なければ見なくてすむように後ろに書いときます。
ところでともだちがシステム終了の前に全アプリを終了しろっつって Command+Tab、Command+Q
繰り返してたんで全プロセス終了後システム終了ってしてみたんですが、コレって意味あるんですかね？
あと、name of every processで当のアプレット拾っちゃった時のために
if aName as text is not "アプレット名"　て書いてみたんですけど、もうちょっとスマートな記述、
ないもんでしょうか。

tell application "Finder"
set aProcess to name of every process
end tell

set aList to choose from list aProcess with prompt ﾂ
"終了するアプリケーションを選択：" cancel button name "全部終了" OK button name "終了" ﾂ
with multiple selections allowed

if aList is not false then
repeat with aName in aList
try
with timeout of 10 seconds
quit application aName
end timeout
on error
end try
end repeat

else
repeat with aName in aList
if aName as text is not "アプレット名" then
try
with timeout of 10 seconds
quit application aName
end timeout
on error
end try
end if
end repeat

tell application "Finder"
display dialog "コンピュータを今システム終了してよろしいですか？" as text buttons ﾂ
{"キャンセル", "再起動", "システム終了"} default button 3 with icon 2

if button returned of result is "システム終了" then
shut down
else if button returned of result is "再起動" then
restart
end if
end tell
end if

終了するプロセス選ぶダイアログでキャンセル返ってきたら「全部終了」にあてるので、本当にキャンセル
したいときは、そのアプレット自体を選択して「終了」ってことにしようと思ったんですけどね…。

質問は短く簡潔に要点をついていることが望ましい。。。

串チェンジってスクリプトでできないですかね。
死んでるか生きてるか確認するソフトってMacにはないですよね？
いちいち手動はさすがにつらい。

あるよ

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

tell application "Finder"
activate
tell folder "0"
try
set label index of folder "A" to 2
end try
try
set label index of folder "B" to 2
end try
end tell
end tell

folder "0" には多くの item があるとして、
ＡとＢ、両方のラベルを同時に変更したいのですが
どうすればいいのでしょうか？
また、Ａが存在しない場合でもＢのラベルは変更したいのですが
可能でしょうか？

ResEditにActivateかけたら、ResEditは起動したのにスクリプトが
自動終了しないんです。
他にもこういうアプリありますか？

システム終了時にはFinder以外の起動しているアプリケーションにquitを送ってから、
最後にFinderをquitしているので意味無い。
ちなみに、どれかのアプリで終了をキャンセルすると、そこでシステム終了は中断される
（昔は違っていたような気もするが）。

あと、自分ならすべてのアプリ終了→システム終了or再起動選択などせず、
最初からシステム終了や再起動を選択できるようにする。
キャンセルボタンはキャンセルの為に使おう。

if aName as text is not "アプレット名"　については不明、すまそ。

try以降のエラーはon errorで捕まえる（だと思う）。

try
set label index of folder "A" to 2
on error
end try
try
set label index of folder "B" to 2
on error
end try

>>363
System7より前だったかの古いアプリにはそう言うのもあって、
起動したところでスクリプトに帰ってこなくてスクリプトが止まるが、
そのアプリを終了すると帰ってくる。
timeoutを小さくしてerrorで捕まえるか、起動するだけならfinderからファイルを開く。

>>364
やっぱ無意味でしたか…。ずっとソレ気になりながらも件のアプレット使い続けてたんですよ。

>キャンセルボタンはキャンセルの為に使おう。
覚え始めたばかりなんで実用的なものを作ることより、自分の乏しい知識の限りで複雑なスクリプト
書くのがうれしくってしょうがないお年ごろだったです。目が覚めた思いがしました。

読みにくいかきこみにレスありがとございましたです。

age

これからAppleScriptを本格的にやりたいのですが、
例えば、２ちゃんねる専用ブラウザを作ることは可能でしょうか？
イメージしているのがMac OSメール環境なんですけど。

無理です。

アブルクリックするとブラウザが起動して2chのページが開く
というアプレットぐらいなら作れそうですな。

「アブルクリック」って何ですか？

>>366
なるほど、古いシステムでも動くアプリには注意ってことですね。
レスありがとうございました。

>>371
ロケーションファイルをクリックするのと同じようですが、
ASでやることに意義があるんでしょうな。

構想を練ったことはあったが、
テキスト処理が遅いのと、複数のアプリを使わねばならないので
意味なしだった。

単純かつ正確さを要求される作業に向いてますよね。

一つのフォルダの中のファイルを全部Jeditのファイルタイプに
するとか、テキストファイルだったらファイル名に.txtと付ける
とか、ファイル作成日をファイル名に置き換えるだとか。単純
で法則性がある変更だったら何百あってもやってくれます。
>>374
ま、あえて考えれば、というぐらいで。

あと、あるアプリを起動する前に必ずこれこれの共有フォルダを
マウントしておきたいというときは、ランチャみたいなものを
作ったりしてます。
テキストでダウンロードした会議室ファイルのログカッターのような
ものも考えられるけど、エディターの置換機能を使ったほうがまだ
現実的ですな。

ASの２chブラウザだけど、このスレのその2あたりにそんなんなかった？
IEとかiCab使って2ch閲覧を楽にするっていうやつだったかもしれないけど。
だれか覚えてないすか？

ttp://www.geocities.co.jp/Milano/3934/script/script.html
2ch閲覧用アップルスクリプト

これですかね？>>377

display dialogで、ボタンがずれてしまいます。
1.6.0Jと1.4.3Jでも同じ。解決法ありますか？
http://namihei.zone.ne.jp/upup/up/374.gif

>>378
これっす。ちょっと探してたんでサンクスです。

ところでイメージしてるのが Mac OSメール環境なら、高機能じゃないけど高速だとかの、
なんか既存のブラウザに2ch用に特化した機能をASで加えてく方向でどうなんでしょう？
WannaBe、使ったことないけどイケませんかね。
FORM使えないそうなんで書き込みできないのが最大の難っぽいですけど、
検索サイトのフォームに文字列ぶちこむ要領でなんとかなんないでしょうか？

俺的にはiCabに>>378のとかここで発表されたスクリプト加えたので満足はしてるんですけど…

あと、このスレのその2の過去ログってどっかにないですか？
その1は あったんですけど。
http://mentai.2ch.net/mac/kako/957/957215209.html

http://mentai.2ch.net/mac/kako/957/957215209.html
http://piza.2ch.net/mac/kako/962/962044994.html

>>380
ASコマンドでスレのソースを落としてくるのは可能なんだが、
それをどう表示させるかが問題。
ASでは自由なインターフェースは作れないから、
既存のブラウザを使うとなると結局意味なしなんだな(ﾟ μ,ﾟ)

>これからAppleScriptを本格的にやりたいのですが、
>例えば、２ちゃんねる専用ブラウザを作ることは可能でしょうか？
の質問をした者です。

みなさんの御親切な意見をうかがいまして、多少無意味であることにきづきました。
が、>>380さんの書き込みを読んでふと思いついた事があります。

私は普段 http://teri.2ch.net/test/read.cgi?bbs=mac&key=971295440&imode=true を、
http://teri.2ch.net/test/read.cgi?bbs=mac&key=971295440&ls=20 などとするものです。
iCabのリンクマネージャ、IEのページホルダ機能と併せて使えば、便利かと思ったのです。

>>383
それも考えたことがあった。しかし残念ながら、
ASで落としてきたHTMLソースを直接ブラウザに表示させるのは不可能なんです。
一旦何かのファイルにソースをコピーして、それをブラウザで開くという手順が必要になる。
やはり二度手間ということになってしまうわけですな。
結局あのスクリプトに落ち着いてしまう。
自分のために作ったものだから手放せないというのもあるんだけどね。

>>382
>ASでは自由なインターフェースは作れないから

ダイアログディレクターは？

あるアプリケーションを起ち上げてすぐに終了させるのって、どうすれば良いのでしょうか？

>>386
例えばSimpleTextだったら、
---
tell application "SimpleText"
quit
end tell
---
最初だけそのアプリがある場所を聞かれるかもしれないけど。
何に使うの?

"裏技・隠れた便利ソフトと活用法"に出てたのだけど、
http://plaza25.mbn.or.jp/~xinoue/AS.html
ここの「HTML変換」は使える。

http://homepage.mac.com/kshook/applescript.html

OSX対応バージョンもある、アップルスクリプトゲームがある。
なんか笑える。

age

OSXのASアプレットってえらい起動遅くない？
OSAメニューみたいなの、ないのかな。

>>391
それに関しても、10.1に期待するより他ない

>>Apple
しっかりせーよ

OSXのASアプレット、DragThingにコンパイル済みスクリプトを登録して、
そこから実行するようにしたら大分速くなった。

OSXのアプリ起動が遅いのはDockにおける処理が最適化されていないからみたいな感じ。
10.1でようやくチューンナップされるということか。

東風荘に何度も接続しようとするスクリプトって出来ないでしょうか・・・
アプリケーションが対応していない場合アップルスクリプトで命令出来ないんでしたっけ。
全然わかってなくてスミマセン。

>>395
アプリが未対応だと普通は無理ですね。
PreFab Playerを使えばなんとかなるかもしれないけど。

>>396
PreFab Playerで未対応アプリにも対応出来るのね。
だ、だれかスクリプト作成出来る方居ませんか・・・

東風荘はASに対応してないから無理ということで。

OSXではFinder上でMP3などを再生することができます。

で、思い付いたのですが、例えばMusicフォルダの中にある音楽ファイルを
続けて再生したり、ランダムに再生することはASで可能でしょうか？
Volumeもxx％とか指定できれば完璧です。

実現すれば最軽量のプレーヤになるはずです。
なぜならFinder上でMP3を再生しながら他の作業を行っても、全く負担に
ならないからです。

私はAS全く分かりません。　とりあえず、可能かどうか、もし可能であって
自分で作れというのなら参考になるサイトなど教えて下さい。

>>399
出来てもバッファがないので、音が切れまくると思うが？

>>400
すみまえんねえ、分かりやすく説明していただけますか？

失礼

｢OSXではFinder上でMP3などを再生することができます。｣ってほんと？

>>403
ムービーなども可。

1. ASでMP3の再生をコントロールできるか？
2. ASで再生し終わったことを検知できるか？
がポイントですな。

とりあえず、システム標準で可能になるようにフィードバックしてきます。
引き続き、解答をお待ちしております。

>>401
専用のプレーヤーは、一旦再生するのを溜めてから再生
するのだけど、QuickTimeだとそういう訳にはいかない。
iTunesの再生で、曲間が空くのはそういう理由。
だからQT利用は、なんのタスクも実行されてない環境なら
よいが、なんらかの作業中に流すと、ブチ切れる可能性大。
>>403
つか、QTに対応してれば、なんでも再生出来る。
カラム表示にしてみな。

今思ったけど、MP3のプレビューって結局QuickTimeだろうから、
ややこしくFinderを経由して制御しなくても、
QuickTimeをASであやつったほうがいいんじゃないかいね。
重さ的にそんなに変わらんがする。
ちなみにOS Xのリストプレイヤー的なものならAro-FMが軽くてええよ。

>>407
なるほど、溜めですか（ストリームのときのあれですね）
Finderで再生しながら、ブラウザ使うくらいならなんともないです
けど、もっと重いことやったらやばいのかな？

フィードバックしてきたけど、無理かな？

>>408
Aro-FMは確かにいいですが、いかんせんランダムですので
（細かくフォルダをわけてやれば、ある程度好みの曲をピンポイントで
再生できますが）
Finder上で連続、ランダム再生できれば、他にアプリ起動しなくて
良いから（単純に）最軽量ではないか？と思ったので・・・
で、たまたまASが思い付いたからここに書きました。

>>410
Afo-FMも、QT使って再生してるから、基本的にやろうとしてる事は
同じですわ（藁
確かMintAudio（だっけ？）のX版が、Aro-FMに似たテイストを持ってる
と思った。
こっちは「順番」でも再生出来る。
ま、勉強したいなら、思ってる事を実現されたし。

Finderの辞書見たよ。
プレビューの再生に関する命令は見つからなかった。
なんとかして再生できても曲が終了したのが検知できないから、
リスト再生は無理っぽいな。
それにプレビュー再生は他のファイルを選択すると曲も停止するから、
バックエンドプレーヤーとしての使い方にはそもそも向いていないかと。
Cocoaで自作がいいんじゃない？そんなに難しくないと思うし。

あ、、
>それにプレビュー再生は他のファイルを選択すると曲も停止するから、
は同じウィンドウ内で別のファイルを選択した時だけで、
別窓の場合は停止しませんね。どちらにしても無理っぽいですが。。

>>411-413
ありがとうございます。
しばらく、ネットどころかパソコンも使えなくなるので、
オブジェクティブCの本でも買って勉強します。
作るものが、いきなりAudio Appでは厳しそうですが、自分好みの
ものがなかなかないので挑戦する価値はありそうです。

＞MintAudio
・・・シェアなので（ﾜﾗ

Fetch 4.0ってstoreできなくない？
put intoはできるみたいだけど・・・
困った。

↑あ、環境はOS9.1です。

age!

今日はOSXのTerminalでosascriptってコマンドを発見したYO!
ターミナルからAppleScriptを実行できます。詳しくは以下で。
ttp://www.zdnet.co.jp/macwire/0105/21/c_browsing_2.html

コマンドをフルパスで指定しなければならないと言うバグがあったりするけど。
これでon runで引数を取れたら最高なのになぁ。10.1に期待しちゃいますね。

良スレあげ

ageハ調

あげたよん。

421さんアリガトです。多謝。

クリッピングパスを持った、EPSファイルを突っ込んだら、
そのクリッピングパスの名前のフォルダを作ってくれて、
そこにそのファイルを移動してくれるスクリプトって無理っすかね？
パスの有無なら分けられるんですが、パスの名前ごとだと自分では無理でした。。。
これができれば、フォトショップのバッチがだいぶ楽になるんですよね。

捕手上げ

http://teri.2ch.net/test/read.cgi?bbs=mac&key=986274279&st=216&to=220&nofirst=true
２ちゃんのdatファイルをHTMLに変換するAppleScriptなんて、
作れるものでしょうか…？

作れるけど、AS向きじゃない。
テキスト処理は遅いから。

AppleScriptを用いてシステムの日付と時刻を
変更するにはどうしたら良いのでしょうか？

ageついでに。
iCabスレの132に開いてるページのグーグルキャッシュを表示するAS？があったよ。

OSX用のAppleScript開発環境として、
AppleScript StudioてのがAppleから出るだってよ。
ttp://www.apple.com/applescript/macosx/ascript_studio/

ASはなあ、OSAXの使用権が面倒なのがなあ。
あるでしょ？どこそこのサイトに行って○○OSAXを落として入れてください、ってのが。
Rbみたいにアプリ化したらOSAXの機能が内包されるように作れないのかね。

>>428
!
どんだけのことができるか楽しみだ。
http://www.apple.com/macosx/theater/applescript.html

たのしみだ。

レスが付かないので、風邪で寝込みながら自分で作ってみた。
（但し今更HyperTalkなり）
on opencard
global gStart,gEnd,gCount
put 1 into gCount
put the seconds into gStart
end opencard

on Idle
global gStart,gEnd,gCount
put gStart+5 into gEnd
get the seconds
if it > gEnd then
setdate gStart
put gCount&"回目の巻き戻し"
put gCount+1 into gCount
else
end if
end Idle

あげ

ﾋｿｰﾘage

アップルスクリプトって難しいんですか？
当方プログラミングどころかマックもパソコンも初心者です

>>435
簡単なことをやるなら簡単。難しいことはやはり難しい。
初心者でもルールを覚える気があるならできるはず。
俺なんかもパソコン初心者だから既存のをいじる程度だけれど。
↓こういうことできるよ、なかなかに面白い。
http://homepage.mac.com/jinjin/applescript/index.html

あまりに情けない質問なのでsageで。
ことえりをUSに変更することって、ASでできますか？
USモードにしていないと、ショートカットがうまくうごかない
アプリがあるので、そのアプリ起動とスクリプト切り替えをセットにした
ASを作っちゃおうかと思ったんですが。

ScriptMenu.menuって凄い使えそう。
http://www.apple.com/applescript/macosx/script_menu/


で、これを活用することを考えた。

アプリケーションをドラッグ＆ドロップすると、そのアプリの名前を
参照して、
tell application "####" to activate
の####の部分を置き換えて、かつ~/Library/Scriptsに突っ込んでくれる
アップルスクリプトが欲しいナァ。
これでAppleMenuの復活カモ。ただしアイコンはAppleScriptのものに
なっちゃうケド。

あげ

>438
これ作って公開してくれるとマンセーな人多数出現の予感ですよ。
つか、誰でもいいから作って下さい。
私にはスキルがありませぬ。

スリープ機能を1発でOn/Offにするスクリプトってありますか?OS 9用です．

>441
スリープ機能って特別で出来るスリープのことだよな？
もしそうなら

tell application "Finder"
sleep
end tell

前に2ch閲覧用スクリプトを作って、んでアカ消されてしまいましたが、復活です。
暫定的に新スクリプト対応版を作りました。
members.tripod.co.jp/obto/script/script.html

どうも．でも，長い間何もしてないとスリープに入るかどうかをスイッチで切り替えるようなことがしたいんです．Macから離れてTV(Macにチューナー入れてある)を見るときなんかはスリープしてほしくないんで．

あぁ、コンパネをいじるスクリプトがほしいのね。

ASでコンパネ操作できるの？

age

以前、デスクトップのアイコンが散らばらないように、
整頓するscriptがあったけど、osx用、誰か作成してませんか？

10.1にしたら、なんかアイコンの位置が変、隙間空きすぎ、

>>448
作ろうとしたけど、OSXのFinderはitemのposition属性を変更できない。
っていうか変更しても反映されない。
バグか(ﾟДﾟ)ｺﾞﾙｧ

IEで特定のページを定期的にリロードするっていう
スクリプトは無いですか？
自分ではどうにもなりませんでした(T T)

438のスクリプトぽちい。誰か。神よ。

PowerBookやiBookのトラックパッドを無効にするスクリプトを
誰か作ってくれませんか。基本的にマウスを使ってるので、
トラックパッドは邪魔なんです。

http://www.vector.co.jp/soft/mac/util/se087102.html

>>450
これではアカンの？？？
tell application "Internet Explorer"
Activate
set i to 0
repeat while i = 0
OpenURL "http://www.yahoo.co.jp/"
delay 1
end repeat
end tell

age

ttp://member.nifty.ne.jp/hoshi1/
にある「マウントRV」と言うiDiskにダブルクリックで接続できるASを
最近知ったんですが、これはどのようにして書かれてるんですか？

>>456
うーん...何かウチでは動いてくれないです、コレ。
なのでどういう動作するか分からないですが
mount volume "myvolume" on server "myserver"
でAppleShareボリュームをマウントしてるのではないのかなぁ。

600円のシェアウェアとの事ですが、AppleTalkオンにしてマウント
するだけなのですか？それとも他に何か面白い機能があるんですか。

>454
バッチリです！サンクスコ！！

>457
遅レス、スマソです。
ウチのMacは通常、AppleTalkをOFFにしてるんですが、
マウントRV使用後にもAppleTalkはOFFのままで、
この機能がしっかり働いてるのか疑問なんですが、
初回起動時に、IDとパスワードの入力をすれば、次からは
起動させるとパスワードの入力無しにiDiskをマウントしてくれるんで、
iDiskのエイリアスから、ログインするより便利なんですよ。

で、AS初心者の自分なりに考えてみたんですけど、
どうしても仕組みが解らなくて質問させてもらいました。

たまに浮上。

どなたかPalmのHotSyncの制御に使われている人いますか？
複数の登録名を登録しているHotSyncから名前を取り出したいのですが辞書開いていろいろ試してみてもうまくかんのです。
厨房な質問でスマソ

>>438 >>440
ttp://homepage.mac.com/shinorar/download/DropRegister for SM.sit
だーれもレス付けてない様なので、作ってみました。こんなんで良いですか？

解凍されるとフォルダが１つ出来るので、
Applicationフォルダにでも入れておいて下さい。
で、その中の「DropRegister for SM」アプリケーションを
ツールバーにドラッグしてください。

~/Library/Scriptsに登録すると、他の環境を汚してしまうのが嫌だったので、
/User/username/Library/Scripts/に登録する様に作ってあります。
このフォルダは、スクリプトメニューの最後の「Scriptsフォルダを開く」
を選択すると作られるので、この作業をしておいて下さい。

何か疑問に思ったり、問題が起ったり、改良した物があったら、
ここのスレにでも書いといて下さい。
ただし、問題が起こってもそれほど知識がないので、当てにはなりませんが。

このスクリプトは実行専用で保存してないので、ScriptEditorで見る事が出来ます。
なので、数回使って問題なければ、実行専用で保存して貰っても良いですし、
スクリプトをいじくって、改良版をアップして貰えたら嬉しいです。

>>462
えらい！
おれ、ScriptEditor自身がスクリプタブルじゃないから
作るの不可能だと思ってた
「store script」なんてコマンドがあったんだね
アップルスクリプト勉強中なんでとても参考になった

現在、出来上がったコンパイル済みスクリプトに
それぞれのアプリのアイコン貼付けるように
カスタム出来ないかと思考錯誤中

アプリをクリエーターでして、前面に持って来るにはどうしたらよいですか？

tell application "Internet Explorer"
activate
end tell

というのが可能なのはわかるのだけど、

tell application file id "MSIE"
activate
end tell

だとなぜか作動しない。
「データを指定された型に変換できませんでした」との警告が出る。
Finder からアプリを開くには、application file id "xxxx" でいいよね。
・・・わからぬ。
だれか助けて下さいまし。

tell application "Finder"
open application file id "ttxt"
end tell

>>465
それも試しました。
けどアプリが開くだけで、前面には出てこないのです（Ｔ＿Ｔ）

file id "xxxx" は、AppleScriptが直接認識出来る
書式ではないから、ｺﾞﾙｧされる。
これを理解出来るのは、Finderだけ。
よって、>>465が正解かと。

てゆーか、465で前面に来ないというのも変だな・・・

ウチのOS Xではちゃんと動くんですけど。フロントにも来るし。

age

ﾎｾﾞｰﾝ

ﾎｹﾞｰ

age

現在の音量を調べて、
０ならば１、
１ならば０に一発で変更できるようにするには、
どうすればよろしいですか？
自作した物では、
ボタンを押してしか実行できないのです。
ご指導お願いします。

現在の音量を調べる方法はありません。
あれば便利なんですけどね。

久しぶりに来てみました。
>>474
---
tell application "Sound Scripting"
set v to sound volume
if v > 0 then
set sound volume to 0
else
set sound volume to 1
end if
end tell
---
です。

ちなみに、音量を初期設定フォルダにファイルとして保存するスクリプトと
保存された音量に復元するスクリプト↓
--音量を保存して無音化
--「起動項目フォルダ」に入れる
set f to (((path to preferences folder) as text) & "Sound Volume preference") as text
set ff to open for access file f with write permission
tell application "Sound Scripting"
set v to sound volume as string
write v to ff
set sound volume to 0
end tell
close access file f
beep


--音量を復元
set f to (((path to preferences folder) as text) & "Sound Volume preference") as text
set ff to open for access file f
tell application "Sound Scripting"
set sound volume to read ff
end tell
close access file f
beep

476って、あまりにも腐れスクリプトなんで書き直しました。
音量が1以上なら、現在のボリュームをスクリプトに保存して音量を0にし、
音量が0なら、スクリプトに保存された音量に復元するスクリプトです。
---
property vv : 7
tell application "Sound Scripting"
set v to sound volume
if v > 0 then
set vv to v
set sound volume to 0
else
set sound volume to vv
end if
end tell

>>91
遅レスですみませんが、できちゃいました。
NetEventsというTCP/IPを喋れるアプリをASで制御すればOKです。
非常に危険なので実例は公表しませんけど、
http://mtlab.ecn.fpu.ac.jp/webcon.mtxt$010904114908.html
が参考になります。

>478
すごい！
ありがとうございます！
もっと勉強いたします。

OS X の Mail で「差出人に戻す」という、迷惑メールに対して
存在しないアドレスのフリをする機能があるんですが、
それと同じようなことを AppleScript で Entourage or Outlook Express に
実装できませんか？

>>454
かなり、遅レスですが、無条件ループなら、

repeat
tell application "Internet Explorer"
OpenURL "http://www.yahoo.co.jp/" toWindow -1
end tell
delay 600
end repeat

のように、ただの repeat で良いです。

>>482
ｽﾏｿ。別に質問じゃなくって、こんなに簡単に書けるが
これではアカンの？って意味だったのです。
whileを付けたのは止める時に使うと思って。

>>481
へぇ〜OS Xだとそんなのあるんだ。
俺はStress-Spammerを使ってたんだが、メーラーの組み込みだと
ラクそうだね。...でもOEのスクリプト制御はよく分からないよゴメン。
もしOE単体で無理でもNetEventsとかRbと連携とればいけそうだね。

Stress-Spammer(Rbソースも付いてます！)
http://isweb32.infoseek.co.jp/computer/nkgwk/sw/sspammer.html

Mac OS X で cron に AppleScript を定期実行させようと思ったんですけど、
なぜか cron が osascript コマンドを実行しません。
他のコマンドは実行するのにどうして…

入力方法のことえりとUSの切り替え（コマンド＋スペースで切り替えるやつ）は
AppleScriptで制御できるのでしょうか？

>>485
できないみたいアゲ

...Xでは知らないケド。

>>486
答えてくれてありがとです
うーん　ちょっと残念だけど今しばらくはコマンド＋スペースで
我慢します

>>485
KeyQuencer
http://www.binarysoft.com/ftp/mac/kqm255l.hqx
をインストールして（レジストを求められるがレジスト不要）、
---
tell application "KeyQuencer Engine"
DoScript "Menu \"EGBRIDGE\""
end tell
---
でEG Bridgeに、
---
tell application "KeyQuencer Engine"
DoScript "Menu \"U.S.\""
end tell
---
でU.S.になります。
ことえりは試してませんけど、多分大丈夫でしょう。

KeyQuencerを使えば、メニュー関係を全部AppleScriptで制御できるので
全自動化を目論む方はお試しあれ。

>>488腐れさん

うわさに聞いてたんですがKeyQuencerってそんなこともできるんですね！
今まで敷居が高いと思って試してなかったけど
いい機会なので試してみます

ありがとうございました

OSAXのMenuEventsを使えば、メニューもコントロールできるかな？

>>490
できるかも、と思って試してみたんですけど
入力メニューの制御は（私には）できませんでした。

12.15号のマックピープルにQuickTimeでデジカメのムービーを
DV形式で書き出すアップルスクリプトが出ていて重宝しています。
これと同じように音声も書き出せないでしょうか？
あまりに初心者な質問ですがよろしくお願いします

>>485
OS9ならできるよ。某MLでの情報ですが。

Sandi's AdditionsというOSAXをいれて
TypeText space with Command
や
TypeText " " with Command（ " "のあいだは半角スペース）
で切り替わるそうです。

あとは、Jon's commandっていうosaxを入れて、
さらにKeyboard_mode_FKEYというフリーウェアをいれると
execute FKEY 9　で半角英字入力
execute FKEY 8　でひらがな入力
になるそうな。

どちらも自分は試していないけど、そういう話題があった、ということで。
あ、OSAXはどちらもフリーだと思う。

みなさんいろいろ教えて下さってありがとうございます
OSAXというやつも一度使ってみようと思ってたので試してみます

いろいろなあるもんですね

あ、KeyQuencerの方は見事にできました
いま、もっと別のこともやってみようと思って調べてます

腐れさん、どうもありがとう

今、AppleScriptの勉強をしています。
で、choose fileで参照したファイル（アプリケーション）のパスを取得して、
そのファイルをtellしたり出来ますか？ちなみにソースは

set theApp to choose file with prompt "select" of type "APPL" as text
set AppleScript's text item delimiters to {":"}
last text item of (theApp as text)
tell theApp
launch
quit
end tell

こんな感じでやってるんですが。とりあえずアプリケーションを１度起動
させて、すぐに終了させたいんでopenだと都合が悪いんです。で、古い
MacOS（OS8.0くらいまで）も対応させておきたくて、OSAXもあんまり
使いたくないんですが、出来ますか？

昨日から勉強はじめたもんで、解らない事が多いです・・・本もあんまり
売って無いし。

>>496
>ファイルをtellしたり出来ますか？

何がしたいのか良く分からないんですが...
もっと具体的に書いてもらえますか。

要は、スクリプト起動時に、"あるアプリケーション"のパスが特定出来ない
ので、choose fileを使って"あるアプリケーション"の場所を明示的に指定
してもらい、その"あるアプリケーション"をtell application "○○"と出来る
のか？と、言う事です。

上のソースでは、theAppと言う変数（と言う呼び名で良いのかな？）に、
choose fileで選択したアプリケーションのパスを取得させ、それをtellし
ようとしているのですが、上手く行かないので、おそらく取得したパスの
内容を何かしらの型に変換しないといけないと思うのですが、その型が
わかりません。

で、そのアプリケーションをlaunchもしくはrunした直後に、quitさせたい
ので、openじゃ都合が悪いと言う事です。


ところで別の疑問が沸いて来たんですが、AppleScriptの場合、>>496の
様な聞き方は具体的では無いのですか？自分的には意味が通じる様に書いた
つもりだったのですが、言いたい事が相手にちゃんと伝わらないと言うのは、
この場合だと、いまいちtellを理解していないかもしれないと思ったもので。
そのへんも御教授願えれば幸いなのですが。

>>496
OSAX は使わない方法って
"choose file" は OSAX なんですけど‥
「標準機能追加」は使ってもいいということですね？
でしたら
"choose application" を使えばいいと思います

set theApp to choose application with prompt "select"
tell theApp
launch
quit
end tell

これでできませんか？

／￣￣￣￣￣￣￣￣￣￣￣
|　今だ！500ゲットォォォとかやらないんですか？
＼＿　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　 　｜ ／　 ／ 　　　　　　　　
　 　 ∨　　| 　ここ500だしね。
日　▽　凸　＼　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
≡≡≡≡≡ 　 ｜/ 　　 ∧ ∧　　 ／
　[]　∩　［］ ∨　目 （ﾟДﾟ ;）＜ 　勘弁してくださいよ・・・
＿＿ ∧ ∧＿＿.＿ ∧ ∧ .|つ∽)＿　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　(　　,,)日　 (　　,,)Ｙ
――/ 　つ―――/ 　｜――――
〜┏━┓ノ　〜┏━┓ノ
　┗┳━┛　　┗┳━┛
￣　┻ ￣ ￣￣ ￣┻￣￣￣￣

>>496
なるほど。
パスを指定しないでtell application "○○"と
いきなり指定しておけば良いのではないでしょうか。
"○○"が見つからない場合、初めの一回は場所を聞いてきますが
それ以降は普通にtell出来るようになるはずです。
そういう事じゃないのかな？

パスを取得して起動するんであればこんな感じで。
set a to (choose file with prompt "select") as string
tell application a
activate
end tell

>>496の様な聞き方は具体的では無いのですか？
少なくとも私には文脈が汲み取れなかったというだけです。
「パスを取得してそのファイルにtellしたり出来ますか？」
と書いてくれたら分かったんだけど。

既出であることは間違いないのですが、ログアウトしてしまったスクリプトを
探しています。

・IEで閲覧中のページタイトルとURLを、メーラに送るスクリプト

大変重宝して使っていたのですが、HDクラッシュと共に消えてしまいました。
その後、web上をあちこち探しているのですが見つからずに困っています。
在処をご存じの方、こう書けばいいという方、教えていただけませんか？

>>502
メーラには送らないけれど、
クリップボードにURLとタイトルを保存するものなら
---
tell application "Internet Explorer"
set a to ""
repeat with xx in ListWindows
set q to GetWindowInfo xx
set a to a & item 2 of q & return
set a to a & "<" & item 1 of q & ">" & return
end repeat
end tell
set the clipboard to a
---

それネスケでやる方法も教えてくれませんか？

>>504
---
tell application "Netscape Communicator (tm)"
set a to ""
repeat with xx in list windows
set q to get window info xx
set a to a & item 2 of q & return
set a to a & "<" & item 1 of q & ">" & return
end repeat
end tell
set the clipboard to a
---
でどうでしょう。
びみょーにソースが違う...

Apple Script Studioがもうすぐ出るみたい。楽しみ。

ttp://developer.apple.com/techpubs/macosx/CoreTechnologies/AppleScriptStudio/index.html

これ、FMでのURL自動取り込み、ネスケ変更できない？
try
tell application "Internet Explorer"
set infolist to GetWindowInfo of -1
end tell

set urlinfo to first item of infolist
set titleinfo to second item of infolist

tell application "ファイルメーカー Pro"
set cell "adoresu" of current record of database "URL_locator.fmj" to urlinfo
set cell "taitoru" of current record of database "URL_locator.fmj" to titleinfo
end tell
on error
beep
display dialog "Internet ExplorerでWebベージを開いてからもう一度スクリプト実行して下さい。" buttons {"OK"} default button "OK" with icon note
end try

>>499
choose applicationは、現在起動しているアプリケーションを選択する
命令ですよね？要は「これから起動させるアプリケーションを選択させる」
スクリプトを組みたいので、これじゃダメなんです。それから言葉足らずで
すみませんでした。標準機能追加は使用しても良いかなぁと。あんまり制限
しすぎると便利が悪いんで・・。

>>501
実は、そんな感じのスクリプトを、ここで聞く前に試したんですが無理でし
た。
set a to (choose file with prompt "select") as string
tell application a
launch
quit
end tell
こう書くと、Finderが終了してしまいますし、そもそも取得したパス上に
あるハズのアプリケーションが起動しません。また、「はじめの１回は場所
を聞いてくるが、次回以降は聞いて来ない」方法は使いたく無いのです。
常に毎回アプリケーションの場所を聞いてくる様にしたいので。それから
前回の聞き方に対しては納得しました。申し訳ありませんでした。


REALBasicとか使わないと無理なのかな。

>>503
探していたスクリプト自体はみつかりませんでしたが、教えていただいた
ソースを元に Quickeys と組み合わせて、目的の機能が得られました。
ありがとうございました。

>>496
御丁寧にどうも。ま、私も通りがかりの素人なんで
お気軽にどうぞ。

で、508で書かれたスクリプトですが、動きましたよ。
...アプリケーションによっては。
launchは、起動はするけど初期化は行わないっていう動作なんで
実際の挙動はアプリの作り方によって色々だそうです。
JeditやDreamWeaverはlaunch出来ましたが
Photoshopは起動するがメニューが表示されず
GraphicConverterは起動時エラーでした。

どういう事情か良く分りませんがrunとかactivateじゃあ
駄目なんでしょうか？

>>507
ファイルメーカを持っていないので検証できないんですが、
---

tell application "Netscape Communicator (tm)"
set a to list windows
set infolist to get window info item 1 of a
end tell

set urlinfo to first item of infolist
set titleinfo to second item of infolist

tell application "ファイルメーカー Pro"
set cell "adoresu" of current record of database "URL_locator.fmj" to urlinfo
set cell "taitoru" of current record of database "URL_locator.fmj" to titleinfo
end tell
on error
beep
display dialog "Internet ExplorerでWebベージを開いてからもう一度スクリプト実行して下さい。" buttons {"OK"} default button "OK" with icon note
end try
---
で恐らく動作すると思います。

>>510
すみません。>>508に書いたスクリプト単体だと、問題なく動作しました。
実は、この部分以前に動作しているスクリプトがあって、全体を記すと

tell application "Finder"
　activate
　set SelectWindow to {"application", "file"}
　choose from list SelectWindow with prompt "select mode:"
　set res to result
　　if res is in "application" then
　　　set theApp to (choose file with prompt "select app: ") as string
　　　tell application theApp
　　　　launch
　　　　quit
　　end tell
　end if
end tell

全体的には（今のところ）こうなっているんですね。
このスクリプト事体は、動作モードを２つ設けていて、現在はその一方の
方から作成していっているところなんです。で、これだとFinderがquit
してしまうみたいなんですね。こういう書き方はダメなんでしょうか？

496>>
ほんとだ〜、Finder終了しちゃいますね。
どうしてそうなるかの解説は詳しい人にお願いするとして
とりあえず動く方法をみつけました。
tell〜end tellの範囲を区切ってやると大丈夫みたいです。

tell application "Finder"
activate
set SelectWindow to {"application", "file"}
choose from list SelectWindow with prompt "select mode:"
set res to result
end tell

if res is in "application" then
activate
set theApp to (choose file with prompt "select app: ") as string
tell application theApp
launch
quit
end tell
end if

>>513
そのスクリプトだと、そもそも
Finder に　tell する必要ないんじゃないの？

>>514
するどい御指摘ありがとうございます。
tell application "Finder"とend tellを外すだけで512動きますね。
ひとをダシにしてすっかり自分が勉強になりやした。（それが目的でここ見てるんだけどね）

>>511
ありがとうございます。
「try」入れても、ファイルメーカのAppleScriptチェックで蹴られて
しまいますね。
うち帰ってじっくりやってみます。

編集しているうちに動作するようになりました。有り難う。

ただ、タイトルに「Netscape:」が付いてしまうんですよね。
文字列から特定の文字、もしくは指定バイト分取り除くにはどうするの？

AppleScriptは全然解らない

ほい
set a to "Netscape123456"
set b to characters 9 through end of a
display dialog b as string
でもこのくらいは AppleScriptリファレンス読めばすぐ分るでしょ。

だめだ
set ward to characters 9 through biggin of titleinfo
set titleinfo to ward
えらーがでる

Applescriptは昔「Applescript活用講座」という解説本を買ったときから
間違いの始まりだった。

AppleScriptってなんかダッセーってばよ。

>>519
ん？何故「Netscape:」を取り出そうとする？
biggin?

文字列の削除と取り出しがごっちゃになってない？
これで動くでしょ。

tell application "Netscape Communicator (tm)"
set a to list windows
set infolist to get window info item 1 of a
end tell

set urlinfo to first item of infolist
set titleinfo to second item of infolist

set b to characters 10 through end of titleinfo
display dialog b as string

つまり、
set b to characters 10 through end of titleinfo
set titleinfo to b as string
ですね

これでタイトルからNetscape:が消えて保存されるようになりました
色々と有り難うございました。

システム終了するAppleScriptアプリを作って起動項目フォルダに入れる
永遠に起動〜システム終了を繰り返すのだ。

…というイタズラをよくやったもんだ。

>>513
毎回、御教授頂いて本当に有り難うございます。
前回記したコードで何故Finderが終了するかは未だに謎で、原因が気になる
ところですが、>>513において記して頂いたようなコードを、実は今朝ここ
を見る前に書いていました（しかも私もFinderを呼ばなくても良い事に気付
いていませんでした）。しかしながら、丁寧な回答をして頂き、ありがとう
ございました。


とりあえず、人生初のAppleScriptは完成しそうです。
おそらく無駄なコードが多いソースになっていると思いますが(w
とりあえず、このスレの主旨はタイトルにある通り「発表会」の様
なので、近い内に公開した方が良いのかな・・・

>>523
システム終了するスクリプトにフォルダアイコン
貼付けたりとかね！

activate

>>524
１、スクリプト編集プログラムの制御メニュー→履歴を開く（ｺﾏﾝﾄﾞE）
２、スクリプト実行
で Finder 終了の謎が解けると思います。
スクリプトがどう解釈されるか解るので、無駄なコードも減らせるかも。

クイックタイムでmovie1などの動画のファイルと
mp3のような音声ファイルを開いて、
その2つを結合させるようなスクリプトってありませんか？

海外のスクリプトを使おうとするとstringが変換できないなどのエラーでて動きません。
何が悪いのでしょうか？
たとえば、
ttp://www.apple.co.jp/applescript/deskcam/deskcam.html

OS XでSystemPrefのInternetの設定の
WebBrowserをIEからOmniWebに切り替える
スクリプトってつくれますか?

>>529
OS 9.2.2 のバグです。
フォルダやファイルのパスをテキストに変換できないみたいです。

9.2.1以前のAppleScriptなら動作します。

age

ｈ抜きのurl、自動リンクされない選択中のｕｒｌを
クリックして新しいウィンドウで開くスクリプト、Macでも作ってくれ
Macはネスケユーザが多いので、ネスケでも使えるといい

ここには達人がいないのか？　age

>>533-534
4時間しか経っていないのに、文句言ってきてる…。冬厨か？
どー考えても、AppleScript単体じゃ出来ない（範疇じゃない）と思うんだけど。
選択したurlをアプリケーションにドラックして開くんなら、出来るかも知れないが。

>>533
こんなんでいいのかな？
IEで「ttp」から始まる行を抜きだしてダイアログに表示し、
選択すると新しいウインドウでそのURLを表示するスクリプト。

---
set theList to {}
tell application "Internet Explorer"
set t to (GetSource) as text
end tell
set AppleScript's text item delimiters to "br>"
set s to text items of t
set AppleScript's text item delimiters to "<"
repeat with i from 1 to count items of s
set x to item i of s
if x contains "ttp" then
if text 1 thru 3 of x is "ttp" then

set x to item 1 of text items of x
set the end of theList to (("h" & x) as text)
end if
end if
end repeat

set theURL to choose from list theList
tell application "Internet Explorer"
OpenURL theURL toWindow 0
end tell

改良版。
ローカルに保存し、ttpで始まる行を補完してリンクタグを付ける加工をして
その加工したファイルをIEで開きます。
---
tell application "Internet Explorer"
set a to GetWindowInfo -1

set a to item 1 of a
OpenURL a to file "TargetURL.temp"


set IEPath to path to application "Internet Explorer" as text
set AppleScript's text item delimiters to "Internet Explorer"
set IEPath to item 1 of text items of IEPath
set thefile to (IEPath & "TargetURL.temp")

set fh to open for access file thefile
set ct to read fh
close access fh
end tell
set theList to {}

set AppleScript's text item delimiters to "br>"
set s to text items of ct
set AppleScript's text item delimiters to "<"
repeat with i from 1 to count items of s
set x to item i of s
if x contains "ttp" then
if text 1 thru 3 of x is "ttp" then
set theURL to item 1 of text items of (("h" & x))
set the item i of s to "<a href=\"" & theURL & "\">" & theURL & "</a><"
end if
end if
end repeat
set AppleScript's text item delimiters to "br>"

set fh to open for access file thefile with write permission
write (s as text) to fh
close access fh

tell application "Internet Explorer"
ShowFile file thefile
end tell

>>536
おつかれさまです。

ふと思ったのだけど、コピーしたクリップボードを
書き出す方処理したもお薦め。

なんかスクリプト編集プログラムが調子悪くなったくらいから
全然書かなくなってしまったよ、、、

こんにちは。
どなたかお知恵を拝借下さい。

以下の動作をスクリプトで動かしたいのですが・・・。

1.アップルメニューからAirMacを選択
2.AirMacを使用するをクリック
3.アップルメニューからネスケを起動
（マルチユーザーになっているので001で起動）

tell application "Finder"
activate
select file " AirMac" of folder "アップルメニュー" of folder "システムフォルダ" of startup disk
open selection
select file "Netscape Communicat" of folder "internet" of folder "アップルメニュー" of folder "システムフォルダ" of startup disk
open selection
end tell

少し試してみたのですが、2.がよくわからないのです。
3.も起動ユーザーを選ぶところでつまずいてしまいました。

どうか宜しくお願い致します。

>>539
1、2は、AirMacのサンプルスクリプトの「AirMac を使用」じゃだめなの？

用語説明でも見れば
-対象物を編集プログラムにドラッグ

知ってるか・・

３は起動ユーザーが選ばれた状態でネスケウィンドウオープン
したいという意味ですよね？

ネスコシリーズを複数のユーザーで使う時は
NetscapeフォルダのEssential Files内のNavigator shortcutって
ので開くんですよ、
設定は初めにクリックすればできると思うけど出来ない時は編集プログラムで開いてやってから。
property ProfileName :
property PrefsAlias
の価を入れてやれば設定終了。

こっちをopenしてやれば３はクリアできるかと？

Airmacの方はAirMac ScriptingってOSAXの辞書を開いてやって
ください。　当方AirMacないんでよくわからんす。

しかしいつになったら編集プログラムがまともに動作すんだよ、アポー。

Mac OS X(10.1.1)のAppleScript1.7にてファイルネームの答え合わせが出来ません。
例えば、拡張子rmが付いているファイルにfile type"PNRA"とcreator type"PNst"を
setしたいのですが、うまくいきません。
例えば以下のドロップレットです。

on open Drop_List
repeat with Obj in Drop_List
tell application "Finder"
set Obj_Name to name of Obj
set Check_Name to characters -1 thru -2 of Obj_Name
if Check_Name = "rm" then
set file type of Obj to "PNRA"
set creator type of Obj to "PNst"
else
activate
display dialog "RealファイルをDropしてください"
end if
end tell
end repeat
end open

Mac OS 9.2.1だと問題ありません。
また、ドロップレットにせずにrmファイルを直接指定してやる方法で
アプレットにすれば問題なしなんです。
使い物にならないですけど。
なぜ Check_Name = "rm" に失敗するのでしょうか？
Check_Nameをdisplay dialogすると、rm を表示してます。

>>543
5行目の"characters"を"text"にすると良いみたいです。
"characters"だとcharacterのlistが返ってくるっぽいです。
{"r", "m"}のように。

Mac OS X 10.1.2, AppleScript 1.8です。

＜腐れ＞さんって、あの伝説の自治委員さんですかぁ？

OS9でのAppleScript実行環境は何使ってる？OSA Menuよりいいのない？出来れば、時間指定で
自動的にスクリプトを起動できるやつ。

>>546
http://www.apple.co.jp/applescript/idosched/ido.html

>>544
うおぉぉぉぉ!!ありがとうございます。
すみません、間違えていました。
5行目の下に実は、
set Check_Name to Check_Name as text
という行が抜けていました。これだと9.2.1では動くのですが、Mac OS Xではダメです。
でも、charactersをtextに変えるとMac OS Xでも無事に動きました。
本当にありがとうございました。

あと、もう一つあるんです。すみません。
これもas text関連なんですが、
フォルダかファイルか判断するドロップレットなんです。

on open Drop_List
repeat with Obj in Drop_List
if (Obj as text) ends with ":" then
display dialog "folder"
else
display dialog "file"
end if
end repeat
end open

Mac OS X(10.1.1) AppleScript 1.7では、何をドロップしても"file"になります。
前件と同様の理由でしょうか。

>>549
漏れも詳しくないが、UNIX系はフォルダもファイルじゃなかったっけ?つーか、全部がファイル。

>>549
確かにscript editor上のとdropletにしたものとで挙動が違いますね。
AppleScriptのバグかも。

とりあえずfolderか否かを調べるならif文のはじめを
if folder of (info for Obj) then
としておけば良さそうですけど。

ttp://のリンクを開くやつ
前にicab版は書いたけど、IEでも一語を変えれば同じ方法でできた。
wwwから選択してもttp://から選択してもOK

--選択したURLを開く　IE用
tell application "Internet Explorer"
set surl to selected text
if surl contains "ttp://" then
set AppleScript's text item delimiters to "ttp://"
set surl to text item 2 of surl
end if
OpenURL surl toWindow 0
end tell

--選択したURLを開く　iCab用
tell application "iCab"
tell window 1
set surl to selection
if surl contains "ttp://" then
set AppleScript's text item delimiters to "ttp://"
set surl to text item 2 of surl
end if
OpenURL surl toWindow 0
end tell
end tell

お二方、ありがとうございます。
基調講演のストリーミングを見ていて遅くなってしまいました。

>>550
私もなんだかよく解らないんですが、あちらの世界ではフォルダではなく
ディレクトリ？って言うんですかね？
GUIでフォルダとして目に入るMac OSでは理解しやすいですよね。
でも、as textしてやると、ちゃんと":"が最後に付いてる事は付いてるんです。

>>551
info forを使ってやってみました。
なんだか、容量を取得したりするので、あまり速くないと聞いた事があるのですが、
この際、方法が無いので当面はinfo forを使う事にします。

やはり、バグですかね・・・。
Mac OS 9からスクリプトを色々移行しようと思うのですが、
そのままでは動かない物がほとんどで苦戦しています。

どうもありがとうございました。

>>553
すんません、漏れがいいたかったのはUNIXのファイルシステムはフォルダ(ディレクトリ)を含めて、
すべてをファイルとして扱うということですが、この場合関係ありませんでしたね。

んで、色々検証してみましたが全く駄目でした。on openハンドラの中だと駄目なのかな?バグですな。tell usしときます。
Terminalを使ってみようかと思いましたが、戻り値の取り方が分からんす。できないのかな?
ちなみにperlでif(-d $name)ならできました。役立たずですいません。

>>554
Apple Scriptだとcommandの戻り値はとれなかったはず。
これが出来ればかなり便利になるんだけどな〜。

#!/bin/sh
if [ -d $1 ] ; then
　command ~
fi

も駄目だよね。はふ〜。

>>555
レスあり。やっぱ取れないのか〜。これもTell usしときまっす。
つーか、Tell usすること多すぎですな。

ＸのAppleScriptってClassicで出来たことが、出来ないっつーのがありまくりで、萎えるね。Perlとの連携とかさ、コンパネ周りとか。
ところで、Ｘ用AppleScriptスレって立てたほうが良いかな？

だれかApple Script Studio使ってる人いるかな。
Interface BuilderでGUI作れるやつ。

>>556
OS Xに限るならApple Scriptだけじゃなく、
Shell Scriptも含めた方が良くない？
perl なんかもいれてもいいし。

Xになってかなりいい感じのスクリプト環境がそろったし、
他のUNIXにはない使い方や組み合わせも出来るしね。

>>554
わざわざ検証までして頂いてありがとうございます。
やはり、on open〜end openではうまく動かないんですね。
私もフィードバックしておきたいと思います。

Terminalとかperlとか、もっと勉強しないとみなさんのレスの内容すら
理解できないです。
なんとなくTerminalって、とっつきにくい感じがします。
パー切り直して容量を十分確保し、Developer Toolsも入れてみます。
んでApple Script Studioも入れてみることにします。

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

>>549
遅レスですが‥
３行めの Obj as text は string クラスの unicode text みたいです
だから比較する相手の ":" も as unicode text してやると正常に動作します
直接クラスがえしてもいいんですが
まず変数に入れておく例を書いときます

property text_item : (":" as Unicode text)
on open Drop_List
repeat with Obj in Drop_List
if (Obj as text) ends with text_item then
display dialog "folder"
else
display dialog "file"
end if
end repeat
end open

いま AppleScriptStudio でいろいろ遊んでます
チュートリアルの Watson がまともに動いてくれなくて
いきなりつまずきましたが
文字列の比較のところに as Unicode text を
かましてやると動くようになりました
どうも日本語環境特有の問題のようです

>>556 >>558
ってことでOS X用スレ立ててみました。よろ〜
http://pc.2ch.net/test/read.cgi?bbs=mac&key=1010546884&ls=50

>>560
あ、あんたすげぇよ・・

>>561
おつかれ。
スレタイトルいいね〜。

>>560
そうだったんですか。日本語環境特有ですか。

on open Drop_List
repeat with Obj in Drop_List
set Obj to Obj as text
display dialog Obj
end repeat
end open

とやると、ちゃんとパスを表示してくれるのでUnicode textという代物に
気付きもしませんでした。
この場合、ObjはUnicode textだけど、display dialogする事によって、
普通のstringに自動変換してくれてるという事なんですね。

教えて頂いた、比較する相手をas Unicode textしてあげる方法でやってみます。
私の環境では if (Obj as text) ends with ":" then というのを使った
ドロップレットがたくさんあるので困っていました。
重ねて、ありがとうございます。

>>561
おつかれさまです。新スレは凄くレベルが高い・・・。ついていけるだろうか・・・。
また教えて君で質問してしまうかも知れませんがお許しください。

OS9.2.2 の AppleScript1.7で日本語のパスを文字列に変換出来ないのも Unicode のせいでしょうかね
>>549 でScriptEditer と droplet で挙動が違うのは
直接フォルダ名記述ではtext、on open ハンドラでパス取得ではUnicodeになるから？　それともtell するアプリが違うからでしょうか？？
Display Dialog はOSAXだから素直にTEXTに変換出来たの？

OS X は使えないんでわからないんですけど、OS9.2.2 に移行する事を検討中なんで気になります

age

Outlook Express 5 のあるメールフォルダにあるメール全ての
本文を、普通のテキスト形式でファイル保存するスクリプトが
ほしいのですが、似たようなスクリプトを公開してくれてる
Webサイトをご存知ないでしょうか。

>>571
heta-script MLの[heta-script:0068]Re:〜がそれだと思う。

スクリプトは長すぎて投稿できんかった。
www.fremml.comで探してみて。今落ちてるみたいだけど。

>>566だった・・。ｽﾏｿ

>>567
Thanks,
でも freeml.com が復活しない・・・

>>566
このスレか前スレの過去ログにあったと思う

Outlook Express 5 のあるメールフォルダにあるメール全ての
本文を、普通のテキスト形式でファイル保存するスクリプト
なら>>66にある。

>>545
伝説かどうかは別として、
覚えてる方がいるとは思わなかったです。
>>552
selected textでいけるんですね。
思いつかなかったので冗長になってしまいました。
>>566
>>66のやつ、サブフォルダのメールはテキスト化されないんで注意して下さいね。
Entourageだったら、フォルダをデスクトップにドラッグすると
タイプが「MBOX」のファイルができます。
このファイルのタイプを「TEXT」に変更してやれば、
煩雑なスクリプトを必要としないです。
OEが手元に無いので、Entourageと同じかどうかはわからないですが...

ageるＹＯ！

sage保守

tell thread "おもろい、めずらしいアップルスクリプト発表会"
age
end tell

tell res "575"
warata
end tell

>>28の腐れさんのスクリプトを
勉強のつもりでおこがましくも拡張してみたのですが、
ボタンとelse if文をもう一つ増やして4っつにしようとおもったら
IEの変数エラーとか何とかいわれて、駄目でした。
以下がボタンが3っつまでの正常に動くスクリプトです。
IEの一番上のウィンドウのURLを3っつの翻訳サイトから選んで翻訳します。
---
tell application "Internet Explorer"
set q to item 1 of (GetWindowInfo (item 1 of (ListWindows)))

set theButton to button returned of (display dialog "どこで翻訳する？" buttons {"nifty", "worldlingo", "exite"} default button "nifty")
if theButton = "nifty" then
OpenURL "http://nifty.amikai.com/amiweb/browser.jsp?url=" & q & "&langpair=1,2&toolbar=no&lang=JA&c_id=nifty" toWindow 0
else if theButton = "worldlingo" then
OpenURL "http://www.worldlingo.com/wl/Translate?wl_lp=EN-JA&wl_fl=2&wl_url=" & q & "&wl_g_table=-3" toWindow 0
else
OpenURL "http://www.excite.co.jp/world/url/body/?disp_type=3&wb_url=" & q & "&wb_lp=ENJA&wb_dis=3&wb_co=excitejapan" toWindow 0
end if
end tell
---
あまりにも厨な質問だったらごめんなさい。

AppleScriptで、ベンチマークソフトっぽいものを
作るという大学の課題があるんですが、
どのようなのが良いんでしょうか？
教えてください。お願いします。

>>578
それを自分で考えて実行する事が課題の意味だろ。

>>578
しかもマルチかよ。必死なんだな (w

>>578
ヒントだけ
まず現在の時間をとる
repeatでなんらかの処理
もう一回時間をとる
１回目の時間ー２回目の時間

課題でAppleScriptって珍しいな

>>577
Display Dialog のボタンは3つまでです。
Choose from Listを使っては如何でしょうか？

set theButton to choose from list {"nifty", "worldlingo", "exite", "xxxx"} with prompt "どこで翻訳する？" default items "nifty"

>>583
遅レスごめんなさい。
ボタンは三つまでなのですかー。
パワーボタンは4つあるから大丈夫じゃないかと思ってみたのですがね。
ご指摘の通り、リストを使ってみる事にします。
なんか、他の人のアップルスクリプトを参考にしながら
自分が作りたい物を作ってる行為が、
昔、小学生の頃MSXでMSXFANという雑誌のゲームのプログラムを見て
１行ずつ「こんな風になってるんだー」とか思っていたのを
思い出して懐かしい感じがします。

fetch4.01のFetch Example Scriptsに下のようなサンプルがありましたが、
ドロップではなくダブルクリックなど起動することでファイルをアップさせるように
するには、どこをどうかえればいいですか？

property gDesturl : ""

on specify_destination()
set dialog_reply to display dialog "Enter Destination URL in format:" & return & ﾂ
" ftp://[user[:password]@]host/path" & return & ﾂ
"Where [...] is optional." default answer gDesturl
if button returned of dialog_reply = "OK" then
set gDesturl to text returned of dialog_reply
end if
end specify_destination


on open doc
if gDesturl = "" then
specify_destination()
end if
if gDesturl ｭ "" then


with timeout of 60000 seconds
tell application "Fetch 4.0.1"
put into url gDesturl item doc
-- quit
end tell
end timeout
end if
end open

specify_destination()

>>585
Fetch 使ってないんで検証できませんが多分これで大丈夫
ダブルクリックするとアップするファイルを尋ねてくるので教えてやって下さい
sample から on open ~ end open の部分をそのまま付け足しておくと
ドロップレットとしても使えるので好みでどうぞ

property gDesturl : ""

on specify_destination()
set dialog_reply to display dialog "Enter Destination URL in format:" & return & ﾂ
" ftp://[user[:password]@]host/path" & return & ﾂ
"Where [...] is optional." default answer gDesturl
if button returned of dialog_reply = "OK" then
set gDesturl to text returned of dialog_reply
end if
end specify_destination

set up_file to choose file
if gDesturl = "" then
specify_destination()
end if
if gDesturl ｭ "" then
with timeout of 60000 seconds
tell application "Fetch 4.0.1"
put into url gDesturl item up_file
end tell
end timeout
end if

>>586
ありがとうございました。私の環境でも問題なく使用できました。

それと、ダブルクリック（起動）で、予め決まった場所にある
決まったファイルをアップするスクリプトも作りたいのですが、
choose file？の個所をどう変えるのかわかりますでしょうか？
教えてください。

>>587
586じゃないけど、
--通常オープン
on run
set up_file to choose file
specify_destination(up_file)
end run

on open up_file
specify_destination(up_file)
end open

on specify_destination(up_file)
命令文
end specify_destination

みたいに書くといいよ、

>>587
588 さんの提案で解決したかもしれませんが、一応作ったのでのせときます
「決まった場所にある決まったファイル」ってファイル名も決まってます？
そういう解釈でつくりましたので、勘違いならすまん
起動するとアップするファイルとアップ先をきいてきます
これらの値は保存されるので2回め以降は確認だけ求めてきます
よければ "OK"、変更したいときは "reset" してください
Fetch 使ってないんで検証できませんが‥以下略

property gDesturl : ""
property up_file : null

if gDesturl = "" then
initialize()
end if
repeat
set initialize_info to display dialog "destination : " & gDesturl & return & "file path : " & (up_file as text) ﾂ
buttons {"reset", "OK"} default button 2
if button returned of initialize_info = "reset" then
initialize()
end if
if button returned of initialize_info = "OK" then exit repeat
end repeat
with timeout of 60000 seconds
tell application "Fetch 4.0.1"
put into url gDesturl item up_file
end tell
end timeout

on specify_destination()
set dialog_reply to display dialog "Enter Destination URL in format:" & return & ﾂ
" ftp://[user[:password]@]host/path" & return & ﾂ
"Where [...] is optional." default answer gDesturl
if button returned of dialog_reply = "OK" then
set gDesturl to text returned of dialog_reply
end if
end specify_destination

on initialize()
set up_file to choose file
specify_destination()
end initialize

すいません，classicアプレットでAppleEventを受信するのは，どう書けばできますか？

GetURLを受け取って，それがブラクラじゃないかチェックしたいんです。

自己レスです。
on ﾇevent GURLGURLﾈ(theURL)
や
on open location (theURL)
でうまくいきました。
#まさかCGIの解説ページに載ってたとは...

588さん、589さん、本当にありがとうございました。
お礼の返事遅れてすみません。
私の書き方が悪かったのですが、実はOSXでcronなどを使って
指定した時間に自動的にスクリプトを起動させて、指定した
ディレクトリにアップさせたかったのです。

そこで、589さんに書いて頂いたスクリプトを
自分なりにOKダイアログが出ないでそのまま実行するスクリプトに
書き直していたのですが、うまく出来なくて苦悩していたところでした。

もし余裕がありましたOKダイアログが出ないパターンも
教えて頂けたら幸甚です。恐れ入りますが、よろしくお願いします。

OS Xでさ、コメント欄を一括で書き替えるのないの?
「コメント記入v3.0」みてーなの?
お前ら、作って下さい。<(_ _)>

>>592
確認のダイアログを出さない方がいいのなら
repeat ~ end repeat　をごっそり削除するだけでいいです
でもこれだと将来、変更の必要がでたときに対応できませんよ

というわけで
自動的にアップもするし変更も出来るパターンもつくりました
repeat ~ end repeat　の部分を下と入れ替えて下さい

repeat
set initialize_info to display dialog "destination : " & gDesturl & return & "file path : " & (up_file as text) ﾂ
buttons {"reset", "OK"} default button 2 giving up after 5
if button returned of initialize_info = "reset" then
initialize()
end if
if gave up of initialize_info is true then exit repeat
if button returned of initialize_info = "OK" then exit repeat
end repeat

確認のダイアログはでますが、5秒間待ってユーザの応答がなければ
勝手に先に進んで、この場合だとアップをはじめます
変更したいときは5秒経つまでに reset をおして下さい

cron でタイマーかけてるのなら quit 命令をといれとくと
Fetch が自動で終了するのでさらに便利かもしれません

cron で osascript が動く人いる？
ウチでは動かないんだけど。。

594さん、重ねて本当にありがとうございました。
おかげさまで目的のスクリプトになり、たいへん感謝です。
また、私の書き方が悪く何度もすみませんでした。

> 確認のダイアログはでますが、5秒間待ってユーザの応答がなければ
こういうところは私のような素人には思いつかないワザですね。
予定していたもの以上のスクリプトになりました。

>>595
私はこれを使っていますが、いかがでしょう？
http://www.koch-schmidt.de/cronnix/index.html

>>596
うーんアプレットは動くんだけど、
コマンドとしての osascript が動かんのです。。

http://www.hotwired.co.jp/news/news/20020129204.html
これ面白い。

>>597
/usr/bin/osascript のようにフルパス指定してみたら。
このコマンドなぜか　Terminal からでもフルパス指定しないと
エラーになるんだよねぇ。

>>597
試してみたけどcrontab に直接 osascript -e ~
ってかくと動かないね。
osascriptを書いているshell scriptは問題なく実行出来たよ。

あら被った

>>599
うちではTeminalからだとフルパス指定しなくても問題ないよ。
でもcrontabだと動かない‥‥。

>>399
mpg123

AppleScriptでの質問していいでしょうか？

QuickTimeでAVIファイルをDVファイルに変換するスクリプトを
触ってるんですけど、例えば

export movie 1 to file "aaaa" as DV stream

って感じで書き出すと実際に変換作業がはじまるんですけど
実体はどこにできるんでしょうか？
たぶん、なんかファイルはできているんですよ。
変換終了後にもう一度実行すると
「Duplicate file name.same object」
ってメッセージが出るので。
ここでスクリプトを変更して "aaaa000"とかにすると書き出しが
実行されます。
シャーロックとかで aaaaを検索しても発見されないんです。
何故でしょう？

ちなみにOS Xを使用しています。

>>603
Quicktime Player と同じフォルダにできます。9.2だと。

>>593
OS X でコメントを書き換えるスクリプト
ドロップレット、ScriptMenu 両方で使えます
ScriptMenu のほうは Finder で選択後、メニューから実行
フォルダはその中のファイルもすべて
さらにその中にフォルダがある場合もその中まで徹底的に書き換えます


main()

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

on main()
with timeout of 600 seconds
tell application "Finder"
activate
set user_reply to display dialog " (´-`).｡oO(コメント‥)" default answer "NO COMMENT"
set text_reply to text returned of user_reply
my set_comment(selection, text_reply)
end tell
end timeout
end main

on set_comment(item_list, c_words)
tell application "Finder"
repeat with i in item_list
if class of i is document file then
set comment of i to c_words
end if
if class of i is folder then
my set_comment(items of i, c_words)
end if
end repeat
end tell
end set_comment

>>604
そうそう。9だとアプリ本体と同じフォルダに置かれるのは
確認できました。
でもXは......
見つけられないんですよねぇ.....。
う〜〜〜む。

export movie 1 to file "ここにフルパスで書いたらどうかな？" as DV stream

>>604
すみません。自己解決しました。

QuickTime Playerでコントロールキー+クリックで出るメニュー
の中に「パッケージの内容を表示」というのがあって
その中を辿ってみると存在しました。

すみません、OS Xの基本的概念をちゃんと理解してないだけでした。
つうか、「パッケージの内容を表示」という存在を初めて知った.....。

というわけでみなさんすみませんでした。

>>607

はい。もちろん最終的にはフルパスを書きます。
ただ、試しにDV形式で書き出せるかどうかのテストをしてみたら
この状態になってしまったもんで（苦笑）


デジカメでとったAVIファイルをiMovieで繋いで編集したかったんですけど
PRO版でなくてもスクリプトを書けば変換できちゃうんですね。
というのにちょっと感動しました。

だれかMailの文字数カウントするやつ作って。

IEで今開いているページのgoogleのキャッシュを見ることが出来るスクリプトを作ってもらえないでしょうか？

http://www.google.com/search?q=cache:

このあとに開いてるページのアドレスを入力するスクリプトです。

age
>>610-611
もう少し具体的に詳しく書かないとレスもつきにくいと思う

>>611
これでどおっすか？

property google_url : "http://www.google.com/search?q=cache:"
tell application "Internet Explorer"
Activate
set the_url to 1st item of (GetWindowInfo -1)
set the_url to google_url & the_url
OpenURL the_url toWindow 0
end tell

串チェンジってスクリプトでできないですかね。
死んでるか生きてるか確認するソフトってMacにはないですよね？
いちいち手動はさすがにつらい。

>>621
さんきゅ〜〜〜〜〜〜〜〜〜〜〜〜〜〜

>>614 作ってみた。

「インターネット」コンパネで設定しているproxyをリストで変更するスクリプト
まず、下記の「ICScriptor」というOSAXをインストールしてください。
http://www.lazerware.com/FTP/ICScriptor1.1.3b1.hqx
次に、一行づつproxyを書いたテキストファイルを用意し、「proxy list」というファイル名をつけます。
１行目の"Macintosh HD:proxy list"の部分は各自で設定してください。
（例えば「ABC HD」というハードディスクの「network」というフォルダに「proxy list」を作ったら、
　"ABC HD:network:proxy list" という風に書き換えてください）
スクリプトを実行するとリストからproxyを選んで「インターネット」コンパネの設定を変更することができます。

set proxylist to alias "Macintosh HD:proxy list"
open for access proxylist
set plist to read proxylist using delimiter return
close access proxylist
set newproxy to (choose from list (plist))
tell application "ICScriptor"
SetICPreference HTTP proxy host to newproxy
end tell


ttp://members.tripod.co.jp/obto/script/script.html#proxy

３行目
set plist to read proxylist using delimiter return
を
set plist to read proxylist using delimiter return as text
で動きました。
614ではないけど, thx! thx!

>>616-617
614でないけど、ありがちょー！
これであの手作業から解放された。やた-

"インターネット"コンパネで標準にしているブラウザを
チェンジできるスクリプトってできないでしょうか。
iCab?ﾋIEという風に..

>>619
ブラウザ変更スクリプト（IE→iCab、iCab→IE）
>>616に出ている"ICScriptor"が必要

tell application "ICScriptor"
if (GetICPreference Web helper) is {fileCreator:"iCAB", fileName:"iCab"} then
SetICPreference Web helper to {fileCreator:"MSIE", fileName:"Internet Explorer"}
(display dialog "標準ブラウザがIEに変わりました" giving up after 1)
else if (GetICPreference Web helper) is {fileCreator:"MSIE", fileName:"Internet Explorer"} then
SetICPreference Web helper to {fileCreator:"iCAB", fileName:"iCab"}
(display dialog "標準ブラウザがiCabに変わりました" giving up after 1)
end if
quit
end tell

>>616の下３行を以下のように書き換えると、
プロキシがオンになり、ICScriptorも終了できます。

tell application "ICScriptor"
SetICPreference HTTP proxy host to newproxy
SetICPreference use HTTP proxy with to
quit
end tell

>620
おぉ、サンキューです。
早速使わせて貰ってます〜

>>621
OS XのSystemPrefのブラウザー設定を変える
アップルスクリプトは作れますか?

miでマウスカーソルの後に文字列を挿入するスクリプトは出来ますか？
Ju's iEditだとmarkupというオブジェクトがあって簡単なのに、
miだとそれがないからできない…。
せっかく便利なスクリプトのサンプルを見つけたのに…。

>>623
OSXならこっちで聞いた方が確実かと。621はX使ってないので。
http://pc.2ch.net/test/read.cgi/mac/1010546884/i

>>610
クリップボードの文字数なら

clipboard info

でカウントできますが。
駄レスの予感....sageとこ（汗）

アップルスクリプトをOSXのCGIとして動かすにはどうすればいいの？

iTuneのラジオで表示される曲名を取得する っていうスクリプトが
出来ないかとおもって、こんなん出来たんですけど
漢人の曲名が取り出せないっす。どなたかhelp!

tell application "iTunes"
set inf to current track
set a to name of inf
set b to genre of inf
set c to kind of inf
set d to comment of inf
set e to address of inf
end tell
display dialog "[Station] " & a & return & "[Genre] " & b & return & "[Kind] " & c & return & "[Comment] " & d & return & "[url] " & e as string

ラジオの場合、nameでは局名しか取得できない模様。
ライブラリの場合はnameで曲名が取得できるんだけどね。

漢人の曲名

ダメなのか?
出来たら結構よさげなのにナー

http://www.geocities.co.jp/Technopolis-Mars/8006/EditAhyazillaBookMark.sit
ahyaのブックマーク削除スクリプトです
これ最強
でもこれは一個ずつしか消せないんです
作者ではありませんが
まとめて削除出来るようにはなりませんか

>>632
できそうでできないっつーか。
俺自身ががハンドラ間の変数の受け渡しをちゃんと理解してないので。
theDeleteSureハンドラでaDelSureを元の書式に戻してやれば、ｺﾞﾆｮｺﾞﾆｮ

>>633
そうですか。。。
わざわざありがとうございます
勉強しようとしてもいい本が見つからなくて
まとめてでなくても
一回一回終了せずに
消してはまた選択して・・・
てなふうなのは無理っすかね
で、終わるときは終了牡丹みたいな
勉強します

>>634
勉強のつもりで一から作ってみた。
理屈ではこういうやり方があるということで、 一応参考までに。作者さんｺﾞﾒﾝﾅｻｲ。
ttp://members.tripod.co.jp/obto/script/ahya.txt

>>635
ど〜もありがとうございます
なかなか2chにこれず
亀レスすいません
質問ばかりで申し訳ありませんが
みなさまどのようにして
勉強されたのですか

tell application "Internet Explorer"
Activate
set i to 0
repeat while i < 10
OpenURL "http://www.yahoo.co.jp/" + i
delay 1
i = i + 1
set t to (GetSource) as text
tell application "Jedit3"
tell document 1
insert "######" at beginning of document 1
insert t at selection
end tell
end tell
end repeat
end tell

http://www.yahoo.co.jp/をNumber型に変えられませんってでるだけど、
どうすればいいの？要するに連番で取得したいだけなんだけど。
本当はGetSourceじゃなくて、文章をコピぺしたいんだけど全然わからん

insert "######" at beginning of document 1
これも、######をうまく取り出せませんと言われる。マニュアル通りなのに分け分からん

>>637
OpenURL "http://www.yahoo.co.jp/" & i as text
文字列をつなげる時は&ね。
あと、ウインドウ上の文字をコピペするのは、デフォルトでは不可能。

すごーい。出来た。でも638はどうして？

insert "######" at beginning
だけでよし。tell document 1 ですでにドキュメントは指定しているので。

なるほど。難しい・・。
今度は変数iが1づつ足されなくなってる(;´Д`)
先生御ねがいします

i = i + 1　を　set i to i + 1　に。

ｷﾀ━━━━（ﾟ∀ﾟ）━━━━!!!!!!
先生ありがとうです。
これからダウンしまくり〜

>>636
私はweb上の資料だけで覚えていますが・・・

Finderpopみたいに数秒間マウスクリックしっぱなしにすると
自動でコンテクストメニューが出るような奴AppleScriptで作れないでしょうか？

無理かな？

追記:OSXで動く奴。

>>646 無理っす

　　　　　　　　　　　　　　　　　　　　　　　　　　＿__───　＿
　　　　　　　　　　　　　 　 　 　 　　　　　　─:|;;| |;;| |;;| |;| 　　　─
　　　　　　　　　　　　　　　　　　　　　. ／|　　|;;| |;;| |;;| |;|　　　　　　＼
　　　　　　　　　　　　　　　γ⌒ヽ　／ｌ:::::|　　|;;| |;;| |;;| |;|　　＿＿＿＿＼
　　　　　　　　　　　　　　　 ゝ__ ノ .|￣￣::::::::::￣￣￣￣　　|　 /王ヽ　 |:::|
　　　　　　　　　　　　　　　　　＿. |＿＿　 ＿＿＿＿_.　　　|／・∀・ ヽ:|　|
　　　　　　　　　　　　　 　 γ＿_ ヽ|;;| |;;|　|　 /王ヽ　.| 　 　| :::::::::::::::::::::|　 |
　　　　　　　　　　　　　　　ｌ＿＿（ ||;;| |;;|　|／´∀｀::ヽ|　　　￣￣￣＿＿___|
　　　　　　　　　　　　　　　ヽ ＿ ノｌ|;;| |;;|　|:::::::::::::::::::＿__　　　　　　|　 /王|
　　　　　　　　　　　　　　　　　　　|￣￣::::::￣￣ :／､　　 ヽ＿__. 　 |／ﾟД|　○
　　　　　　　　　　　　　　　　　　　 |::::::＿＿＿_ /＼ ＼　　ヽ| |;;|. 　|＿　|
　　　　　　　　　　　　　　 　 　　　　＼|　/王ヽ ﾍ　 .＼ ＼ /;| |;;|　　　／　　　　γ⌒ヽ
　 　　　　　　　　　　　　　 　 　 　　　. ＼ﾟДﾟ ヽ::|ゝ ＿γノ;;;| |;;|　 ／　＿　　　 ゝ__ ノ
　　　　　　　　　　　　　　　　　　　　　　　 ー＿_::|　　　　　￣￣─　γ＿_ ヽ
　　　　　　　　　　　　　　　　　　　　　　　　　 ￣　───　￣　　　 ｌ）＿＿_||
　　　　　　　　　　　　　　　　　　　　　　　∧　　　　　　　　　　　　　　ヽ ＿ ノ
　　　　　　　　　　　　　　　　　　　　／￣　 ￣￣￣
　　　　　　　　　　　　　　　　　　　　|　ショック！！！！！
　　　　　　　　　　　　　　　　　　　　＼＿＿＿＿＿

本当に基本的なことなのですが，普段は使わないパーティションを
アンマウントするスクリプトを書こうと思っています。
put awayで指定した後に「本当に片づける？」と聞かれ，
そのＯＫボタンが押せません。片づけるのはFinderの機能?だと思うので，
Quick Keys等を使わずできないのでしょうか？

　また逆に，一度アンマウントしたディスクを再びマウントする
スクリプトと言うのは可能ですか？　Disk First Aidで検証すると
マウントできるので，今は手動でそうしているんですが，
時間もかかりめんどくさくて＾＾；

>>650
用語辞書を見るとput away の項目に [asking boolean] とあるので、
ダイアログを出さないようにするには下記でOK。
put away disk "〜〜〜" without asking

マウントするのって、見えないボリュームのエイリアスを作っといて・・・
ていうのができなかったっけ？

ありがとうございます！！早速やってみますね。

用語辞書とはどこのですか？
鳶島工業さんしか見ていませんでした。

>>652
鳶島工業って・・ﾜﾗﾀ
アプリケーションを直接ScriptEditorにドロップすると、そのアプリの
用語辞書を開いてくれます。

両方とも見事に出来ました！　ありがとうございます！
エイリアスを作るなんて発想ができない自分にアフォか，と。
助かりました＾＾　起動項目に早速Go!!

tell application "Finder"
put away disk "仕事用" without asking
put away disk "倉庫" without asking
end tell

>>653　鳶島さんごめん，思い切り勘違い(；´Д`)
　なんと！先ほどここのログを見て知ってはいたんですが
　鳶島工"房"さんの辞書で十分だと思いやっていませんでした＾＾；

　確かにそう書いてありますです〜
　あぁ名前勘違いと言え恥ずかしいです。回線切って首釣りましゅ

　ご親切にありがとうございました。

http://page.auctions.yahoo.co.jp/jp/auction/42871644
って、売り物だったんですか？。

Scripters Toolkitって何だっけ。

>>656　かっこいー

>>658 なにが「かっこいー」だかわかんねだべさ。

くだらん質問でｽﾏｿが、perlでいうとこの
for ($i=0; $i<3; $i++){ print "イ"; print "タ" x $i; print "\n";}
結果：
イ
イタ
イタタ
みたいなのはAppleScriptではどう書くんでせうか？

>>660
forの部分はrepeat while [condition]とかrepeat with i from 0 to 2とかでできるが、
"タ" x $iはどう書けばよいのか分からん。

>>661
原始的解法：＆で文字列のたしざん

set {iita, ii, ta} to {"", "イ", ""}
repeat 3 times
set {iita, ii, ta} to {iita & ii & ta & return, ii, ta & "タ"}
end repeat
iita

１時間ぐらい考えてしまった・・・

>>663 お〜〜ありが！、とっかかりになりそう。
やっぱなじみの薄い言語で考え直すって苛つく事も多いっすね（汁
うん、例えばMacからWinに乗り変えたとしたらそんな感じなんだろ〜な
なんでこれが出来んのや〜〜!!　みたいに（笑、でもAppleScript頑張ってみやす

set myRepeatTime to text returned of (display dialog "付け加える回数" default answer "10")
theAddText(myRepeatTime)
on theAddText(myRepeatTime)
set myOrigText to text returned of (display dialog "最初の文字列" default answer "663は")
set myRepeatText to text returned of (display dialog "付け加える文字列" default answer "神!")
set {add, orig, rep} to {"", "myOrgText", ""}
repeat myRepeatTime times
set {add, orig, rep} to {add & myOrigText & rep & return, myOrigText, rep & myRepeatText}
end repeat
add
end theAddText
display dialog result

ディスクを片づけるスクリプト，順調に動いています。
片っぽしかマウントしていない時のerrorの処理をしようとしたんですが
わかんない＆時間が無くてとりあえず目に付いたignoringしてます（藁
on error の後って目標が出来たしちょっとずつ進歩してますです。
がんばるぞ＾＾

property musicLibPath : "Macintosh HD:書類:iTunes:iTunes Music:" --★

tell application "iTunes"
tell library playlist 1
set n to number of tracks
repeat with i from 1 to n
set artistStr to (artist of track i) as text
set albumStr to (album of track i) as text
set orgFile to location of track i
my moveMusicFile(orgFile, artistStr, albumStr)
end repeat
end tell
end tell

(* orgFile を musicLibPath:artistStr:albumStrに移動 *)
to moveMusicFile(orgFile, artistStr, albumStr)
tell application "Finder"
if my bytelength(artistStr) > 31 then my extract(artistStr, 31)
if my bytelength(albumStr) > 31 then my extract(albumStr, 31)
set artistPath to musicLibPath & artistStr & ":"
if not (folder artistPath exists) then
make new folder at folder musicLibPath with properties {name:artistStr}
end if
set albumPath to artistPath & albumStr & ":"
if not (folder albumPath exists) then
make new folder at folder artistPath with properties {name:albumStr}
end if
move orgFile to folder albumPath
end tell
end moveMusicFile


to extract(str, bytelen)
set b to ""
repeat with i from 1 to bytelen
set c to b & (character i of str)
if my bytelength(c) > bytelen then exit repeat
set b to c
end repeat
return b
end extract

(* 文字列のbyte長を得る。なぜ標準でできない！ *)
to bytelength(theStr)
set the clipboard to theStr
item 2 of item 1 of (clipboard info for strings)
end bytelength

http://pc.2ch.net/test/read.cgi/mac/1013564772/217
あたりから話題になってた、iTunes2でうっかりファイルを全部ゴミ箱に入れちゃった
状態からの救済。ゴミ箱からどこかに移動させてあってもいい。
（この状態ではFinderの「片づける」はつかえない）

要するにiTunesのライブラリの曲をはじから調べて、artistとalbumで再整理するという
もの。iTunesでの「音楽フォルダ」(MP3格納フォルダ)の得方がわからなかったので、
１行目で決め打ちになってる。使用環境に合わせて変更が必要。

artist名、album名が32文字以上の場合は、後をばっさり切る（しかし、なんでbytelength
が標準で得られないんだろう。変な苦労をしている）。

出先からOSX自宅サーバの動作チェックに使いたいんですが
定時（・・これはcron使います）に携帯へメールを送るアップルスクリプトって
できないですか？

アップルスクリプトって初めて知ったんですが、

ＦＴＰサーバー上にいくつかディレクトリがあってそこを定期てきに巡回して、ダウンロード
していない新しいものがあれば自分の特定のフォルダにダウンロードするってこと
を自動でできるんですか？

いまfechを使って朝9時から夜中の3時までそれをやってます。
仕事で。

できるんなら本とか買って勉強しようと思います。
おすすめ書籍なんかあれば教えてください。

>>668 それは出来そう。まんまのスクリプトがありそうだし。
ただ、STMPサーバが何か分からないので。。
つうか、OSXと言えば当たり前の様に何かがデフォルトで入ってるのかね。。
使ってないもんでよ〜知らんのだが(^_^;

>>669
巡回ディレクトリのリストを作っておいて
Tanaka's osaxかなんかで、上から読み込んでアクセス
シェルの-lsで出力した結果をTMPファイルに書き出し保存
次回巡回した時に同様の作業を行い
現在のファイルリストをTMPファイルとdiffで比較
結果を書き出して、それをfetchに渡してダウンロード、とか。。

あるいは、、フォルダの変更時間を読み込んで
前回から更新のあったものだけをリスト化する、、、とか？、、かなぁ

前半はUNIX系の上でやったほうがいいんかな、CGIとかの方が簡単そう、なことない？(^_^;

テキスト書き込みの時に
デリミタに指定した文字以降を消去するにはどうすればいいですか？

あ、別にdelimiters使わなくてできるなら
そっちの方が良いです。

デリミタに指定した文字以前を取得すればよろし

set moji to "abcdefg"
set AppleScript's text item delimiters to "d"
set moji to text item 1 of moji as text

デリミタも含めたければ、それを付け足すと。

うお、早っ、即答ですか。ありがとうございます。

>>668
cronなら普通に標準出力をメールに流すようにして、echoとかすればOK。
AppleScriptスレでいうのはなんだが、UNIXのレイヤー済ませられることなら、
できればAppleScriptは絡ませないほうがよい。
安定性と速度が全然違います。。

>>670 >>676
レスありがとうございました。
AppleScriptを使わなくても出来るんですね。
ただ、echoとかの使い方がよくわからないので、
調べるなり他の板で聞くなりしてみたいと思います。

最後の計算結果の少数第二位を四捨五入して、少数第一位までの表記にしたいんですけど、どうすればよろしいでしょーか
--------------------------
on hndl()
display dialog "記録媒体の容量と価格を以下の書式に従って入力し、容量の単位をﾂ
選択してください。" & return & "例：40/10000 (容量[GB]/円)" default answer ﾂ
"容量/価格" buttons {"キャンセル", "単位MB", "単位GB"} default button 3 with icon 1
set rst to result
set br to (button returned of rst)
set tr to (text returned of rst)
set AppleScript's text item delimiters to "/"
text items of tr
set rst to result
set siz to item 1 of rst as number
set yen to item 2 of rst as number
if br is "単位GB" then
set byt to ((siz * 1000) * 1000) * 1000
set gb to ((byt / 1024) / 1024) / 1024
set ans to (yen / gb)
display dialog "1GB単価 : " & ans & return & "(" & gb & ")" buttons {"Reset", "OK"} ﾂ
default button 1
if button returned of result is "Reset" then
hndl()
end if
else if br is "単位MB" then
set byt to ((siz * 1000) * 1000)
set mb to ((byt / 1024) / 1024)
set ans to (yen / mb)
display dialog "1MB単価 : " & ans & return & "(" & mb & ")" buttons {"Reset", "OK"} ﾂ
default button 1
if button returned of result is "Reset" then
hndl()
end if
end if

end hndl

hndl()

ThreadOgreというネトゲで、結果ファイルからレベルアップでの上昇値を抽出するスクリプト。
動作させると、なぜか欲しいデータの他によけいなものがついてくる。
なんでこのよけいなものがついてくるか分かりますか？
テキスト処理はMacPerl使えっていう話は勘弁して下さい。

結果テキストは http://threadogre.hoops.ne.jp/result/resultindex.html からとってきてください。

on run
choose file with prompt "ThreadOgre の結果ファイルを選んで下さい。"
set readFile to result
open for access readFile
read readFile
set readData to result
set lastDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to "
"
set dataList to text items of readData
set wantData to chushutsu(dataList) as string
set AppleScript's text item delimiters to lastDelim
close access readFile
tell application "Finder"
make file with properties {name:"LVUPresult.txt", creator type:"YoED"}
set makeFile to result
open for access makeFile with write permission
write wantData to makeFile
close access makeFile
end tell
end run

on chushutsu(dataList)
set i to 1
set wantData to ""
repeat
try
set pText to item i of dataList
on error
exit repeat
end try
try
set topLineQst to text from character 1 to character 42 of pText as string
on error
end try
try
set topLineAns to "<TR><TD>体力(HP)</TD><TD><SPAN class=\"even\">" as string
if topLineQst = topLineAns then
set wantData to wantData & pText & return
log "wantData = " & wantData
end if
on error
end try
set i to i + 1
end repeat
return wantData
end chushutsu

途中消えてる…。
デリミタは、UNIXの改行コードで、 Control + J で出てくる左矢印みたいな文字です。

>>678
まず、AppleScript's text item delimitersを変更するなら、
デフォルト値{}を変数へ入れておいて、変更したら最後に戻すようにしませう。
これをサボると、他のAppleScriptが動かなくなっちゃったりするよ。
再起動したら元にもどるけどね。

四捨五入ってどーすんだろね？
漏れならわからないから原始的に、ansをもう一度"."で区切って
2番目のアイテムの2番目の数字が5以上なら2番目のアイテムの1番目の数字に1プラスして
4以下なら何もしない。って書くかな。単純にif文で。

もっとうまいやり方があると思う。漏れは偉そうだけど解らんｽﾏｿ

>>679
その結果テキスト、激重で取れねーYO

>>678
ｱﾌｫだ漏れ。
繰り上げの事とか考えてないじゃん（鬱
面度臭い処理をちょいと足さないといけませんなぁ。

あと、text item 1 thru 2で2番目のアイテムの3番目以降はﾊﾞｯｻﾘいっちゃえ。

>>681
すみません、今日が更新日なのでつながらないかも。
フリーのサーバにアップしました。
HTMLですが、ブラウザで開かずに直接ダウンロードさせてください。
表示させるにはかなり時間がかかります。（iCabでは）

http://k-server.org/amanojack/result_1.html

>>678
整数への四捨五入は「round」でちかい事ができる。OS9.1以降ならround as taught in schoolで。
小数点以下第一位を求めるなら単純に十倍して丸めてから1/10に」すればいいんじゃない？
set ans to (round ((yen / gb) * 10) as taught in school) / 10

四捨五入って、対象が負の数のときどうするんだっけ？
とりあえずx≧0だったら
to round2(x)
((x + 0.05) div 0.1) / 10
end round2

神がｲﾊﾟｰｲいるYO・・・

あのう、こんな事聞くの恥ずかしいんですけど
爆弾マークって、with icon　の次に何て入力すればいいんでしょうか？
スレ違いで申し訳ないです。

コレ生まれて初めて作ったASです。（コレもスレ違いか、、）
tell application "Finder"
activate
open folder "Temporary Files" of folder "Explorer" of folder "初期設定" of
folder "システムフォルダ" of startup disk
end tell

>>684氏、>>685氏、教えてくれてｻﾝｸｽﾍﾞﾘﾏｯﾁｮ
整数にまるめるってやつですね。少数第1位か。
なるほど、勉強になりました。こりゃ、メモしときます。

>>679
やってみたよ。
なんかよーわからんけど。
で、君の欲しいデータってどれでしょう？
何が欲しいデータなのかわからんので、よーわからん。

君は下から8行目でset wantData to wantData & pText & returnとやってるよ。
だから、wantDataにはpTextまるまる入ってるよね？
そのptextは、item i of dataListなので、改行で区切ったアイテムがそうじゃん。
つーことで、欲しいデータを書けば、取り出し方を達人の方々が教えてくれるかも。

あと、前半でなぜいちいちresultってゆーふーに2行に分けて書くの？
choose file with prompt "ThreadOgre の結果ファイルを選んで下さい。"
set readFile to result
↓
set readFile to choose file with prompt "ThreadOgre の結果ファイルを選んで下さい。"

read readFile
set readData to result
↓
set readData to read readFile

こっちのが1行で済むから良いと思うけど・・好みですってならｺﾞﾒｿ
でも、resultはなるべく使わ（以下略

>>687
display dialog(標準OSAX)には、stop,note,coutionの3つしか無い。
with icon 0,1,2でも指定可能。

スレ違いじゃないじょ。ナイスだじょ。
どんどん書きまくってｶﾞﾑﾊﾞﾚ、漏れもｶﾞﾑﾊﾞﾙさ。

ここに書き込まれたスクリプトをコピペして試してみたりする人多いから、
変なとこで改行しないほーがいいぞ。
"初期設定" of の後ろにﾂが付いてたでしょ？そのままでいいんだよ。
option+returnキーのやつね。

>>681,684レスありがとです。四捨五入できました(w

set ans to (yen / gb)
display dialog "1GB単価 : " & ans & return & "(" & gb & ")"
↓
set ans to ({(yen / gb) * 10} as integer) / 10
display dialog "1GB単価 : " & ans & " 円" & return & " (実容量 : 約" & ((gb * 10) div 1) / 10 & " GB)"

皆さんのレスも含め色々調べました
まとめると四捨五入するには...
1.round x rounding as taught in school　(OS9.1以降)
2.{x} as integer
3.(x + 0.5) div 1
で、一番シンプルな2.を使いました。

>>681
>まず、AppleScript's text item delimitersを変更するなら、
>デフォルト値{}を変数へ入れておいて、変更したら最後に戻すようにしませう。
>これをサボると、他のAppleScriptが動かなくなっちゃったりするよ.

えと、具体的にはどうすればいいんでしょか(汗
どどど素人なもんで...

>>690
ど素人は漏れだぞ(w

よかったね、四捨五入できて。漏れなんかより>>685さんが抜けてるぞ！
デフォルトは{""}ですｺﾞﾒｿ。setすると再起動するまでそのままなんだと。
んで、他のスクリプトにまで影響するのでやっかいなんだと。
例えばこんなスクリプトを書いてるとするじゃん。
set alist to {"私は", "ど素人", "です"}
alist as text
-->"私はど素人です"　←普通はこうなるよね

君のスクリプトを実行した後だと、
set alist to {"私は", "ど素人", "です"}
alist as text
-->"私は/ど素人/です"　←こうなっちゃうじゃん

だから、使った物は片づけろってこった。
最初にset |変数| to AppleScript's text item delimiters とやっとく。
んで、変えたりしてごにょごにょとやる。
最後にset AppleScript's text item delimiters to |変数| とやる。
>>679さんがちゃんとやってるので参考にしてみてちょ。

＞６８９さん、あたたかいレス感謝します。
その３つしかできないんですね。いままでwith icon bombとか
アホなことしてました、、。もっと勉強します。
あと、「ツ」忘れてしましました。
ここ良いスレですねえ。

>>691,692
display dialog "Sample" with icon 128
これやってみて。

つまり、ICON(icl8)リソースの番号でも指定できるんです。
だから、アプレットにしておいてからResEditでリソースを追加させれば、
爆弾でもなんでも好きなアイコンを表示させられます。

＞６９３さん
tell application "Finder"
display dialog "Sample" with icon 128
end tell

でいいんですか？やってみたけどsampleしか表示されません。
因にOS8.6です。

>>694
tell application "Finder"
はいらない。

＞６９５さん
すみません、、。
できました。スクリプトに鉛筆で何か書こうとしてる
アイコンが表示されました。アイコンリソースの番号でも
指定できるんですね。一つ賢くなりました。
ありがとうございます。

>688

欲しいのは <TR><TD>体力(HP)</TD><TD><SPAN class="even"> で始まる行だけ抜き出したいわけです。
そのためにif文を使って1行づつ、先頭34文字が上記に適合しているかをrepeatで延々とくり返しています。
適合した時のみ書き出すはずなので、結果ファイルには上記の行だけが抜きでてると思うのですが、
なぜかテーブルタグや、No.とプレイヤーの名前まで抜き出されてしまう事態になっています。
＝（イコール）の使い方あたりが怪しいとは思いますが具体的にはわかりません。

なんで２行にわけてるか、それは知らないからです。
『AppleScriptリファレンス』と『AppleScriptでゼンマイびゅんびゅん!!』という本の
サンプルスクリプトを見つつ書いているのですが、そのような略した書き方は知りませんでした。
今日はじめて if （条件）then （実行命令）などと end if を略した形を知ったばかりです。
プログラムの簡略化はまったく考えてなかったので、そのような書き方があったのかと感心してます。
どうもありがとうございます。

ところで、resultってなんかヤバいんですか？

>897
おお。同じだ。（「リファレンス」と「ゼンマイびゅんびゅん」）
私もこの本にあるのを参考にして書き換えてるので、くっつけた書き方は苦手です。

>>697
試してみたらうちでもよけいなものがついてきました
どうも42文字だけ取得するの所を try 構文でやっつけるのがダメみたい
きちんと42文字以上ある時だけ次へ進むように書いてやるとうまくいきました
以下、ハンドラ部分

on chushutsu(dataList)
set wantData to ""
set topLineAns to "<TR><TD>体力(HP)</TD><TD><SPAN class=\"even\">"
repeat with i from 1 to (count of dataList)
set pText to item i of dataList
if (count characters in pText) > 42 then
set topLineQst to text from character 1 to character 42 of pText
if topLineQst = topLineAns then
set wantData to wantData & pText & return
end if
end if
end repeat
return wantData
end chushutsu

--あと、よけいなお世話だけど open for access は
--try 構文で挟んどいた方がいいと思うよ、というわけで実行部分

on run
set readFile to choose file with prompt "ThreadOgre の結果ファイルを選んで下さい。"
set readData to open for access readFile
try
set dataList to read readData as string using delimiter {ASCII character 10}
end try
close access readFile
set wantData to chushutsu(dataList)
tell application "Finder"
set makeFile to make file with properties {name:"LVUPresult.txt", creator type:"YoED"}
end tell
set h_file to open for access makeFile as alias with write permission
try
write wantData to h_file
end try
close access h_file
end run

>699
OS 8.6 なので on error の省略はできないのですが、それを補えば見事に動作しました。
tryの使い所がちょっとわからないのですが、簡略の仕方・repeatの設定・デリミタの使い方などは
すごい勉強になりした。
どうもありがとうございました。

こんなのでどうかな。

set theStartStr to "<TR><TD>体力(HP)</TD><TD><SPAN class=\"even\">"
set theFile to choose file with prompt "ThreadOgre の結果ファイルを選んで下さい。"
set kaigyo0 to ASCII character 13 --読み込みファイルの改行コード
set kaigyo1 to ASCII character 13 --書き出しファイルの改行コード
set fh to open for access theFile
set buf to ""
(*読み込み*)
repeat
try
set aLine to read fh before kaigyo0
on error
exit repeat
end try
if aLine starts with theStartStr then set buf to buf & aLine & kaigyo1
end repeat
close access fh

(*結果の書き出し*)
set newFile to choose file name default name "LVUPresult.txt"
--Mac OS 9.0以前では「choose file name」→「new file」
try
set fh to open for access newFile with write permission
write buf to fh
on error
close access fh
end try
close access fh

set kaigyo0 to ASCII character 13 --読み込みファイルの改行コード
は
set kaigyo0 to ASCII character 10 --読み込みファイルの改行コード
にしてください。
わたしの環境では改行コードがCRだったので（ダウンロード環境のせい）、
それで作ってて最後に直そうとしてわすれてた。

>701
701さんもありがとうございます。
改行コード代え忘れて実行させたら見事フリーズしました。いやぁ、恐いですね。
先に変数を全て述べておくのもプログラムの簡略化につながるんですね。
ただし、注釈を上手く述べないと後でわかりにくいものになってしまう諸刃の剣っぽいです。
new file に starts with と新しい命令や演算子を覚えました。
どうもありがとうございます。

次は他の抽出やテキストを書き足すなどの処理も行うようにして、
100以上のファイルを一気に書き出すことができるようなドロップレットにしてみます。
また、>699さんと>701さんのお二人の書き方の微妙な違いがどのように速度に影響するかも
かなり興味があります。
完成したらまた報告します。

>>703
　フリーズすまんです。
　といいながら、そのくらいでフリーズするなよ＞AppleScript、ともいっとく。

> 先に変数を全て述べておくのもプログラムの簡略化につながるんですね。
　ちょっとちがうかな。
　保守性をあげる（あとで手直しが楽）っていうのが理由。
　プログラムのメインルーチンの中に実際の「数」を埋めこんじゃうと
あとで修正が入ったときにあちこち見なきゃいけなくなる。しかも
おなじ「数」をあちこちで使っているようなものだと、修正はもっと
ややこしくなる（修正しわすれが残ったりしてね）。
　こういうことを防ぐために、「数」はプログラムの頭で定義してしまう
ってのが、常套手段（プログラム作法ってやつ）なんです。

>>699さん、
>>701さんとお二方のスクリプトをそれぞれドロップレットにしてみました。

http://k-server.org/amanojack/699s_droplet.txt
http://k-server.org/amanojack/701s_droplet.txt

ドロップレットの基本は以下のものでいいですよね。
それで出来たのが上の２つのものです。
くり返すもの、くり返さないものとわけたつもりです。

on open dropItems
tell application "Finder"
repeat with obj in dropItems
--〜　objを操作する命令　〜
end repeat
--〜　ファイル単位でくり返さない命令はここに　〜
end tell
end open

701さんのはオーケーでしたが、699さんの方は上手くいきませんでした。
set dataList to read readData as string using delimiter {ASCII character 10}のところで、
エラーが出て、読み込まないまま処理がつづいてしまうようです。
tryを取り外して実行させてみると、「メモリが足りません」とエラー表示。
ドロップレットのメモリサイズを8192Kにしてもダメでした。

速度は多分、どちらも同じくらいなんでしょうね。
複数の結果ファイルをMacCatで１つにしてそれぞれ699、701さんのもので実行させて見ましたが
特に差はありませんでした。

>>701
ドロップレットにするにあたって701さんの方がやりやすかったです。
変数部、処理部と分かりやすかったからでしょうね。
「数はプログラムの頭で定義」としっかり覚えておきます。

>691
にゃるほど最後に
set AppleScript's text item delimiters to ""
としとけばヨイと。ご丁寧にﾄﾞﾓです：)

教えて君で申し訳ないです。
Apple Scriptでディスクのアンマウントってできますでしょうか。
調べてみたのですがどうも分かりません。
例文を以て教えて頂けませんでしょうか。

>>707
tell application "Finder"
activate
select disk "(HDの名前)"
put away selection
end tell

ただし、ボタンを押すのは自動で出来無そうな気がする

アンマウントするのがリムーバブルメディアなら大丈夫かも

>>708-709
ありがとうございます。無事成功しました。
ただ、RAMディスクのアンマウントは不可能なようでした。
RAMディスクは特別な扱いがあるのでしょうか。

>>707-710
put away 〜 without asking
でダイアログが出ないようにできる。
>>650-654にあるよ

できました！　どうもありがとうございます。
ログも読まずに質問してすいませんでした。
RAMディスクがアンマウントできない事に関しましては、
名前の「RAM」と「ディスク」の間に半角スペースが入っていた事に
気付かなかっただけでした。
本当にありがとうございました。

tell application "Finder"
reboot "my life"
end tell

これで人生やりなおせるってﾎﾝﾄ？

アイコンをコピペするスクリプトです。
FinderPopとかｺﾝﾃｸｽﾄﾒﾆｭｰに入れて使ってます。
------------------------------
property icn : ""
property cpy : "コピー"

on open drp
tell application "Finder"
if cpy is "コピー" then
set icn to icon of item 1 of drp
set cpy to "ペースト"
set name of (path to me) to cpy
else if cpy is "ペースト" then
repeat with x in drp
set icon of x to icn
end repeat
set cpy to "コピー"
set name of (path to me) to cpy
end if
end tell
end open

tell application "Finder"
set cpy to "コピー"
set name of (path to me) to cpy
end tell
-----------------------------
1.名前が"コピー"の時にドロップするとアイコンをコピーし、名前が"ペースト"になります。
2.名前が"ペースト"の時にドロップすると1.のアイコンをペーストし、"コピー"に戻ります。
注)　いったんコピーしてまうとペーストしか出来なくなりますが、
普通にダブルクリックして起動すると"コピー"に戻せます。

age

おぉ、コレは便利ッス
ありがたく使わせてもらいます

起動項目に
----------------------------------------
tell application "Finder" to quit
----------------------------------------
アプレットにして置いとけ！
派手さはないが

で、だれかかの有名な
OpenAのソースを貼ってくんないかな

tell application "Finder"
repeat 10 times
open (folders of entire contents of system folder whose name contains "A")
close (folders of entire contents of system folder whose name contains "A")
end repeat
end tell

>>707 こんなのも。

tell application "Finder"
activate
select file "仕事用のエイリアス" of folder "HD" of startup disk
open selection
delay 1
close container window of disk "仕事用"
end tell
tell application "起動ディスク"
activate
delay 2
set startup disk alias to alias "仕事用:"
end tell
tell application "Finder"
restart
end tell

　アンマウントしているボリュームのエイリアスを呼び出してマウントし、
そのボリュームで再起動。で再起動した後に第一階層が開いていてうざいので閉じてます。
Deleyはなくてもいいんだけど、なんか気分で。
これもっとスマートになります？

select file 〜
open selection
は使わずに直接、
open file 〜
としたほうがいい。割り込みでselectionの値が変わる可能性があるので。

全体を tell application "Finder"〜end tell に入れちゃっても
だいじょぶじゃないかな。あんま変わらんけど、行数減る。

長文になります。すいません。
デスクトップにある既存のテキストファイル（sample.txt）のつづきに
テキストを書き込みたい("ABC")場合、どうすればよいのでしょうか？

(1) 既存のテキストと書き込みたいテキストを書き込む
tell application "Finder"
set sampleFile to file "sample.txt" of desktop --書き込みたいファイル
set kakikoText to "ABC" --書き込みたいテキスト
set sampleFile to open for access sampleFile with write permission --書き込み可にする
set sampleText to read sampleFile --テキスト内容を確保
try
write sampleText & kakikoText to sampleFile --テキストに元のものと書き込みたいものを書く
close access sampleFile --ふつうに閉じる
on error
close access sampleFile --エラーが出ても閉じる
end try
end tell

(1) のものだと既存のテキストの後に、さらに既存のテキストと
書き込みたいテキストを書き込み、既存のテキストがダブってしまいます。

(2) 書き込みたいテキストを書き込む
tell application "Finder"
set sampleFile to file "sample.txt" of desktop --書き込みたいファイル
set kakikoText to "ABC" --書き込みたいテキスト
set sampleFile to open for access sampleFile with write permission --書き込み可にする
try
write kakikoText to sampleFile --テキストに書き込みたいものを書く
close access sampleFile --ふつうに閉じる
on error
close access sampleFile --エラーが出ても閉じる
end try
end tell

(2) のものだと、テキストの最初に上書きされてしまいます。

(3) 既存のテキストを読んでおいて、テキストを書き込む
tell application "Finder"
set sampleFile to file "sample.txt" of desktop --書き込みたいファイル
set kakikoText to "ABC" --書き込みたいテキスト
set sampleFile to open for access sampleFile with write permission --書き込み可にする
read sampleFile --テキストをとりあえず読む
try
write kakikoText to sampleFile --テキストに書き込みたいものを書く
close access sampleFile --ふつうに閉じる
on error
close access sampleFile --エラーが出ても閉じる
end try
end tell

この (3) だとうまくはいくのですが、なぜ読み込んだだけで
うまくいくのかが分からないし、読み込んだものを全く使っていないので
どうも気色悪い感じがします。

こう…処理として納得できるようなものはありませんでしょうか？
よろしくお願いします。

(3)の途中から

set sampleFile to open for access sampleFile with write permission --書き込み可にする
try
set eofPos to get eof sampleFile
write kakikoText starting at ( eofPos +1 ) to sampleFile
close access sampleFile
以下同文。

これだと、納得いきますか？

read , writeは、デフォルト指定のときにファイルのどの位置から
アクセスするのかというポインタを内部でもっています。
これはopenした瞬間はファイルの先頭にありますが、read writeすると
最後にアクセスした次の位置にうつります。

(3)では、readしたときにポインタが最後にうつっていたわけです。
また、上記のスクリプトはget eof でファイルの最後の位置を明示的に得て
write 〜 starting at でそのつぎ(+1)から書き込むというものです。