「ご主人様ご命令を！」OS Xでスクリプトスレ

>>74
了解、です。cURLを利用した連番ファイルDL用スクリプト、です

#!/bin/sh
#
# Usage: command [-s] [-r referer] [-n first_number] [URL...]
url=
site=
fnum= # first file number
lnum= # last file number
ext= # file extension
refer= # http referer
SMODE=false # Silent mode
STDOUT=`tty` # standard out
COMMAND=`basename $0`
USAGE="Usage: $COMMAND [-s] [-r referer] [-n first number] [URL...]"
# analyze command option
#
set -- `getopt sr:n: $*`
if [ $? != 0 ]; then
echo "$USAGE" 1>&2
exit 1
fi
for OPT in $*
do
case $OPT in
-s) SMODE=true
shift ;;
-r) refer=$2
shift 2 ;;
-n) fnum=$2
shift 2 ;;
break ;;
esac
done

if [ $SMODE = true ]; then
STDOUT="curllog.$$"
fi
for url in "${@:-`pbpaste`}"
do
case $url in
http*) : ;;
*) echo "$url is not URL" 1>&2
echo "$USAGE" 1>&2
continue ;;
esac
# set file extension and url
#
site=`echo "$url" | sed 's/\(^h.*[^0-9]\)[0-9][0-9]*\....$/\1/'`
ext=`echo "$url" | sed 's/^h.*\.\(...$\)/\1/'`
#
#set file number
lnum=`echo "$url" | sed 's/^h.*[^0-9]\([0-9][0-9]*\)\....$/\1/'`
if [ "$fnum" = "" ]; then
case $lnum in
[0-9]) fnum=1 ;;
[0-9][0-9]) fnum=01 ;;
[0-9][0-9][0-9]) fnum=001 ;;
[0-9][0-9][0-9][0-9]) fnum=0001 ;;
*) echo "Error: Unexpected file number " 1>&2
exit 1 ;;
esac
fi
if [ -z $refer ]; then
curl -L -O $site\[$fnum-$lnum\].$ext
else
curl -e $refer -O $site\[$fnum-$lnum\].$ext
fi
# clear first file number
fnum=
done > $STDOUT 2>&1
exit

>>76-77のscriptの説明
書式：command [-s] [-r referer] [-n 最初のファイル番号] [URL ...]

-s：サイレントモード。Terminal端末画面に出力は一切はでません
　　DLフォルダにcurllog.$$（$$はPID）ファイルが出来ます。
　　基本的に % comannd -b & って感じでバックグランド処理用です
-r：の後にhttp referer付けます。
-n：DLするファイルの最初のファイル番号を指定します。
　　指定されていないとファイル番号1からDLします
　　なおファイル番号を指定出来るDL先は1つです：‥。
　　複数のURLを指定した場合は2つめ以降は通常通り001~からDLされます
URL：ファイルDL先URL。連番ファイルの最後のURLのみを指定すれば
　　　1番からDLします。URLは複数指定可能でございます。
　　　URLをクリップボードのコピーしていれば省略可能です

ex
% command -n 03 http://hogehoge.com/file15.jpg
ファイル03.jpg〜15.jpgがDLされますです。
「-n 03」が無ければ01.jpg〜15.jpgがDLされます。

applescriptでの呼び出しスクリプトきぼ〜ん

>>76で間違いがありんす。case $OPT in 以下は↓の通りです。
case $OPT in
-s) SMODE=true
shift ;;
-r) refer=$2
shift 2 ;;
-n) fnum=$2
shift 2 ;;
--) shift
break ;;
esac

それと今試しにTextEdit.app にコピーして保存してみたんですが、
改行コードや \が無茶苦茶になりますな。そのあたりでエラーでたなら
言ってやってください。

長いけど一応作ってみました。

>>78
property Download_Folder : ""
property Command_Pass : ""
property Reffer_Flag : "No"
property Background_Flag : "No"
property Firstnumber_Flag : "No"

if Download_Folder is "" then
set Download_Folder to choose folder with prompt "ダウンロードファイルを保存するフォルダを指定してくれ"
set Download_Folder to POSIX path of Download_Folder
end if
if Command_Pass is "" then
set Command_Pass to choose file with prompt "連番ダウンロードスクリプトを選択してくれ"
set Command_Pass to POSIX path of Command_Pass
end if

set MainURL to the clipboard
set choiceList to {"簡単連番ダウンロード", "ユーザ定義ダウンロード", "ユーザ定義設定"}
set DownMethod to choose from list choiceList
set DownMethod to DownMethod as text
if DownMethod is "簡単連番ダウンロード" then
set Command_Str to Command_Pass & " " & MainURL

else if DownMethod is "ユーザ定義ダウンロード" then
set Option_Str to ""
if Background_Flag is "Yes" then set Option_Str to " -s "
if Reffer_Flag is "Yes" then
display dialog "HTTP Reffererを入力してください" default answer (the clipboard)
set Option_Str to Option_Str & "-r " & text returned of result & " "
end if
if Firstnumber_Flag is "Yes" then
display dialog "連番の最初の数字を入力してください" default answer "01"
set Option_Str to Option_Str & "-n " & text returned of result & " "
end if
set Command_Str to Command_Pass & " " & Option_Str & MainURL

else if DownMethod is "ユーザ定義設定" then
display dialog "HTTP Refeferを使用しますか？" buttons {"Yes", "No", "キャンセル"}
set Reffer_Flag to button returned of result
display dialog "バックグラウンドで使用しますか？" buttons {"Yes", "No", "キャンセル"}
set Background_Flag to button returned of result
display dialog "連番の最初の数字を指定しますか？" buttons {"Yes", "No", "キャンセル"}
set Firstnumber_Flag to button returned of result
return
else
return
end if
tell application "Terminal" to do script with command "cd " & Download_Folder & ";" & Command_Str

>>80
んで、説明。
コピペして保存。最初に実行すると、ダウンロードフォルダと
へたれさんのスクリプトの場所を聞くので指定します。パス通った
場所じゃなくても大丈夫です。ただ、スペース入りのパスは駄目です。
簡単連番ダウンロードはただ、クリップボードに入ったURLを引き数と
して実行するだけです。
ユーザ定義、ユーザ定義設定は最初にrefferとか、サイレントモードとか
をユーザ定義設定で行っておいて、その設定がユーザ設定になります。
まぁ、使ってみればわかるはずです。

>>80-81
すげぇ！！
なるほどって感じだ。非常に勉強になりました。
とくにユーザー定義のやり方。目から鱗です。

最初はNoのflag 立てといて後でそれを選択出来るようにする。
まったく思い浮かばなかった。いやすんげぇ。

>>76-81
先生悲しいぞ。先生もがんばって呼び出しスクリプト書いてたんだけど、
先を越されて悲しいぞ。でもこれ便利だぞ。へたれさん、1さんお疲れさまだぞ。

Classic版AppleScriptとわけてあるのはなぜ？
OS-Xはなんか違うの？

>>82
なんか喜んでもらってうれしいです。今もう少し改善中なんで、待っててちょ。

>>84
AppleScript自体は特にかわりはないんだけどさ、AppleScriptってアプリによって
関数が違うでしょ。9でもXでも全く同じAppleScriptが動くアプリって、数えるほど
しかないと思う（Finderだって少々違う）。そんでさ、9では出来たのにXだと出来ない
って話があると、XならかわりにShellコマンドとかShell Script、Perlスクリプトで組み
合わせて使えるし。それだったら、別ｽﾚにしたほうがよいと思って立ててみた。

なんとなくコテハンにしてみました。小一時間くらい考えました。
このｽﾚ途中で入りづらくなったかもしれませんので、簡単にまとめてみます。

スクリプトってのはプログラムの一歩手前みたいなもので、単体では
動作しないアプリケーションと考えてもらってもいいです。ちょっとした
繰り返しの作業を簡単にするために使ったりします。例えば、IEで開いている
ページのURLをコピーして、Terminalを立ち上げて、wgetでJPEGをダウンロード
するといった一連の作業をスクリプトに記述しとけば、そのスクリプトを実行する
ことによって、操作を簡略化することが出来ます。

基本的にOSXではAppleScript（アップル純正のスクリプト環境）、Shell Script、
Perl、その他UNIX系のスクリプト環境があります。>>2にやや詳しく書いてあります。

ここにカキコされたスクリプトを動作させるには、
AppleScriptなら、Applicationフォルダ→AppleScriptフォルダ→Script Editer
を開き、コピペして保存します。保存の形式には、テキスト形式、コンパイル
済みテキスト、アプリケーション形式があります。
テキスト形式→そのままの意味でテキストの形式で保存。実行は出来ない
コンパイル済み→後述するScriptmenuや他のアプリから呼び出す場合に使用
アプリ形式→アプリケーションとして保存。ダブルクリック、ファイルのドロップ
などで実行できる。適当な形式で保存して実行してみてください。

Shell Script(#!/bin/cshで始まってるもの)なら、テキストとして保存するだけ
ですが、改行コードをUNIX用のものにしなければなりません。改行コードをUNIX用
で保存する方法は山ほどありますが、下のエディター「mi」を使うと簡単に保存できます。
ツールバーで改行コードを指定できるので「LF(UNIX)」を選択して保存します。
ttp://www.asahi-net.or.jp/~gf6d-kmym/
保存したテキストを実行するには、まず実行できる形式にしてやる必要があります。
（そのままではテキストなので）Terminalから
chmod 755 保存したテキストのフルパス（ドロップすると楽です。）
とします。次に実行してみます。Terminalから
保存したテキストのフルパス
を書いてリターンキーを押すと実行します。スクリプトによっては引き数が必要です。
また、いちいちファイルのフルパスを書くのが面倒な場合は、パスの通った場所に、
スクリプトを置くことによってファイル名だけを打てば実行できるようになります。
パスの通った場所はTerminalから
printenv PATH
で表示されます。表示された場所にコピーしてみてください。例えば
cp ファイル名 ~/bin
となります。これでファイル名だけで実行できます。

だいたいこんな感じかな〜。わかんなかったら質問してください。

昨日は疲れて途中で投げちゃったから、続いてスクリプティングに便利なツールについて

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

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

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

・Coela
Finderの代わりに使える便利なファイルブラウザ。コンテクストメニューでファイルパス
が簡単にとれる。AppleScript対応。あんまし関係ないけどコレ最高。
ttp://www.bekkoame.ne.jp/~iimori/sw/Coela.html

・wget
UNIX用の多機能ダウンローダ。OSXでも動く。このｽﾚはコレを使ったスクリプトが多い。
ttp://dec.sakura.ne.jp/~irodori/os_x/install_wget.html

とりあえず上げとこうよ！

スレ応援スクリプトとして
IE で選択した文字列を
改行コード LF に変換してテキスト書類に保存するスクリプトつくりました
ScriptMenu に入れとけばシェル系のスレでサンプル利用するときは便利かなと‥
俺自身は UNIX さっぱりなんで検証してませんが、使えますか？

tell application "Internet Explorer"
set this_text to selected text
end tell
set unix_return to (ASCII character 10)
set mac_return to (return)
set old_delimiter to AppleScript's text item delimiters
set AppleScript's text item delimiters to mac_return
set text_items to every text item of this_text
set AppleScript's text item delimiters to unix_return
set this_text to text_items as text
set AppleScript's text item delimiters to old_delimiter
set save_text to choose file name
try
set h_file to open for access save_text with write permission
write this_text to h_file
end try
close access h_file

wgetは最新の1.8.1だとダウンロードしたソースそのままで
./configure通ったよ。
で、make→make installも問題無し。wget1.6よりこっちのがいいかも。

>>89
おぉ考えつかなかった。それｲｲですね。問題なく使えました。んで、
テキストとして保存した後、パーミッションを変更しなきゃいけないので、
そのスクリプトの後に

set aPath to POSIX path of save_text
tell application "Terminal"
do script with command "perl -pi -e 's/[0-9]+.*ID.*//g' " & aPath & "; chmod 755 " & aPath
end tell

と加えて、パーミッションの変更をやってみました。
ついでに、かなり無理やりですが、「100 ： 名称未設定〜」の行を抜くんで、
複数回の投稿にも対応させました。保存する時に名前を英数文字にしてください。

>>90
補足ありがとです。

>>91
間違えた・・「^」を忘れてました。ｽﾝﾏｿ

set aPath to POSIX path of save_text
tell application "Terminal"
do script with command "perl -pi -e 's/^[0-9]+.*ID.*//g' " & aPath & "; chmod 755 " & aPath
end tell

ちなみに「^」ってなんて言うの？

見たことない位のお役立ち良スレの邪魔をするようで嫌なのですが、
wgetのインストールが出来ず困っています。
1さんが17でリンクされてるサイトを参考にやっているのですが、

Mac OS X用に書かれたconfigureのサブスクリプトを置きかえるという
cp /usr/libexec/config.sub .
cp /usr/libexec/config.guess .
を実行してもNo such file or directoryと言われてしまいます。
最後のピリオド省いてみたり色々やっているのですが、、、。
完全Terminal厨房(同時にOS Xも最近入れたばかり）なので
困ってます。
シャーロックでusrで検索しても何も見つからないし、、、。
どなたか教えていただけないでしょうか？

があああ
すいません、あれこれ頑張ってて90さんの書き込み見のがしてました！！
出直してきます！！！！

wgetのバージョンは？
バージョン1.8.1だとサブスクリプト書き換えずそのまま
通ったよ（って上にも書いたけど）。

>>93
ども、書き込み一瞬遅れでした。。。上手くいきました？

>>90樣
お騒がせすいません。
./configureの結果が以下、、、。

configuring for GNU Wget 1.8.1
checking host system type... powerpc-apple-darwin5.2
checking whether make sets ${MAKE}... no
checking for a BSD compatible install... /usr/bin/install -c
checking for gcc... no
checking for cc... no
configure: error: no acceptable cc found in $PATH

自分は根本的な何かが欠落している気がしてきました、、。
勉強してきてからの方がいいのかな。

>>97
基本的な事だが、Developer Tool入れた？

そもそも development tools 入ってる?

>>97
コンパイラーが入ってない‥‥。
Developer Tools入れないとコンパイルは出来ないよ。
↓に1.62ならバイナリパッケージがあるから、まずはこれ入れてみれば？
http://gnu-darwin.sourceforge.net/packages/pseudo2/www/

なにげに100 get！！

へたれさん、ありがとうございます！というかまさに根本、、、。
頑張ってみます！

>>100
それよか
http://developer.apple.com/tools/macosxtools.html
から Developer Tools を落すように勧めるべきでは?

>>103
とりあえず wget を入れたいだけだと思ったので、
バイナリパッケージのある場所を載せました。

DevToolは200MB以上あるし、インストールにもかなりの容量が
必要なので「まずこれを」って勧めるものでは無いと個人的には思ってます。
（必須の場合は、上記の限りでは無いですが）

ここの皆さん優しすぎ、、、。

へたれさん、何も知らない自分にはバイナリファイルがあるからといって
それをどうやってインストールしていいかわからないのです。
なのでDeveloperToolsをいれて、と思ったのですが、

OS Xはパッケージで買ったものではなくibookに付属していたものなので
DeveloperToolsのCDは持ってません。
で103の方のリンク辿ってアップルから落とそうとしているのですが、
デベロッパとしてメンバー登録しなければ落とせないのでしょうか？
登録のために記入しなければならない項目が多い上、英語なので
何を記入していいか分からない項目もちらほら、、。
これ以上質問するとさすがに迷惑なので、一旦諦めてWEBをまわって
勉強してきます。

このスレのおかげでOS Xの面白さが見えた気がします。
ほんと超良スレ。

ってその努力が全部エロの為だと推測されたら恐ろしくかっこわるいな、俺。
違うんですよー！

このスレの人かこいい…
OS X買ったら使わせて頂きます。

>>105
>デベロッパとしてメンバー登録しなければ落とせないのでしょうか？
そうです。オレも最初は登録辛かった。ガンバレ。
登録してDev Tools をDL&インストした暁には「make」し放題よ。

>>108
え？　辛かったって‥なんで？
Developer Toolはオンラインメンバー（無料）なら誰でも落とせるけど‥

あ、英語がわからなくて辛かったという意味なのね、ｽﾏｿ。

>>110
そう。

初心者質問なので気が引けるのですが、、、

外部のスクリプトを実行するのに
set scriptfolder to "/Users/XXX/Library/Scripts/a_script/"
run script (scriptfolder & "sample.scr")
でエラーになってしまうのですが、ご指摘いただけないでしょうか。

こんな時間に即レスする自分に腹が立つが、
run script file (ふるぱす)
なら上手くいくと思われ。
run script "beep"とかね。

ｽﾝﾏｿ。あとパスは、/Users/~みたいなUNIX式のパスじゃなくて
Darwin:Users〜みたいにコロンで書かなきゃいけないね。
パス取るにはいろんな方法があるんだけど、Coela使ってパス取るのが
一番楽かな。

せっかく即レスしてもらったのにお礼遅くなってすみません。
愛子タン見て寝てしまった。。。
ありがとうございます。

ｺｿｰﾘあげ

osascriptコマンドって引数とれないですよね？
Terminalからコンパイル済みスクリプトに値を渡したいのだけど。。

>>117
shell script の中で osascript 呼ぶようにすりゃいいんじゃない?
例えば、こんな感じで。
#!/bin/sh
# setcomment -c hoge hage で hage に hoge ってコメントをつける。
# けっこう手抜き。
while [ $# -ne 0 ]
do
case "$1" in
-c) shift;comment="$1";;
*) posixpath="$1";;
esac
shift
done
case "$posixpath" in
/*) ;;
*) posixpath="$PWD/$posixpath";;
esac
/usr/bin/osascript <<END
set posix_path to "$posixpath"
set the mac_path to POSIX file posix_path
tell application "Finder" to set comment of mac_path to "$comment"
END
#!/bin/sh
while [ $# -ne 0 ]
do
case "$1" in
-c) shift;comment="$1";;
*) posixpath="$1";;
esac
shift
done
case "$posixpath" in
/*) ;;
*) posixpath="$PWD/$posixpath";;
esac
/usr/bin/osascript <<END
set posix_path to "$posixpath"
set the mac_path to POSIX file posix_path
tell application "Finder" to set comment of mac_path to "$comment"
END

>>80　のスクリプトを発展させて、コマンド登録、実行スクリプトを
作ってみました。長いのでReadMeつけて下に置いておきます。
http://homepage.mac.com/ero_s/FileSharing1.html
Shellスクリプトなんかの呼び出しにいちいち作んないで、コレ使うと便利かも。
・・他ｽﾚでも宣伝しようっと

>>117
聞きっぱなしって良くないと思うよ。

>>120
すんません。スレ自体を見失ってました。。

>>118
ありがとう。でもその方法では呼び出す度にAppleScriptのコンパイル時間の
ロスが微妙に気になって、だからコンパイル済みのスクリプトに変数を渡す
方法がないかなと思ってたんです。Rbではできるのになぁ。

>>119
ｲｲｰ（・∀・）!

>>119
ありがとう。あっちでも感謝。

applescriptの記述（？）画面のままになってしまいました。
どうやったらいいんでしょう？？

>>123
ReadMeに書いてあるScriptmenuでやると、起動時間がかかんないので楽。
あるいは、開いておいて別名で保存→アプリ形式で保存して、ダブルクリック。

>>121
そーでしたか、スンマセンでした。

コンパイル時間が気になるなら、特定のファイルを引数として読み込むような
AppleScriptにして、Shell Scriptで

#!/bin/sh
echo $1 > para.txt
osaascript ~/naninani
rm para.txt

とかってどうでしょう？引数が短くてｲｲなら、touchしてファイル名を読み込ませた
ほうが速いかな。既に考えてたらごめん。

＞へたれさん
curlにははじめから連番DL機能がありますよ。
curl -O 'http://hogehoge.com/file[03-15].jpg'
>>92
「^」は「ハット」と読みます。

>>124
ダブルクリックしたのは間違い？

>>126
腐れさん、「^」ありがとうです。
へたれさんのスクリプトはCurlの連番補完スクリプトですよ。
http://hoge.com/ero50.jpg
ってURLさえあれば、01-50ってのを作ってくれます。
これと、AppleScriptを組み合わせれば、とりあえずキーボードなしで
連番がダウンロードできるようになります。
リンク先をクリップボード→AppleScript実行って感じで。

>>127
さっき試してみたらアプリケーション形式では文字化けするね。

だから、ダブルクリックは間違いでもないけどさ、
http://www.apple.com/applescript/macosx/script_menu/
からScriptMenuって奴をダウソして、解凍したものをダブルクリックすると、
メニューバーにスクリプトのマークが出来るはず。
そしたら、そのメニューから、Open Script Folderのメニューを選んで、
開いたフォルダに、Commanderを入れてください。そうすると、メニューから
実行できるはずだから。最初はSampleの方を使ってみて。

>>128
script menuから実行したけどエラーで全部実行不能だった。
一応報告しておくなりよ。

漏れとしては
"「＠＠」を「；；」する"......というのがプルダウン選択→結果が出るという物に
なってくれると嬉しい。

>>129
System OSAXは入れた？ReadMeに書いてあると思うけど？

>>130
入れたよ。

でもreadmeに書いてある~/Library/ScriptingAdditions
が無かったから自分でフォルダ作ったのが間違いか？

~/Library/ScriptingAdditionsを作るのは間違ってないよ。
んじゃ、スクリプト自体を直接ダブルクリックして開いてみて、

色付きになってる？→コンパイルは出来てる
半角カタカナがある？ ﾇeventなんたらって→System OSAXが効いていない
system (Cmd_Str)って言う個所があれば→System OSAX自体は入っている

んで、よかったらどんなエラーが出るか教えて欲しいです。
ウィンドウは出るの、コマンドの実行がエラーになるってことですか？

>>128
失礼、キーボードをなるべく使わないでダウンロードできるようにしたいわけね。
ついでに質問なんだけど、シェルやPerlのスクリプトファイルの拡張子を.command
にするとダブルクリックで起動できるようになるよね。でも引数は渡せない。
ファイルをドラック&ドロップすると特定のシェルスクリプトの引数にファイル名を
渡してくれるようなAppleScriptとかってない？
つまりAppleScriptなどを経由してでもいいからシェルスクリイプトに引数を渡したい。

>>125
コンパイルといっても1,2秒くらいのレスポンスなんで、
今回はファイルに書き出して受け渡すほどでもないかな。
でも、大きなAppleScriptに引数を渡したい時にはいいかもしれませんね。

>>133
こういうの別のスレで見かけましたよ。
http://www.apple.com/downloads/macosx/unix_apps_utilities/dropscript.html

>>133
えろすさんの>>119はどうよ。家では問題なく使えるけど。
ドラック＆ドロップではないけど、シェルスクリプトを登録して、
引き数をダイアログとかにすれば、ｶﾅｰﾘ便利。

>>132
言われた通り確認してきた。間違ってたよゴメン。

漏れの間違いだった所はsystem.osaxを1階層深くしてしまった為らしい。
~/Library/ScriptingAdditions/systemOSAX1.0.7/system.osax
と解凍ままで置いていたんだが、それが駄目だったみたい

~/Library/ScriptingAdditions/system.osax
に直すと起動したよ。　ありがとう。

ただサンプルに書かれているゴミ箱のヤツだけはそれでも
エラーメッセージが出たよ。↓こんなカンジ
A script error occurred. Command execution failed...? 変な漢字null


あとすごく余談だけど、、、、漏れを含めたシロウトの為に
入力手順と簡単な実例になる物をマニュアルに書いておいたら、
どういうソフトか分かり易いと思う。（まあ手順は難しくないけど）
敷居の低さでは「cal■2002」とかでいいと思うんだけど。
実際自分でもそれを始めに入れてみた。

terminalに縁遠いヒトに上手く利用してもらるソフトだと思うけど
ぱっと見でどんなソフトかわかりにくいし、、、、
ちょい勿体ない

普通にOSXで出来ない事が「目に見えて出来るようになると」
漏れ等素人は「お〜スゴイジャン」ってなるしね。

>>136
たぶん property Pass_Str に間違った値が入ってるんだと思う
もう一度 ScriptEditor で開いて
構文確認からやり直して（最後に改行を入れてみるとか）
それ以外のことは何もせずに Scriptmenu から実行してみて

あと、これはあんまり言いたくないけど
人が親切でつくってるものをマニュアルをつけろだの
もっと簡単にしろだの注文つけるってのはどうなの？
ScriptingAdditions にフォルダごと入れてる間違いに気付かないような人は
注文つける前に自分でやることがあるんじゃないの？

>>137
そうだね書き方が悪かったよ。
する事があるよな。
フォルダの入れ場所間違う漏れが悪いわな。
注文というか感想のつもりだったんだけどね。


でもね、「Apple script」そのものの敷居が高いんだよ。
script書ける人間と書けない人間が分かり合えない所じゃない？
「勉強してから来いや！」と思われてるだけなんでしょうけどね。

なぜかいつも「プログラム寄りの人間」と「そうでない人間」で
分かり合えないけど

ｴﾝﾁﾞﾆﾔが仕様書嫌いなのは常識

こういう売り物じゃないのは基本的に自分が楽するために作るからね。
ヘルプやサポートは予想以上に手間と労力がかかるもんです。

>>136-140
ご意見ありがとう、参考になるです。
このスクリプトに関しては、まだ0.1bだし、ちゃんとエラー処理もしてないんで、
そこらがちゃんと書けたら、マニュアルももう少しまともにするつもりですわ。
将来的にはAS Studioでも使って（使えれば）きちんとしたアプリ形式にする予定です。
だいぶ先になりそう。

あと、ごみ箱のやつは、ごみ箱にゴミが入っていないとうまく行かないです。

日本語と英語以外の言語リソースを削除(シェルスクリプト)
引数にパスを指定 ( 例: /Applications/OmniWeb.app )
実行は自己責任でお願いします。
----------------------------------------------------
#!/bin/sh
reslist="da de el fr is it ko nl no pt pt_BR ru zh_CN zh_TW"

if [ $# -le 0 ]; then echo "Usage : $0 <path>"; exit 1; fi ;

for res in $reslist
do
echo searching $res.lproj...
find $1 -name \*$res.lproj -exec rm -rf {} \;
done
----------------------------------------------------

zsh を使ってる人はコレ一発。
$ rm -rf /Applications/OmniWeb.app/**/*.lproj
*ja.*
*Japanese.*
*en.*
*English.*

zsh 使ってたら機能的に tcsh に戻れなくなってしまった…。

>>138
ここの人はいい人ばかりで、こんな事で波風立てて申し訳ないのだけど、

プログラム書いて貰った上に、マニュアル書けだの使い方説明しろだの言って
>>なぜかいつも「プログラム寄りの人間」と「そうでない人間」で
>>分かり合えないけど
ってのは無いんじゃない。

別にマニュアルなんて誰が書いても構わないんだし、
マニュアルがあった方が良いって言うなら自分で書いてみたらどうよ。
注文付ける前に出来ることはいろいろあるさ。

OmniWebで見られないページを、そのまま
Internet Explorerで開けるApple Scriptってないでしょうか？
iCabのはネットで見つけたんですが、自分で書き換えてみても
ちゃんと動作しません。

まったくスクリプトの知識がないので、
もしつくっている人がいたら、おしえてください。

>>144
そうかぁ
Omni って GetWindowInfo 命令がないんだね、シランかった、
用語説明みて即席でつくってみた
だいじょうぶだとおもうけど、ちょっと自信ない
不具合があれば報告よろしく
実行は ScriptMenu か便利です

tell application "OmniWeb" to set the_url to address of browser -1
tell application "Internet Explorer"
Activate
OpenURL the_url
end tell

>>145
あふん、先越された！
なので、URL取得の一覧作ってみました

tell application "Mozilla"
set Cur_URL to URL of window 1
OpenURL Cur_URL
end tell

tell application "iCab"
set Cur_URL to URL of window 1
OpenURL Cur_URL
end tell

tell application "Internet Explorer"
set Cur_URL to first item of (GetWindowInfo -1)
OpenURL Cur_URL
end tell

tell application "OmniWeb"
set Cur_URL to address of browser 1
OpenURL Cur_URL
end tell

開くのは皆一緒なんだね。Mozillaとネスケは一緒。

OS Xでアプリケーションがクラッシュした際に出てくる、
「アプリケーション”hogehoge”は予期しない理由で終了しました」の
ダイアログをAppleScriptから閉じることは可能でしょうか？
Finderにいろいろ命令を送ってみてもうまくいかず困っています。

ヤフーオークションで、幻の人気商品、発見！！！

今は無き「コピーガードキャンセラー」↓
http://page.auctions.yahoo.co.jp/jp/auction/42757955

ヤフーオークション内では、現在、このオークション
の話題で、持ちきりです。

>>145
スゴイ!!
ありがとうございます。
ちゃんと動いてます！
>>146
なるほど。iCabをOmniに書き換えるだけじゃダメなんですね。
勉強になったっす。

と思ったら、OmniWebで一番上に開かれているページが
IEに渡されるんじゃ無いみたいです。
たぶん、最後に開かれたウィンドウが渡されるみたいです。

#!/usr/bin/perl
print "名スレ";

>>147
ちょっと検証してみましたが、惨敗しました。
あのウィンドウはFinderのオブジェクトではないとは思うんですが、
なんのウィンドウか全く見当もつかなかったので、SystemUISaverか？
と思ってAppleScriptからQuitしてみましたが、違うみたいです。
久しぶりにシステムあぼーんしちゃいました。

ちょっと無理っぽいと俺は思います。昔はOkey-docyってのがあったんだけど。
Quick keyまちかな。
ところで、どうゆう必要があるの？参考までに教えてください。

>>152
あのウインドウは loginwindow じゃないの?
SystemUIServer は MenuExtras とかその辺でしょ。

>>152
わざわざすみません、恐縮です。
まだ不安定気味なデスクトップアクセサリを
スクリーンセーバ代わりに常駐させようとして

on idle
tell application "Finder"
set ProcList to name of every process
end tell
if ProcList does not contain "hoge" then
tell application "hoge"
activate
end tell
delay 10
end if
return 30
end idle

上のようなスクリプトで自動復帰させてると
ダイアログが最前面に何枚も残っちゃいまして。
Quickeys Xとの併用も検討してみます。

先生面白い（今更）。
自分のためにシコシコかいたperlスクリプトを.commandで実行すること、忘れません。
んでperlスクリプト内で
require "jcode.pl";
&jcode'convert(*indexstr, "euc");
&jcode'convert(*indexin, "euc");
$indexin =~ s/$indexstr//;
なんつって置換しようとしたら置換されないわ文字化けするわで半泣きです先生。
jterminal使ってないからいけないんですか！
最新のjTerminalとNJEだとウィンドウを開くや閉じます。うわーん。

あとScriptmenuって、起動する度にメニューバーに登録しなくちゃ逝けないんですか？

すれ違いの予感。

>>155
perl4の構文じゃない？それ・・・。5で書けぇｺﾞﾙｧ(ﾟДﾟ#)！

あと、スクリプトメニューは一回起動すれば、ずっとメニューにあるけど。
なんないの？まぁ、ログイン項目に入れとけばよいかと。

>>153
152はSystemUIServerが違うってことがわかったってことです。
loginwindowなのかな。どっちにしろスクリプトで制御するのは無理っぽいですね。

少し試してみたら、面白い構文発見してしまった。強制ログアウト・・

tell application "loginwindow" to quit

>>157
叱られた！
4と5の構文で違うの！？
厨問で申し訳ないのですが解説キボンヌ。と。

>>159
http://www.att.or.jp/perl/faq/faq1j.html#1-2
俺も詳しくないけど、ここに少し書いてあります。
一応Perl4のコードは5でも通るように出来てて、互換性はかなり高いです。
けど、今更4はないんじゃないかと思ったのよ。エラー自体は、おそらく
別んトコのコードか、開くエディタとか、外堀のせいだと思うよ。Terminal
は関係ないよ。（標準入力とか使ってるわけではないよね？）

jcode.plは試したけど、普通に使えたよ。jcodeのページのサンプルで
試してみたら？

↑アンカーが引っ掛かる・・宇津氏
http://www.att.or.jp/perl/faq/faq1j.html

http://pc.2ch.net/test/read.cgi/mac/1004680972/l50
ここの>>295なんですが
http://ime.nu/www.geocities.co.jp/SiliconValley-Cupertino/5226/j2ch-cache/index.html
このj2ch-cacheを起動するアップルスクリプトは可能でしょうか？
j2ch-cacheはシェルスクリプトを実行して起動します。
そのシェルスクリプトの中身はコマンド一発なので
コマンドを投入できさえすればいいんですが、、、

みなさん、お世話になります。
あれから色々Terminalについて勉強してますが、む、む、難しいです。
ちょっと書いてみたのでツッコミよろしくお願いします。

>>162
初回起動時のみ、「j2ch-cache-0.41フォルダ」を選択してください。
最後の行の後に自分の好きなブラウザを起動させて、http://127.0.0.1:7524/を
読みに行くようにするとよいかもです。
まぁ、起動に時間かかったりするから、お気に入りから入る方が良いかな。

property Cache_Folder : {}
if Cache_Folder = {} then set Cache_Folder to choose folder with prompt "j2ch-cacheフォルダを選択してください"
set Old_Delimiters to AppleScript's text item delimiters
set Cache_Path to Cache_Folder as text
set AppleScript's text item delimiters to ":" as Unicode text
set Path_List to text items 1 thru -2 of Cache_Path
repeat with A in Path_List
set contents of A to A & "/"
end repeat
set Full_Path to ("'/Volumes/" & Path_List as text) & "/bin'"
set AppleScript's text item delimiters to Old_Delimiters
tell application "Terminal" to do script with command "cd " & Full_Path & return & "./j2ch-cache.sh"

鬱氏
10.1.2以降ならこれで逝けるみたいです。
今から首吊って逝きます。
POSIX・・・・過去ログに出てたのに意味が解ってなかったっす。

property Cache_Folder : {}
if Cache_Folder = {} then set Cache_Folder to choose folder with prompt "j2ch-cacheフォルダを選択してください"
set Cache_Path to Cache_Folder as text
set Cache_Path to "'" & POSIX path of Cache_Path & "/bin'"
tell application "Terminal" to do script with command "cd " & Cache_Path & return & "./j2ch-cache.sh"

22さん、ありがとうございました！！！！！
うまくいきました！！！！！
やった、これでラクチンに起動できます〜〜〜感謝感謝。
みなさんも使ってみて下さい。いいですよ。j2ch-cache。

こんばんは。今朝は出勤寸前だったので適当なレスでした。
22さん感謝してます。
このスクリプトを実行したときにTerminalが起動されていない
場合だと、Terminal起動時に開くウィンドウとスクリプトからコマンドを
実行されたため開くウィンドウで２つ開いてしまいます。
別に気にしなければいいのですが、改造を考えてみても私には無理でした。

最後の行のto do script with commandの部分で新たにウィンドウを開いて
コマンドを実行してるようなので別の何かに書き替えるといいのかな？
初心者ですまんです。
（追伸。POSIX path of Cache_Pathは/区切りのUNIXのパス表すということで
いいんですよね？）

10.1.1以来の余計なお世話的仕様、「Dockから一定の距離を置いて
デスクトップアイコンが整列する」のせいで、右の縦位置にドライブ
アイコンを置けません。
『アイコンの配置条件』を「なし」にすれば、Dock近くに置けなく
もないですが、なにかあるとすぐにとんでもない位置に再配列してく
れたりします。

で、ClassicMacOSにはよくあったスクリプトですが、デスクトップ
のすべてのアイコンの位置を記憶して、起動一発でその位置に並べ
なおすというステキなスクリプトってできないものでしょうか。
自分でやってみようとあれやこれや試してみたのですが、やっぱり
なーんも知識がないのでダメでした。
古いスクリプトでも動いてくれればうれしいんですが……どんなも
のでしょう。ご教示ください。

>>166
TerminalのWidowを全く表示しなくて良いのなら
do shell script "cd <install-dir>/bin ;./j2ch-cache.sh"
の一行で良いと思うよ。でもこれTerminalでログ吐くの？

Trminalを起動した時には、勝手にWindowを開きます。
また、Scriptからコマンドを実行した時もWindowを開きます。
結果1枚余るんです。

だから、起動→Windowを閉じる→コマンドを実行
tell application "Terminal"
activate
close window 1
do script with command "cd <install-dir>/bin ;./j2ch-cache.sh"
end tell
で良いかと。

なるほど、初回起動時に新規Windowが開くのですか。
Terminalの環境設定で起動時に「何もしない」を選びます？
普段はcmd+Nで新規開くという事で。

>えろすさん
colse window 1だと逆に何らかのプロセスが走っているWindowがある場合に
終了を促すダイアログが出るのを気をつければこっちのがいいですね。
あと、セミコロンで逝けるんですね、知らなかった。やっぱ勉強不足。

.cshrcに適当に書き足す、というのはだめ？

>>167
一応、position of every item of desktop とやると、
-->{xxx,yyy},{xxx,yyy},{xxx,yyy}
とか返すみたいなので、出来るのかな？と思ったけど、どうやら
Finderウインドウ上でのポジションみたいです。
デスクトップにあるアイテムの本当の場所のポジションという事かな。

ちょっと無理っぽいような気がします。
この件、アポーにｺﾞﾙｧしてみるのも良いかもです。

>>171
なるほど。
たしかに、例の仕様が追加されてから、結構不満の声が出てますから、
誰かがそういうスクリプトを作っていて不思議ではないと思ったんで
すが、仕様的に無理というのならばなんとなく納得が行きます。
やはりアポーに文句言う鹿ないのでしょうねえ。

お久しぶりです。マイマシンが崩御されてしまって不便な毎日を過ごしてます。
ヨドバシから書き込んでみたりしてます。

>>170のえろすさんの、これでもいけないかな？
tell application "Terminal"
activate
do script with command "cd <install-dir>/bin ;./j2ch-cache.sh>&/dev/null &"
end tell

これでも新規WINDOW、開かれるかな。どんなshell scriptなのか確かめられないので
ものすごい適当ですいません。
んで「；」はshでの改行の意味です。これが入ってると改行（コマンドの区切り）
として扱われます。複数行にまたがるコマンドを1行で書く場合に入れときますです

書き込んでから思ったんだけど､>>173じゃ駄目だね。
Apple scriptからTerminal呼出すと、新たにwindow作って
そっちでコマンド実行するんだった｡アホだな>ｵﾚ

なんでwindowを全く表示させないようにするには､
えろすさんの様にdo shell script使うか、
systemOSAX入れるかしか無いのかな｡
ただsystemOSAXからshell scriptを実行するには
shの引数として渡してやらないと、動かなかったような気がする。

Dockを隠すスクリプトをDockに置いといて、
ワンクリックでDockを引っ込めたいんですけど、できますかね。
できれば、もう一度そのスクリプトをクリックすると
Dockが隠れないようになってくれるとうれしい。

>>174
たぶん、初回起動時だけ新規ウインドウとAppleScriptから命令したウインドウと
ふたつ開いちゃうので嫌なんでしょ？
Terminalの初期設定で開かないようにすればいいだけでは？

>>175
1ボタンマウスだと、control+クリック、選んで放すだけだね。
2ボタンマウスだと、右、選んで放すだけだね。

アプリ登録部分とフォルダやウインドウの部分との境界でするんだよ。
スクリプト、ぜんぜん必要じゃないよ。
てか、doc.appはスクリプタブルじゃ無いじょ。

誰か、AppleScriptStudioで、最初に表示されるウィンドウをフローティングにする方法と、
特定のアプリケーション（たとえばIllustlatorとか）でのみそのフローティングパレットが
アクティヴになる設定方法知っていたら教えてください。。

>>173
ご崩御されましたか・・、ご愁傷様です。俺も、最近HDクラッシュ
しちゃいました。ヨドバシからカキコ・・・・、ｶﾞﾑﾊﾞﾚ！（ｗ
curlの分割スクリプト期待してマスです。

あげげ

唐揚げ

Terminal初心者質問スレでrmで消さずにゴミ箱に移すスクリプトを書き込んだ物ですが、
こちらで書き込んだ方が良いようなので、shで書き直した物を、書き込みます。
完全にrmをエミュレート出来てないので、手直しや、ご意見など仰げれば、ありがたいです。
使用法は中に書いてあります。biginからendまでをテキストエディターで適当に保存し、
StuffIt Expanderに放り込んでやれば解凍出来ます。

begin 755 safeRemove
M'XL("-%!DSP``W-A9F5296UO=F4`M1A;;QM5^MGS*TXF%B)!CI,L$E(K+W%2
M.UBDB64G39$;:C<>)[/K&[93"*45\XT02=M<VL3)"Z!250A2086JMB"UJP6E
M:8W270D02-!*14BKM+M(Z1L"'OC.92Z><0HL[D2*YYSSW>]G6EO\A]2\OSPI
MM4JMA)13&26FY`J'%2U<RL%F*JNFRE";GX!SL+%Z`\[">W`7+L%]N`EG]?WZ
MH'Y</ZQ/P'6XHO5*K5J/_4^OZ#UZGWX"MA'O/&)LS?VP\`9<@7M(Y0?8@IH6
MU./ZL>4S4+-@G52J/R'>6W`';E,>\Q.KQ94>N(7";2Q=@,M4'JT7:=^#K^%]
MW-W6^_5C^FOZ22VA3SAI,=[_05UJJ,,ZHWD)KFF],_=GW]*"QQ6]B%B*WJOO
MTU_7EV#3D,Y)9^D7D\Y-^`0IW3;TGY_0>E:+6L]*CQ:&#Y&"9:-M;<IFWL.P
M@58Y9^B]<A6N5[\]==DE,97S??@'G-5Z+5I+=^'ZW/J)X%($)7!P<5(XN0Y?
MPB9<UX+59^$C"KUR=66(!2ODAIN_@B?#0X_`QLGOZ,:7@/Y?T0_@LUX8\'
MZ/.S<(U*!NM:T(EO"Y[%.Z>W&#,.?@&#YU\BE#8,HZT6%[X_/3?SA1:V&>0V
MPM_2,^B.DZC>A'X<]VJHZC0Z:3^LH1.$8&[V)WJ6#R#/V_`Q/-!ZEWY:.7+R
M/MR"&^BRFR+\WL,`%.>NP'T9.;QJYPS;,]^AL^K#HS;S#=.KH03HC@-<SI6+
M:&8>)E2B<[.?+A]8/`]K<(9)<K<!?Q%V@OY=89,E_:"6@,WJS^B\*_`!U):O
MS6;0?2P9YU=@S>7$,TQ'#,TZ"MLHVW[]>9H@/!DQ#>?T(7H.ETY?Q;T-)R4C
M];5>WRAL^*(8<A$,-VZ'6_/_/^DNY@3PR=+93E'?AH878Q/O\YK,W]#^UQ
MK?HN2HZA>:(/MJL5C(QU+#2?/"PL5RXN?K'<A_N2U/I_/[30[?`<_TKK65S>
M\;CUSW#%[)]0R.-MY(CD43,D0;Q=)$#D0E$F8[M)95+)2QY/9&`@D%3&)PO$
MVTU>(942\:6)G$AGU&BL-#KFDY,(Q,YE;^<NHF:SRD0J2PKｾK($Y^/>)&"
M3+K^^EBWY,FHDH!EO'<1;R=)^`Q:)*-F%=+1T6&`*R^I%>FH))58A1*2,GQ?
MGLABUWLD/CP2#A]]FAAH)265)GU#@V'),YXJ(P1])RK5)O'<]!AJ,:V4VW"%
MD)6I$MW?O1O_M1.VR;CR+:6<&J<"5$JI\J3@STEV<WKM"?]8.\.*,2D"R4-X
MG$_E*$C205B`>+OMU#UUMB^F2A6[]=F13R'^?87L5$XI^[VQ?4,#_HYA*A!=
MCD3VX!XC;$/SL!Y:RA%?)O:[<$V<W&&JVT-1J+^S9>4/HE#7"],J69O&DX6<
MTDCC8X+$;VGGA'.(91XWEMI^;),07X\^HH2N_IN01Y70P5C_OH"W74('!)),
MRVS9=$Q20D\$DFJ:^*:2%#0>D-,D0U02);$2&96EOCV1F,`KOIA.2H,C>P-=
MC\`,,S\N+F.=O02;"_?G7F^^&7ATM6(4O4`ZK;CAY:Y30N<V52?1',_0!H)M
MY2:V)?;6?)U:ZA+#TBSW][2*=3E'GNKL-,^9GIE"B80P'+!:$2_^2NF"J#<M
M]64EY$I:6\+5T7\8#LN<="&O-,7"MHZ^K2?UL'Y('X0-<S!?J[Z-<62/H3]E
M86HJS`IF*9I(S%2LV,MT+8L&XAMK3[08':N]C=""PB.K4&2(1M%GD!8@A1,L
M0@:/.-VD;/!Q<?+0[D+7(8&-3W@@V!^0O?2'G<A\G_'SB'Y"*>856^MA(H8C
M`Z$X1:6_C#G#%1W)$IO1X![DE1@;+4>R%>FR4B%\DP:9F6YH@VX+B"I+89BR
M')CK:MTYB(^IPH\E(3>KP,W,42M@3EV>NX-E1V0H#1Q\O]&T'!4N9#;E3I1E
MZCFC\%`#,_M:">AU]#9KD.(GN\A@@92GQB?Y;(0FQ4Q4QBN%TG3=D-34FF;+
MNQI>*N\MS*R^"9N+([!578,+S:MI?))B$4"-U9[(L$BG8<@G)@<`30C52`;7
M&3V-E:Q<X>,A7Z"D8K!(NTS.'VQ]H;[AH=AS5N/T!05LT@"R,L($EYV$6-Q'
M!N.1/3SR34@30"0\>^RYH,8$/[^7X]LP\HJQ8%.*"]=0RS@3,ZP=010)8QAU
M6,@S_$QL)"!/-ZXH;,D71@R[O2>,;[EO9XN[G8>ETG1=:&]T9R]P5`0QW8Y9
M9JID*&G3LD%.[3%RB.0+%:+DBA4SFUSF,R@:IC`V3`9N\FJ9I-QY6D>7$Q$T
MJ8=V-FN4VX6S\45)3OV;6BX7ICI([O&#Y&!;SF3`J3/[)T;KL$9_#Q;GW[0J
M0I8?Z!&\TJM:0@LNG(+S])M9M3S[J7OL:\ID-&3$F:]`ER_6+_M=4<@-3<->
M=/;IL3;'A6T@;HO#K#T.V5PU$&<9/F!OX[P9XN2,=YNN^MH0#<7V!KPA#FY>
M@CCH7^I!AT8'=X)\LAZR/Q:U($6JT[D]J;Q4+'&<)TA7TC866!=H3/Y224VC
M%:AHA'B1K=^+%`E5SWVO]MAOUA[7W9K?KML:)TG#P#<'CF:/Y%;/WQ;3^5<S
MWRQ]X`)K0OOB444-8`[&+/-<D[<1(DXT?!PCM5$'Z44ZP+;<IA/.Y!\FZ%<#
M<_#@%2#1XC_&2X!P$_8AP:Y>SH:26DW*A>T2UVRX3GD;U$ZSD364VT`PHH8#
9T0\$;B"S&0GHAK!F46/A]RL)NUV/6A@``.T2
`
end

beginね

>>178
友人からモニターをレンタルして繋げてみたら、なんとか
復活しました。しかしiMacともおさらばする時期か‥‥。
curlでの複数のファイル同時DLスクリプト、書いてみようと思ったんですが、
どうやってループを回すかで悩んで止めてました。も一回ちょっくら小一時間ほど
考えてみます。

>>181-183
おお、便利そうだ！と思ったんですが、デコードできない‥‥。
stuff itでもエラー出てしまいます。tar 玉をuuencodeしてるのかな。
んでせっかくなんであげとっきましょう。

で、久々なんで使い捨てスクリプト。HOMEを移動するスクリプトです。
一回使うと2度はそんなに使わないと思うけど、HOMEが/Users以外でも
大丈夫です。OSの再インストール時にでもお使い下さい。

#!/bin/sh
#ほとんどエラー処理〜
CMDNAME=`basename $0` UNAME=$1
USAGE=" Usage : $CMDNAME username target_dir"
OLDDIR="`nigrep home . /users/$UNAME|awk '{print $4}'`"
TARGET="$2" NEWDIR=
if [ $# -ne 2 ] ; then
echo "$USAGE" 1>&2
exit 1
fi
if [ -f $TARGET ]; then
echo "$TARGET is alredy exist" 1>&2
exit 1
fi
if ! niutil -list . /users|awk '{print $2}'|grep $UNAME >/dev/null ;then
echo " $UNAME is bad UserName!" 1>&2
echo "$USAGE" 1>&2
exit 1
fi
if echo "$TARGET"|grep '^/' >/dev/null; then
NEWDIR=`echo "$TARGET"|sed 's/\/$//'`/$UNAME
else
cd "$TARGET"
NEWDIR="`pwd`"/$UNAME
fi
echo "";echo "Moving Home to $NEWDIR..."
sudo sh -c "ditto -rsrcFork \"$OLDDIR\" \"$NEWDIR\";
niutil -createprop . /users/$UNAME home \"$NEWDIR\"
mv \"$OLDDIR\" \"$OLDDIR\"~;
ln -s \"$NEWDIR\" /Users"
echo " ...Done"
exit

>>185の使い方
% comannd username target_dir
これでHOMEの内容をコピー、NetInfo のhomeを変更、
以前のHOME→HOME~とrename、/Users以下にsymlinkを作成、
を行います。

んでこれのApple Scriptバージョンを練習をかねて作ろうとしたんですが、
しょっぱなでつまづいてしまいました。どうせならUserlistをNetInfo dbから
所得して、それをlist表示させたら面白いかと思い、↓な感じで行いました
set uList to system ("nigrep uid . /users | sed -n '/ 5[0-9]*$/s/\/user' | awk '{print $2 }' | tr \\n ,")

ええ、ええ、構文チェックでエラーが出ました‥‥。
大人しくHOMEはchoose from folderで指定した方が良いのかな。
このあたり、何かご助言がありましたらよろしくお願いします。
それではイッテキマす。

>>181
＞初心者200号さん

iDiskにでもアップロードした方が早かったんじゃない？

>>186
system attribute コマンドじゃだめなの？

system attribute "HOME"

で、HOME のパスがとれますが‥
なんか、的外れっぽいのでサゲ

ごめんなさい
>>182はなんかいくつか文字が勝手に抜け落ちたりしてました。
仕様？
ってことで
ttp://freehome.kakiko.com/shoshinsha/
にアップしときました。

#!/bin/sh
# skel -- make skelton file

echo "plz set script name"
read NAME
if [ -z $NAME ];then
echo "you must type \"file name\""
fi

if [ -a $NAME ];then
mv $NAME $NAME.bak
fi

cat << EOF > $NAME
#!/bin/sh
# $NAME --

EOF

chmod a+x $NAME

if [ -z $NAME ];then
echo "you must type \"file name\""
fi
↓
if [ -z $NAME ];then
echo "you must type \"file name\""
exit
fi

#!/bin/sh
# skel -- make skelton file

PERL=`which perl`

echo "make skelton file for \"sh\" or \"perl\""

echo "plz set type"
echo "[P] or [S]"
echo "[P] mean perl, [S] mean sh"
read TYP
if [ -z $TYP ];then
echo "plz set script type"
exit 0;
fi

echo "plz set script name"
read NAME
if [ -z $NAME ];then
echo "plz set script name"
exit 0;
fi
elif [ -a $NAME ];then
mv $NAME $NAME.bak
fi

case $TYP in
p | P )
cat << EOF > $NAME
#!$PERL -w
# $NAME --

EOF ;;
s | S )
cat << EOF > $NAME
#!/bin/sh
# $NAME --

EOF ;;
* )
exit 0;;
esac
chmod a+x $NAME
exit 0

*)
echo "you must choice [P] or [S]
exit 0;;

>>189
力作！！素晴らしい。しかしrmをエミュレートするのは結構難題だね。
んで失礼ながら、少し思ったことをば。

同じファイル名の場合を考えるなら
id=`date +'%Y%m%d%H%M%S'`
mv $FILE $id$FILE
とでもしとけば、よっぽどのことが無い限りuniqな名前を付けられる。

scriptを再帰的に呼び出すんなら
me="`pwd`/`basename $0`"
てな感じでscriptのフルパスを変数に入れとけば
使う人の環境に左右されにくくなるyo。

それとスペース付きのファイルやディレクトリも考えるなら、
ARGV="$@"としてこれ以降ファイルの可能性がある場合すべてにおいて
クｫートしといた方がいいかもね。

>>195
細かいけど、実行のスクリプト自身のパスを取得するなら、
me="`dirname $0`/`basename $0`"
じゃないかな。

と思ったけど、
me="$0"
これだけでもいけるかな？

>>196-197
あら、やだ。pwd使うと、返すのはカレントのパスだわね。
訂正ありがとう。フルパスをとる必要も無いか。
何故フルパスとらなきゃと思ったんだろう＞私
で、レスついでにOS Xのメンテナンス用のApple Scriptを。
/etc/daily,weekly,monthly及びprebindingをするだけですが（要 system osax）

property passwdStr : ""
set LF to ASCII character 10
set Cmd_Str to "sudo sh "
if (passwdStr = "") then
set passwdStr to askPassword
if (passwdStr = "") then return
end if

set mList to {"Daily メンテナンス", "Weekly メンテナンス", "Monthly メンテナンス", "システムの最適化"}
set mMethod to choose from list mList
set mMethod to mMethod as text
if mMethod is "Daily メンテナンス" then
set parm to "/etc/daily"
else if mMethod is "Weekly メンテナンス" then
set parm to "/etc/weekly"
else if mMethod is "Monthly メンテナンス" then
set parm to "/etc/monthly"
else if mMethod is "システムの最適化" then
set Cmd_Str to "sudo /usr/bin/update_prebinding -root "
set optList to {"/（システム全部）", "/Applications（Appli Folderのみ）", "好きな場所"}
set optPath to choose from list optList
set optPath to optPath as text
if optPath is "/（システム全部）" then
set parm to "/"
else if optPath is "/Applications（Appli Folderのみ）" then
set parm to "/Applications"
else if optPath is "好きな場所" then
set parm to posixPath (choose folder with prompt "お選び下さい") with quotes
end if
else
return
end if

set Cmd_Str to Cmd_Str & parm & " <<++" & LF & passwdStr & LF & "++"
system (Cmd_Str)

>>198はsudo に-Sオプション付けるの忘れてます。
訂正は下の通り。

スクリプトの3行目
set Cmd_Str to "sudo sh "
↓
set Cmd_Str to "sudo -S sh "

スクリプトの19行目
set Cmd_Str to "sudo /usr/bin/update_prebinding -root "
↓
set Cmd_Str to "sudo -S /usr/bin/update_prebinding -root "

200get!記念スクリプト。Perlです。何でPerlなのかは謎。

#!/usr/bin/perl

$count = 1;
&AS;
&search1 ($targetdir);

sub AS{
$para = `/usr/bin/osascript -e '
tell application "Finder"
activate
set Target_Dir to choose folder with prompt "検索対象のフォルダを選択してください"
set Target_Dir to POSIX path of Target_Dir
set Save_Dir to choose folder with prompt "保存するフォルダを選択してください"
set Save_Dir to POSIX path of Save_Dir
display dialog "対象にする拡張子と移動方法を選択してください。" default answer "jpg|jpeg" buttons {"Copy", "Move", "キャンセル"}
set {ASuffix, AMethod} to {(text returned of result), (button returned of result)}
display dialog "ファイルの先頭文字列を入力してください。" default answer ""
set APrefix to text returned of result
return {Target_Dir, Save_Dir, ASuffix, APrefix,AMethod}
end tell
'`;
$para =~ s/\s//g;
chomp $para;
($targetdir,$savedir,$suffix,$prefix,$Method) = split /\,/,$para;
}

sub search1 {
local($dir) = $_[0];
local(@filelist, $file, $filename, $filetype);
opendir(DIR, $dir);
@filelist = readdir(DIR);
closedir(DIR);
foreach $file (@filelist) {
if ($file eq ".") { next; }
if ($file eq "..") { next; }
if ($file eq ".DS_Store") { next; }
$filename = $dir."/".$file;
if (-d $filename) {&search1($filename);}
$_ = $file;
if (/\.[$suffix]/i) {
if ($Method eq "Move"){&rename($filename);}
if ($Method eq "Copy"){©($filename);}
}
else {next;}
}
}

sub rename {
$num = $count;
$num = sprintf("d",$num);
$newname = $prefix.$num."\.jpg";
rename $filename,$savedir."/".$newname;
$count++;
}

sub copy {
$num = $count;
$num = sprintf("d",$num);
$newname = $prefix.$num."\.jpg";
`cp $filename $savedir/$newname`;
$count++;
}

んで、説明。Wgetなんかで階層を作ってダウソした時にファイルの
移動が面倒くさいので作りました。階層構造をたどって、指定された
拡張子のファイルを探して、一つのフォルダに連番で移動 or コピー
します。

使い方は改行コードをLFで保存して、スクリプトメニューに入れて
実行。ちょっとタイムラグがあります。ファイルを探すフォルダ、
移動先のフォルダ、対象ファイルの拡張子、移動後のファイルの名前
の最初の部分、方法（移動かコピーか）を入れて実行します。

対象とするフォルダと保存するフォルダを一緒にして、移動すれば、
連番リネームできます。ero0001.jpg,ero0002.jpg,........って。

それと、移動は少し危険ですので、なるべくコピーを使うとｲｲかも。

がはっ！200get記念スクリプトなのに致命的なエラーがありました。
コレじゃjpeg専用です。すぐ訂正します。ｽﾝﾏｾﾝ。

訂正して
http://homepage.mac.com/ero_s/FileSharing1.html
に置いておきました。rename.pl.sitって奴です。鬱だ・・。

あと、ダウンロードスクリプトの発展版を書いているんですが、
へたれさんの連番ダウソスクリプトもwgetのやつも、まとめて
一つのメニューから出来る様にしたいんで、へたれさんの
スクリプト同封しちゃって良いでしょうか？＞へたれさん

>>189
すべてのメッセージ表示を
echo "xxx" 1>&2
と標準エラー出力に送ってるみたいだけど、
通常の標準出力と標準エラー出力はちゃんと区別したほうがいい。

>>189のリンク先、ちょっとだけ書き直しました。

>>206
すいませんマジで初心者なもんで、その辺よくわかってないです。
usageなんかは標準出力で良いのでしょうか？

>>206
いくつか入力を促すメッセージがあるけど、そういったのは標準出力でいいかと。
基本的に名前通りで、
標準エラー：エラーメッセージの表示（間違ったオプションやコマンドがエラーを返した場合）
標準出力：通常のメッセージ

あとやっぱり位置パラメーターを展開するなら、#*より"＄＠”を使った方がいい。
$*だと引数に変な文字やスペースがはいってると、どえらい結果に
なるやもしれません。参考リンク
http://www04.u-page.so-net.ne.jp/zd5/hiro345/UnixBourneShell/UNIXshellProgramming-3.html#ss3.5

>>204
全然いいっす。ただまた書き直してまして、多少オプション変わったり、
新しいオプションが付くかもしれません。やろうと思っていることは↓な感じです
・複数ファイルの同時DLが出来れば嬉しい
・iria 形式の入力もサポートしたいかな〜、ttp://でもいければなお幸せ。
・urlを書いたファイルから読み込もうかな
・DL directoryも指定出来れば、なお嬉しい
・DLに失敗したfileをいってくれると、後でがっかりしなくて良くない？ねぇ？
・予定は未定
あんま時間とれなくて半分程度しか書けてないですけど・・

>>200-201のスクリプト、おもしろいですね。
osascript使って、dialog出して色々選択させるのは今まで思い浮かばなかったです。
引数が無ければosascript 出すって感じにすれば、command line、スクリプトメニュー、
どちらからも利用出来るようになるかな。
しかしこの文、少しﾜﾗﾀ。名に恥じてない。
> コレじゃjpeg専用です。

>>208
どうもです。コマンドラインの引数の有無で、ダイアログの選択させるってのは
考えていたんですが、引数の処理が面倒くさくって止めました。長くなっちゃう
んだよね。アレ書くと。

で、もう新しいスクリプトでは、Perlを使って、URLリストからttpでもh
でも、連番でも、まとめて逝ける機能を考えてます。コレが出来れば半角も
ばっちりですわ（ｗ。

>>207
遅ればせながら、ありがとうございます。
スペースの件は何とかやってみました。複数ファイルを指定したときも移動出来ると思います。
ttp://freehome.kakiko.com/shoshinsha/

標準エラーの件なんですが、rmのソースを見てみたんですが、
remove?もoverride?もfprintfでstderrに出されてるみたいなんですが、
shとcは違ったりするんでしょうか？
とりあえずそこは手を付けずほったらかしです。

うに板よりレベル高いってのにﾜﾗﾀ

ここの「変数に対するパターンマッチ」って何かに使えない？
http://www.atmarkit.co.jp/flinux/rensai/theory08/theory08a.html

ダウンロードスクリプト発展させました。下のAS_Downloaderって奴です。
http://homepage.mac.com/ero_s/FileSharing1.html

Internet Explorer ,NetScape ,Mozilla ,iCab ,Omniバージョンをそれぞれ、
作ってみました。へたれさんの連番展開スクリプトも呼び出せます。
あと、PerlでURL抜き出しスクリプトを書いたんで、URLをテキストとして
書いてあるページや、半角とかも逝けます。(w

>>202
perl中でoascriptを使うというのはMacならではの技ですね。
階層的にディレクトリを検索する部分はfindを使うと楽ですよ。
@files = `find $dir -name "*.jpg" -or -name "*.jpeg"

>>214
実は最初find使っていたんですが、findはメモリ効率が悪いかなと思って、
使いませんでした。

open (IN, "filename");
@data = <IN>;
close (IN);
ってよく効率が悪いって言われてますよね。イマイチよく分かってないん
ですが。(w

それと、こんなソフト発見しました。
http://ranchero.com/software/bigcat/

コンテクストメニューでｱﾎﾟｰｽｸﾘﾌﾟﾄ。中々良い感じです。
対象がFinderのファイルと、テキストだけっつーのが、アレですが。
今後に期待ですね。

>>213
えろすさんご苦労様です。AS_Downloaderいただきました。
ところが、関連スクリプトのインストーラーを実行すると「Can`t get ﾇclass psxpﾈ of alias]という
エラーが出ます。インストーラーのスクリプトを見ると三行目が「set Cur_Path to ﾇclass psxpﾈ of Cur_Path」
と文字化けしています。AS_Downloaderのスクリプトを見ると同様に「ﾇclass psxpﾈ」という文字化けが見えます。
どこか私のやり方がおかしいのでしょうか?

ども。Terminal初心者スレとどっちに書き込もうか迷ったんですが、話の流れ上こっちに行きます。
標準出力と標準エラーの区別ですが、K&Rの199ページを見たんですが、標準エラーに出されるメッセージは、
パイプラインや出力ファイルに消えずに、ユーザー端末に出力される。って感じに書いてあるんですが、
パイプラインなどに消えては困る物は標準エラーに出せば良いって事で良いのでしょうか？
エラーだからとか、そうじゃ無いとかにかかわらず？
ってことで、>>210のリンス先にFreeBSDなんかにはある-vのオプションを付け加えてみました。
オリジナルの通りにこれは標準出力に出してます。

>>217
えろす氏じゃないけどオセッカイ

ﾇclass psxpﾈ は POSIX path コマンドの生データです
何らかの理由で Standard Additions が読み込まれてない
もしくは、バージョンが古くてそのコマンドが用意されてないんじゃないかと
POSIX path は何時のバージョンからだっけ？
私のところ( Ver.1.81 )では問題なく動作しております
対策としては、再起動、バージョンアップ
最悪、再インストール

>>219
レスありがとうございます。

> POSIX path は何時のバージョンからだっけ？
> 私のところ( Ver.1.81 )では問題なく動作しております
POSIX pathはOSX10.12、AppleScript1.8からでした。
私のはOSX10.10、AppleScript1.7ですから作動しませんね。
田舎で未だにフレッツISDNさえ開通していない私の環境では、ダウンロードもできません。
10.2が出て、バージョンアップするまで待ってます。

>>219
サポどうもです。

>>220
んじゃ、必要なファイルだけ上げておきましたので、上手くいくか分かりませんが
これでやってみてください。あんまり良くない行為だと思うので、2日もしたらデリます。
説明も書いておいたけど、本物と交換してください。
上手くいかなかったらｽﾝﾏｿ｡

http://homepage.mac.com/ero_s/stdosax.sit

>>221
えろすさんありがとうございます。
いただきましたので、早速試してみます。

連番展開スクリプトバージョンアップしました。複数ファイルを同時にDLします。
徹夜してなにやってるんだろって感じですが、ファイルがあっちゅうまに
落ちてきたので満足してます。一眠りしたらUsageと簡単なReadme書いてアップします。

>>218
遅レスですが、私は出力結果で処理を分けたい場合に、標準出力と標準エラーに分けて出力してます。
標準エラーもパイプで渡せますし、ファイルにも出力できます。
makeの際にエラーだけlog取っとく、ってのはよくやりますです。
ただパイプの役割から考えて、自分が意図していない出力を別のコマンドに渡しても
意味がないですけどね。で自分が意図していない出力ってのは、大体エラーメッセージになりますし。

標準出力、標準エラー共に何処にもリダイレクトしなければ、端末に表示されるように
なっているってだけです。
私は意図していない結果は及びUsageはエラーへ、それ以外は標準出力へ。
ユーザーに注意を促すプロンプトなんかもエラーへ出力する場合が多いかな。
（ファイル消しちゃっていい？とかです）

私なんかの意見よりも、Unix板で聞いてみるとより明解な答えが得られるかも。

連番展開スクリプト、アップしてみました。
http://homepage.mac.com/hetare_go5go/FileSharing1.html

出来ることはこんなことです。
・連番ファイルの展開
iria用に書かれた連番URL（http://~~file[01-40].jpg）を展開可能。また連番ファイルの最後のURLを入力すると1番から（任意の番号を指定可能）ダウンロード。
・複数ファイルを同時ダウンロード
初期設定は10ファイルを同時に落としてきます。
・アーカイブのダウンロード
拡張子がlzh,zip,sit,hqx,bin,gz,etc..のファイルも落とせます。
・クリップボードとファイルからの読み込み
URLをコピー、スクリプトを実行でファイルを落とせます。またURLのリスト（書式は上記の形式）を書いたファイルを指定すれば、ファイルから読みこんでダウンロードを行います。

簡単なReadMe付けときまたので参考にしてください。
えろすさんのAS_Downloadからもそのまま実行できます。
（指定できないオプションはありますが、さして必要でもなかったりします）

連番作成ならココが役に立つ話多いよ。
UNIX板「連番のH画像を一気にダウンロードする」
http://pc.2ch.net/test/read.cgi/unix/979106537/

>>224
へたれさん、待ってました。さっそく使わせていただきました。
しかしうまく逝きません、ていうか逝かせ方を教えてください。
某エロサイトのおきまりパターンですが、
http://www.hoge.com/aaaa/hoge-000.jpg 〜 http://www.hoge.com/aaaa/hoge-010.jpg
http://www.hoge.com/bbbb/hoge-011.jpg 〜 http://www.hoge.com/bbbb/hoge-022.jpg
http://www.hoge.com/bbbb/hoge.rez

↑がうまく落ちてきません。
% segimg -n 000 http://www.hoge.com/aaaa/hoge-010.jpg -n 011 http://www.hoge.com/bbbb/hoge-022.jpg
とやったのですが、最初の11個しか落ちてきません。
rezファイルは後からでもいいのです。
何かやり方間違ってますか？

それ以外はすばらしく落ちてきます。最高です。
これぞ私の求めていたものです。

>>223
ありがたいご返答、感謝します。
勉強になりました。Unix板はちと怖くて・・・

>>226
やり方はそれで、ばっちりあってますよ。
某サイトで試してみたのですが、問題なく落ちてきました。
落ちてこないのは、そのサイトだけですか？
何処のサイトか教えてくれると嬉しかったりする (w

rez分割ってことは、もしかして拡張子が連番の数字だったりします？
そういったのは考慮してないので、エラー出ます。
そうでなければ、refererを設定してみて下さい。
後、-n 0 の要に、数字だけでいいですよ。数字の桁数はURLから読んでますので。

>>227
いえ、いえ。実は私もあんまりその辺りは深く考えていませんして・・。
UNIX板は普通に質問すれば、素っ気ないですが的確な答えが
すぐに返ってきますよ。

それと拡張子が大文字だと多分落とせないのでパッチ。

46c46
< cat 1>&2 <<EOF
---
> cat <<EOF
95c95
< ext=`echo "$url" | awk -F"." '{print $NF}'`
---
> ext=`echo "$url" | awk -F"." '{print $NF}' | tr '[A-Z]' '[a-z]'`
102,103c102,103
< case `echo $ext|tr '[A-Z]' '[a-z]'` in
< zip|lzh|gz|bz2|tgz|tbz|tar|sit|bin|hqx|rez)
---
> case "$ext" in
> zip|lzh|gz|bz2|tgz|tbz|tar|sit|bin|hqx)

>>228
すみません、自分のミスでした。
落ち着いてやってみると、すんなり落ちてきました。しかも爆速で。

サイトは人気老舗サイトです。
ttp://eromanko.com/ero/index3.htm
ttp://eromanko.com/modou/modou2.htm

rezの結合ってterminalからできますか？

御礼&保守上げ

>>230
遅くなったけど、素晴らしいサイトぬりがとう。
知らなかったよ〜、そのサイト。早速落としてます (w

>>231
偽装してない分割 ( rezなど )なら、大体いけます。
~/Deskop/sampleにfile01〜20.jpgがあるなら
% ls ~/Desktop/sample/file* | xargs cat >~/Desktop/sample/movie.mpg

こんな感じ。結合後のファイル名を元のファイル名と同じにしたいなら
別のディレクトリへリダイレクトしてくらはい。

>>232
ありがとうございます。

ウチの環境ではmovieは出来ましたが中身は失敗でした。
ファイルが破損してるか何かでしょうね。

出来るのが分かっただけでありがたいのでOKです

osascriptなんて便利な物があったんですね。とりあえず、
ttp://freehome.kakiko.com/shoshinsha
の先のゴミ箱に移動するスクリプトにosascriptを使用してみました。
信頼性は高いかもしれませんが、遅いです。遅いです。

OS X だとリアルプレイヤー書類が白紙アイコンになりません？
まっ、うちだけかもしれませんが‥
アイコン復活のスクリプトつくったので同じ障害の人は使ってみて
ScriptMenu 専用です、Finder から選択後、実行
リアルプレイヤー書類（拡張子 "rm","ram"）以外は無視するので
他のファイルと一緒に複数選択でも OK です
処理自体はファイルタイプとクリエータタイプを設定するだけのものです

tell application "Finder"
set file_list to selection
repeat with the_file in file_list
set the_ext to name extension of the_file
if the_ext is in {"rm", "ram"} then
set {creator type of the_file, file type of the_file} to {"PNst", "PNRA"}
end if
end repeat
end tell

定期アゲ

>>232
xargsは不要だし、使わない方がいいよ。
ファイルが多すぎる場合xargsが2回に分けてしまう。
% cat file* > movie.mpg
でいい。

すいません、しばらく海外に行ってて、対応遅れました。
seqimgｳﾌﾟｸﾞﾚｰﾄﾞに伴い、AS_Downloderちょっとだけ直しました。
同時ダウンロード数を指定できるようにしただけです。
http://homepage.mac.com/ero_s/FileSharing1.html

新しいseqimg、ｲｲですねー!　なんか、かっちょえぇです。(ｗ
俺も、もう少しまともなものを作らんとと思いました。

おまえら、俺のGWの成果をみやがれっ！！
ってことで、AppleScript StudioでAS Downloaderを作ってみました。
初めてなんでソースぐちゃぐちゃだけど。

暇な人はぜひお試しアレ。
http://homepage.mac.com/ero_s/FileSharing1.html

>>239
じゃああと4日分のGWを更に使ってverUP期待してます（Ｗ

会員制なんかのHPから画像をまとめてダウンロードしたいんですが、
curl使ってうまく落とす方法ありませんか？
curlの-uオプションで '-u 'userid:pass'と指定してみたんですが、
file not foundとなってしまいうまくいきません。
このままでは会費が、会費が、、、
お助けください

>>241
とりあえず、file not foundではわからないから、-vオプションを
つけてやってみてください。エラー詳細を表示するオプション。
認証は色んな方法があるから、多分そこでコケてるとは思うんだけど。

>> 242
すいません。いろいろやってるうちに
referの設定を一階層深くしてみたらできちゃいました。
スレ汚してｽﾏｿ

あのー、起動ディスクの切り替えをするスクリプトは、OS Xでは出来ないのでしょうか？

As_downloader使わせてもらったんですが便利ですね。

ちょっと質問なんですがファイル名が10b.jpg
みたいに.jpgの前に英文字が付くとエラーが出ます。
どうやって回避したらいいんでしょうか？

久々です (w

>>244
できますですよ。ちょっと長いですが、どうぞ。 OS X、OS 9のパスはご自分の環境に
合わせて書き換えておいて下さい。あとOS 9のシステムフォルダをSystem Folderにしといた
ほうがいいかもしれません。

set passwdStr to ""
display dialog "パスワードを入力" default answer passwdStr buttons {"Ok", "Cancel"} default button 1
set passwdStr to text returned of result as string
display dialog "起動IOSを選んで下さい" buttons {"OS X sub", "OS 9", "Cancel"}
set startDisk to button returned of result
if startDisk is "OS X sub" then
try
do shell script "/usr/sbin/bless -folder '/Volumes/OSXsub/System/Library/CoreServices' -setOF" password passwdStr with administrator privileges
end try
else if startDisk is "OS 9" then
try
do shell script "/usr/sbin/bless -folder9 '/Volumes/OS9HDD/System Folder' -setOF" password passwdStr with administrator privileges
end try
end if
tell application Finder
activate
display dialog "今すぐ再起動しますか?" buttons {"Yes", "No"}
set restartFlag to button returned of result
if restartFlag is "Yes" then
restart
else
return
end if
end tell

>>245
そりは簡単連番DLの機能を使ってますか？
もしそうなら、script自体がそういった形式のファイルに対応してないです。

んでAS_Downloader（ASS）が私んとこでは使えない（；´Д｀）...
起動 → オムニは入っていないのでキャンセル
→ windowは現れるが、メニューに何も文字がでない・・
こんな状態です。OSXは10.1.4使ってます。

しかしアイコンが可愛い‥‥

>>247
そぉりぃ〜〜〜〜！＞へたれさん。
やっぱOmni起動時に確認するんだ。大丈夫だろうと思って入れちゃいました。

今、修正版を作ってるんですが、310行目あたりにある、else if と tell app "Omni"
んとこをコメントアウトすればいけると思います。
今晩中に訂正版出しますです。

>>246
へたれさん、どうもありがとうございました！　
ひんぱんに9に切り替える必要があったので、助かりました。　

AS Downloaderアプグレードしました。
クリップボードからURL抽出のスクリプトを直しました。

・拡張子指定
・同時ダウンロード(seqimgみたいなやつ)
・再帰回収(HTMLファイルだったらその先のファイルも)
・Omniは使えないようにした。

単体でもそれなりに使えるレベルになったと思うので、お試しアレ。
インストールは古いファイルを書き換えるようにしてください。

http://homepage.mac.com/ero_s/FileSharing1.html

すいません、すんごいつまらないミスをしてました。訂正したので、3時間以内に
ダウンロードした人は差し替えてください。ごめんちゃい（；´Д｀）...

えろすさん、AS_D使わせてもらってます。イイ！こんなの欲しかったッス。

ところでOmni(4.1 beta 4)でAS_Dかけると、
「ブラウザからURLを取得できません」ってエラー出ちゃうんです。俺だけ？
IE,ICabでは問題ないみたいいですが…
Omniマンセーなんで使えるようになると嬉しいデス。

>>252
今のバージョンではOmni使えないようにしてあります。Omniの用語が特別なんで。
使いたい場合はSourceフォルダの中のプロジェクトを開いて、エディタでスクリプト
の320行あたりにあるコメントをはずしてビルドするばよろし。

でも面倒くさいよね。そのうち、何とかします。スクリプトオブジェクトについて
もうちょっと勉強すれば出来るとは思うんだけど。

AS_Downloader0.92、落としてみたのですが、
やっぱりメニューに文字が出ませんでした。ソースからビルドしてもエラーが‥‥
で、>>248で書いてるように、インストールしていない
browser（mozilla, netscape）の部分をコメントアウトすれば、オッケーでした。

で、AS_Dowonloader、いいですね。画面が小さいのもいいし、
Edit で簡単に再設定できるってのも便利です。
ソースついてるので参考にもなります。私もASS勉強してみよ。

>>250
使ってみようと思って過去ログ読んでScriptmenuに登録したんですが
なんか上手くいかないんですけど　＞AS Downloader

.appって事でフォルダになって中身とiconが見えてしまうだけです。
設定間違ってますかね？

AS_Downloader0.93になりました。以前のバージョン使ってくれた人は
「絶対読んで」って奴を読んでください。
http://homepage.mac.com/ero_s/FileSharing1.html

>>252さん、Omni使えるようにしました。

>>255さん
過去ログ読まんで、ReadMe読んで(w
以前はScriptmenuに登録するスクリプトだったんですが、
最近アプリにしたんで、ダブルクリックで起動します。

>>へたれさん
今回はブラウザ入れてなくても、逝けると思うんですが如何でしょうか？

すいません　形式が変わったんですね
添付マニュアル通りにやり直しました
ですが、どうも上手くいきません

まず起動時したパネルのプルダウンメニューには
ショートカットは見えるんですがコマンドが見えません

ブラウザにIEを指定しようとすると
AppleScript Error
変数"Browser_Name"が定義されていません(-2753)　
がでます

気になったのでpreferenceを捨てようとしたのですが
指定場所に見あたりませんでした

OSは10.1.4です

うちでも0.93は起動時の初期化に失敗するようです。
どうもasdown.prefの書き出しができてないようなので
手書きしてみたんですが、読み込んでくれません。

うひゃぁ、すいませんです。

そういや俺も一度、初期化に失敗したんですが、デベロッパツール
で再ビルドしてら動いたって事があったんです。たぶん、一度動く
と後は大丈夫っぽいです。Aplil2002DevTool入れてるんなら再ビルド
してみてください。一応ibook,iMacFP,Yosemiteで動作確認はとれてます。

ひょっとして本物の初期設定かも、asdown.plistも捨ててみてください。

念のため、ファイルシェアリングにasdown.pref入れときましたが、
これは関係ないっぽいです。お手数おかけします。

>>257-258さん
本当に申し分けありませんです。ミス発見しました。
訂正しましたが、なぜか再現性がなかったので、はっきりしない
んですが、恐らく逝けるはずです。0.94をダウンロードしてみてください。

いつも、こんなのでスレ汚してすいません。

新版入れて見ましたが>>257と変わらずでした。

＞asdown.plist
ってドコにあるんでしょ？
preferenceの中には見あたりませんでしたが。

＞devtool
ごめんなさい、さすがに入れてません。

>>261
検証ありがとうございます。なぜなんだぁぁぁぁ！
最後の手段てことで、ハンドラの呼び出しイベントを変えてみました。
これで駄目なら、全面的に書き直します。>>261さん、まだ嫌になって
なかったら、お試しくださいです。

0.95です。asdown.plistってのは昔のバージョンでは作ってたみたい
です。無かったら構いません。~/Library/Preferences/に作ります。

>>261-262
＞まだ嫌になってなかったら、お試しくださいです。
お気になさらず(笑)

今おとして試しました。
今度は問題なくプルダウンも表示されましたし
↑>>257に書いたエラーはどれも出ませんでした。

ただ、
実行にTerminalが開いてダウンロードし始めたのですが
ファイルが130個中の40個目ほどで

CURL: job table full [7]

というエラーがTerminalに出て止まりました。


一応今晩はココ迄の報告とさせて下さい。
（朝早いもんで寝ます。申し訳ない。）

また明日以降よろしくおねがいしますネ
ノンビリ検証してくださいまし

連続投稿失礼

あと、簡単ダウンを利用したんですが
ファイルの落ち先が/User（自分）直下なんですけど

（Documents,Lib,Moviesなんかが有るところです）

これってdocumentの下に収まって欲しい時なんかは
どこで設定するべきなのでしょうか？？

0.95うちでもOKっす。感謝感激。
>>264
簡単ダウンを選んだ後、Editでいじれると思いますよ。

>>263-264
どうもでした。動いて良かったです。curlのエラーは、curlのエラーなんで
特に気にしないでください。Terminalが止まるってー事は無いと思われ。
処理待ちとかかしらん。嫌になったらcontrol+cで。
基本的にAS_Downloaderはコマンド発射ソフトなんで、発車後のエラーは
知ちゃっこったないの方向でお願いします。でも、URL抽出ってなんか変なマッチす
るんだよね。そのうち何とかします。

今日は酔っぱらっちゃったので、ｳﾌﾟｸﾞﾚｰﾄﾞはなしです。つーか、一人でスレ違いの
方向に突っ走ってるような気がしますが、スクリプトの質問とか発表とかｷﾎﾞｰﾝです。
つーか、あれだね、ｱﾎﾟｰjのAppleScriptのページって未だにQuickTime4とか書いて
るんだよね。ムカツク中華、あきれる中華。んでもって、ASS面白いけどバギーです
わ。わけわかんないエラーばっかし。

>>263-265のつもりでした。265さんにも感謝ですです。ﾒﾝｺﾞね。

>>266

いえTermial止まって、次の命令待ち？の
通常状態になっていまいます。

control+cで終わるとかでなく、処理自体が終了しています

>>268
レス遅くてごめんです。 CURL: job table full [7] ってーことは、俺も詳しくは
わからんのだけど、jobがいっぱいだよってことだと思うから、同時ダウンロード
数を減らせば良いと思います。メモリが少ないのかしらん？再現性はありますか？
再現性があるなら、リストを教えてもらえれば、こっちで検証しますけど。

>>269
メモリは700MBほどです。　OSは10.1.4
同時ダウンロードは13程で止まってたと思います。

どこかダウン指定してもらえば、そこを同じようにやってみますが...

>>270
そもそも、「URL抽出ダウンロード」の話だよね。
半角文字列板でもいって、適当なスレを適当な範囲だけコピーして、
実行してみてください。指定拡張子はjpgで、抽出先はClipboardにして。
終わるとdownload completeって表示されます。たぶん。
古いスレだと、画像が無い事が多いので、新しいところで試してください。

やっと大福の設定が終わった‥‥
>>270-271
CURLって大文字で出てるので「連番簡単DL」のことかな
「job table full」と出るのは、おそらくシェルの制限です。←はperlだと問題ないのかな。
back ground jobが40を超えると悲鳴をあげます。
（同時DL数を41以上にしてみると分かると思います）
DL数を13程度にしていても、１つ１つのDLが早く終わって
「待つ」過程が無いとjob tableがクリアされません。
なのでDL数は5〜10の間が無難かと思います。
それとseqimg、ちょこっと修正したの上げときました。良かったらどうぞ
http://homepage.mac.com/hetare_go5go/FileSharing1.html

新しいAS_Down、全然問題ないです。
それどころか、いつの間にかショートカットキーが設定されてる！
いい、かなりいい。任意のコマンドを登録できるのが使いやすさを倍増させてます。
とりあえずlogin項目に入りました。

それとこんなのを見つけました。
sh や perl scriptを簡単にドロップレットにするアプリ
http://www.apple.com/downloads/macosx/unix_apps_utilities/dropscript.html

テストで、適当に作ったのを↑でドロップレットに変えてみたけど、
とりあえずは問題出ませんでした。何気なく（アイコン以外は）いいアプリかも。

>>271
そうですね、URL抽出です。

とりあえず　ttp://　〜　/images[002-044].jpg　の方法で
クリップボード抽出指定にしてます。（そもここが間違ってますか？）

今、半角板でtestしたんですが44枚問題なく落ちてきて
download completeも出ました。

取り敢えず、エラーが再現したらまた書きます。
その時（失敗した時）にURL貼ったらいいんでしょうか？

お騒がせしました。＞えろすさん

ごめんなさい
URL抽出ではなく連番簡単のほうを利用しています。

連続スレ汚しすいません
書いて実験してる内にへたれさんが書き込んで下さってたようで
申し訳ありませんでした。

簡単の方では2個づつ落としに減らせば問題なく落ちてきました。
URL抽出の方でも、違う板いくつか落としてみましたが問題ありませんでした。
（指定はimg[001-066].jpg　など）

perlは分からないんですが、当面このまま落ち数を減らして使ってみます
ありがとうございました

>>272
どーもです。へたれさんに褒めてもらえると作った甲斐がありましたです。
perlでjobの制御ですが、url_maker.plでは子プロセスが作れなかったらdieするように
エラートラップしてます。40個ぐらいで、エラーが出たように記憶してます。

>>274-276
連番の方でしたか。俺の名前の付け方にセンスがないので、混乱させてしまったようで
すいませんです。とりあえず、上手くいって良かったです。連番の方は
seqimg-ReadMeも参照してください。

それとseqimgアプグレードに付き、AS Downloader0.96になりました。
ReadMeの書き換えとすこしデバックしました。Editもコマンド+Eで開けます。

貼りわすれ
http://homepage.mac.com/ero_s/FileSharing1.html

>>277
perlでも同じみたいっすね。shだとどうやって制御するんだろう‥。
それとAS_Downloader、iCabからだとURLを所得出来ませんでした。
IEと同じ方法でURLをとることが出来たので、
else if Current_Browser is "iCab" then
tell application "iCab" to set Cur_URL to first item of (GetWindowInfo -1)

↑をIEの下に加えてビルドで、iCabも上手くいきました。

で質問があるんですが、Apple ScriptでFinderを呼び出してから
restart, shut down,sleepが働きません。
「リソースがありません」って怒られてしまいます。
用語説明だとLegacy suiteと出ているので、サポートされてないのかな？
ただ古いiMacのOSX10.1.4（10.1からupdate）だといけるんですよね‥‥。
どうなんでしょう。
環境は大福iMac 10.1.4 DevTools 4月号でつ。

>>279
バグレポどうもです。iCab,Mozilla,Netscape全滅っぽです。
立ち上がるもんだから、とれるもんだと思っちゃいました。直します。

あと、リソースがないってーのは、本当にリソースが見つからないという
意味だと思います。日本語版finderのリソースが、ヘボイってことです。
英語版Finderにしたら上手く逝きました。iMacでなぜ逝けたかは、わかり
ませんが、とりあえずTell Us攻撃ですな(ｗ

>>280
早速のレス、どうもです。
Finderの言語設定はEnglishにしていたので、
おかしいなと思って、いろいろやってみました。
結果Script Editorの言語設定が英語なら、英語のリソースを読みにいくようです。

% defaults write com.apple.scripteditor "AppleLanguages" '(English)'

なんだか‥‥、仕様なんですかね〜。Tell Us久しぶりにしてきました
ｼﾞｬｶﾞｰでは直ってますように‥‥。

質問なんですが、デフォルトブラウザの変更って
スクリプトかコマンドラインから、簡単に出来ないもんでしょうか？
defaults コマンドで出来るかと思ったんですけど、
どのファイルで設定されてるか、分からなくて‥‥。
com.apple.internetconfig だと思うんですけど、
中のデータの記述がこれまた意味分からないし。

よろしくお願いします。

ど、どなたか御存じの方いませんでしょうか‥

>>282
たしかにcom.apple.internetconfig っぽいんだけど、コレよくわからないですね。
変更して差分取ってみたけど、なぜかDownloadFolderが代わってるし。
んで、色々検索したら/System/Library/PreferencePanes/Internet.prefPane/Contents/Resources/English.lproj/DefaultHelperApps.plist
ココをかえるとブラウザ変更のポップアップに表示するブラウザが代わるみたいです。

http://www.resexcellence.com/index_archive/index_04-01b.shtml
ここで見つけた。古いんでパスは違います。

しかしながら、ポップアップの表示をかえるとデフォルトブラウザが代わるのかは
わからんです。そのうえこれをスクリプトなりで変更する方法が思いつかない。
ファイル交換だけじゃ上手く逝かないような気がするし・・。役立たずでｽﾏｿ。

ちょっとスレ違いな気もするんでsageで。

以前AppleScriptを開発しやすくするキットが
Appleから発売されると聞いたんですが利用されてる方おられます？
（まだ、発売されてなかったらすいません）

実際はどんな感じなのでしょうか？
シロートでも利用できる範囲でScript作成を楽にしてくれるものなのですか？
それとも開発者向けにScriptEditorを高度にしたものですか？

個人的にはScriptEditorだけだと難しいなあと感じてるレベルなので。

>>285
http://www.apple.com/applescript/macosx/ascript_studio/
金取られる売り物ではないような。デベツールの一部っしょ。
開発者向け。
This collection is accesible by members from the Apple Developer Website as either a free download

>>284
レス、ありがとうございます。そこにリンク先に書かれている
方法では、インターネットパネルに直にブラウザ名が表示されるんですね。
その方法も知らなかったで、便利になりました。
com.apple.internetconfigについて、自分でも調べてみたのですが、
ADCにこういったサイトが用意されてました。carbonのAPIなので
書式が違うみたいですね。これから勉強してきます。
http://developer.apple.com/techpubs/macosx/Carbon/networkcomm/InternetConfig/Internet_Config/index.html

>>285
AppleScript Studioのことですよね。Developer Toolsをインストールする必要があります。
Scriptの作成が楽になると言うより、簡単にGUIを作ることが出来る、
という感じでしょうか。
えろすさんのAS_DownloaderもASStudioで作られてますよ。
ソースも付いているので勉強にもなります。私はまだチュートリアルでお勉強中です。がんばろ。

tell application "QuickTime Player"
--なんか処理する
end tell

とやったとき、クラシックのQT Playerが立ち上がってしまうんですが、
OS Xのものを使いたい場合はどうすればいいのでしょうか？

>>288
試したんですが、OS XのQuick Timeが立ち上がりました。
直るかどうか分かりませんが、update_pribindingをするか
~/Library/Preferencesにある「LSApplications、LSClaimedTypes、LSSchemes」の
3ファイルを削除して再起動してみるってのはどうでしょうか？
後者はOS 9デスクトップの再構築にあたるらしいです。

>>288
アプリケーション形式だったらインスペクタでClassic環境で開くというチェックが
ありますが、これはどちらかというと逆の話ですね。チェックしてませんよね？


あと、AS Downloaderをｳﾌﾟｸﾞﾚｰﾄﾞしました。0.97です。まだバグがいっぱいですが、
ブラウザのところや、その他もろもろデバッグしました。
http://homepage.mac.com/ero_s/FileSharing1.html

ところで、家の環境ではwgetコマンドが、AppleScriptのdo shell commandコマンド
で、フルパスじゃなきゃ動かないようになっちゃたんですが、解決方法ってあるで
しょうか？whichは通るし、curlはdo shell commandコマンド通るんですけど。
どなたかご存知でしたら教えてください。

>>288
--
tell app "QT" to activate
--
と書いて構文確認すると、"QT"はどこにありますか？と聞いてくるので、
Mac OS XのQuickTime Playerを選択してくだされ。
すると自動的に、
--
tell application "QuickTime Player" to activate
--
と変換され、関連付けが完了します。
以降は普通に、app "QuickTime Player"と言えば、
Mac OS X用のQuickTime Playerを指す事になります。

>>290
do shell scriptから呼び出されたshell（おそらく/bin/sh）は
寂しいことに設定されている環境変数を引き継いでくれないっす。
なので設定されているPATHは極めて少ないです。

display dialog (do shell script "echo $PATH") --で確認できます

またargv[0]がなんなのかよく分からんので、/etc/zshenvに
PATHを書いても見てくれませんでした。
力技だけんども、scriptの中で強引にPATHを設定してやればいけました。

set cmd_str to "PATH=$PATH:/sw/bin; export PATH; " -- wgetは/sw/bin/wgetでつ
do shell script cmd_str & "wget http://www.apple.co.jp/macosx/images/jaguarscreen.jpg"

ありがとうございます。
>>291さんの方法で無事にOS XのQTが使えるようになりました。

と思ったら、これが効いているのはOS XのQTが立ち上がっている間だけですね。
終了させてから、起動するとまたクラシックのQTが上がろうとしてきます。。。

正直、>>289さんの「update_pribinding」と「インスペクタでClassic環境で開くというチェック」
が何のことやら解りません。。。この2点について、もうすこし詳しく教えて抱けないでしょうか

>>294
ｽﾏｿ効果なかったね。混乱させちゃった。
289氏の仰る3つの初期設定を捨てると解決すると思います。

update_pribindingはTerminalで打ち込みます。最適化です。
インスペクタで表示とは、アプリケーション保存したスクリプトを情報見るすると
チェックする項目があります。
が、たぶんScriptEditer上からでもClassic用QTが立ち上がってると思うので、
やはり3つの初期設定を捨ててみてくだされ。

すまそ、いらぬことを書きますた。

ｽﾏｿ綴り間違ってるね。
Terminalで打ってreturnし、passを入力。

% sudo update_prebinding -root /

実は漏れも同じ症状に陥っちゃってるんです。
でもこれ効果無かったっす。3つの初期設定を捨てるのも効果なかった。
（ ´Д⊂ヽ ｳﾜｧｧｧﾝ

オーナーの違いか？と思ったが他にも9版とX版でオーナーが違う(9版は自分、X版はシステム)
アプリでもIEやiTunesはちゃんとMac OS X版が反応するのにね、、、
なんかハマった。修正日や作成日でも無いみたい。

>>292
~/.MacOSX/environment.plistは?

もうだめぽ
どうやっても直らないってか、３つのファイルを捨てると一時的には直るんだけど、
ClassicのQTを1回でも起動するとまたなっちゃう。
しょーがないので、ClassicのQT Playerの名前を変えますた。
QuickTime Player4.app(classic)
QuickTime Player5.app(classic)
QuickTime Player(Mac OS X)

とすると、それぞれの名前で逝けますた。
疲れた。

>>297
まさにそれでした！googleで調べたらADCのサイトが
ひっかかってきました。全てのプロセスで参照する環境変数
は~/.MacOSX/environment.plistに書かなきゃいけないんすね。
http://developer.apple.com/qa/qa2001/qa1067.html

>>298
私も以前iCabで同じようなことになったんですが、
ムカついてOSをクリーンインストールしました (w
Classic版のQuick TimeをOS X版のパッケージの中に
放り込んでみてはどうでしょう？
QuickTime Player.app/Contents/MacOSClassic/QuickTime Player
|_ ここにClassicのエイリアス

ただOS 9で起動した時、プラグイン等がどうなるかが不明ですが‥‥。

>>299
environment.plistはリモートログインしたときとかは
参照されないんであまりあてにしないほうがいいと思う。
オレはCarbon Emacsで必要なのしか書いてないなぁ。

>>292 >>297
レスどうもです。ちょっと試してみましたが、上手く逝きましたです。
>>292の方法ならスクリプトに直接書けますね。勉強になりました。
次のバージョンでは使えるようにしてみます。

Classicで立ち上がる問題は皆苦労してるな(ｗ
俺はDropStuffでClassicアプリを圧縮してました・・。
名前を変えるってなかなかスマートですね。

set FileName to (choose file with prompt "ファイルを選択してください:")

このようにやったとき、フルパスでファイル名を取得できますが、
FileNameからファイル名とパスを切り離して、別の変数に記憶するには
どうしたらいいですか。

>>302
いまいち書いてることが理解できてるか自信ないが
フルパスからファイル名を取るには
":" ( コロン ) で分割する方法が良いかと

set FileName to (choose file with prompt "ファイルを選択してください:")
get_file_name(FileName as string)

on get_file_name(this_path)
set old_delim to AppleScript's text item delimiters
set AppleScript's text item delimiters to ":"
set the item_list to every text item of this_path
set AppleScript's text item delimiters to old_delim
return last item of item_list
end get_file_name

すいません。ちょっと質問を間違えてしまいました。ホント、申し訳ないです。

やりたいのは set FileName to (choose file with prompt "ファイルを選択してください:")
でフルパスファイル名を取得して、例えば yeah:wow:hoge.mov というものだったとします。
これを yeah:wow:hoge_new.mov というように拡張子の前に _new を入れるには
どうしたらいいでしょうか。

なんか全然違う質問してしまってすいませんでした。やりたいのは↑です。

追記

取得したファイルの拡張子が yeah:wow:hoge.txt のように違っていても、
yeah:wow:hoge_new.mov のように _new.mov で終わるようにしたいです。

これは難しいでしょうか。。。

>>305
念の為、バックアップをとってる。
問題なければ cp -p の行を削除してちょ。

#!/bin/sh

OLDNAME=
ADDNAME=_new.mov

for i in "$@";do
cp -p "$i" "${i}.bak"
OLDNAME="$( basename $i .${i##*.})"
mv "$i" $(dirname "$i")/"${OLDNAME}"${ADDNAME}
done
exit

リソースフォーク付きファイルを扱うことを考えたら
こっちの方がいいかも

#!/bin/sh

OLDNAME=
ADDNAME=_new.mov

for i in "$@";do
OLDNAME="$( basename $i .${i##*.})"
ditto -rsrc "$i" $(dirname "$i")/"${OLDNAME}"${ADDNAME}
done
exit

教えて頂いて大変申し訳ないんですが、アップルスクリプトで
やりたかったのです。すいません。。。

ちなみにそのスクリプトは何でしょうか？ parlというやつですか？

一行目の最後が
shなのはShell
perlなのはPerl

>>308
解った、QTの別名保存をやりたいから選択したソースファイルが入っている
フォルダと同じところに、実行当時は存在しないファイルの参照が欲しいという訳ですな。
で、ソースが.mp3であったり.movであったりするので、全部.movにしたいと。
ついでにhoge_nwe.monにしたいと。
>>303氏のやつをちょこっと変えるだけで逝けるべ

set FileName to (choose file with prompt "ファイルを選択してください:")
get_file_name(FileName as string)

on get_file_name(this_path)
set old_delim to AppleScript's text item delimiters
set AppleScript's text item delimiters to ":"
set PathList to text items 1 thru -2 of this_path
set First_Name to last text item of this_path
set PathList to (PathList as text) & ":"
set AppleScript's text item delimiters to "."
set NewName to (first text item of First_Name) & "_new.mov"
set AppleScript's text item delimiters to old_delim
set Reference_Save_File to PathList & NewName
return Reference_Save_File
end get_file_name

このままだと、ただの文字列なので参照にする必要があると思う。
QTでの書き方がよーわからんけど、やってみてくれ。

>>310
やりたいことは正にそれです。
しかし、アップルスクリプト自体まだ1週間もやっていないので
正直、理解できません。。。とりあえず、何も考えずにくっつけてみましたが
やっぱりなんかわからないエラーがでます。
いろいろなことの力を借りてようやくここまでたどり着きました。後これだけで完成です。

tell application "QuickTime Player"
launch
activate

repeat
stop every movie
close every movie saving no

open (choose file with prompt "拡大縮小して追加するファイルを選択してください:")
tell movie 1
select all
copy
end tell

set FileName to (choose file with prompt "元になるファイルを選択してください:")
open FileName
tell movie 1
add with scaled
select none
get_file_name(FileName as string)
save in file ((FileName & "_new") as string) as self contained
end tell

display dialog "処理を続けますか？" buttons {"はい", "いいえ"} default button 1
set User_Answer to button returned of result
if User_Answer is "いいえ" then
exit repeat
end if
end repeat
quit saving no
end tell

on get_file_name(this_path)
set old_delim to AppleScript's text item delimiters
set AppleScript's text item delimiters to ":"
set PathList to text items 1 thru -2 of this_path
set First_Name to last text item of this_path
set PathList to (PathList as text) & ":"
set AppleScript's text item delimiters to "."
set NewName to (first text item of First_Name) & "_new.mov"
set AppleScript's text item delimiters to old_delim
set Reference_Save_File to PathList & NewName
return Reference_Save_File
end get_file_name

>>291
色々試して頂いてありがとうございます。
私もやってみましたが、同じ症状になりました。。。

もうぼかぁわからんわぁ。。。。。。

>>311
まっ、いろいろやり方はあるだろうけど
Finder に tell してみたらどうですか
やっぱりいまいちご希望が理解できてない気もするが‥
クイックタイムの部分のエラーは考えてませんよ


--end tell 前の８行を以下の７行と入れ替え

set FileName to (choose file with prompt "元になるファイルを選択してください:")
open FileName
tell movie 1
add with scaled
select none
save in file (my save_ref(FileName)) as self contained
end tell

--サブルーチンは以下の二つ、くっつけといてください

on save_ref(this_file)
tell application "Finder"
set container_path to (container of this_file) as text
set old_name to name of this_file
set new_name to my make_new_name(old_name, "_new.mov")
return (container_path & new_name)
end tell
end save_ref

on make_new_name(file_name, add_char)
set old_delim to AppleScript's text item delimiters
set AppleScript's text item delimiters to "."
set item_list to text items 1 thru -2 of file_name
set file_name to (item_list as string) & add_char
set AppleScript's text item delimiters to old_delim
return file_name
end make_new_name

おー、すごい!! できましたよ。正にコレですよ。
やさしいひとがいるもんですね。ありがとうございます。

某スレの人もきっと感謝しています。

質問です。
ttp://www.interclubsex.com/tartar/1kog/10/ytiinb.html
のページから画像を落とそうとして

簡単連番
ttp://www.interclubsex.com/tartar/1kog/10/28.jpg
と
URL抽出をやったんですがどちらも駄目でした
ttp://www.interclubsex.com/tartar/1kog/10/[01-28].jpg

何かやり方が間違ってるでしょうか？

>>316
そのページはrefererが必要っぽいです。refererに付いては、一言では
説明できないんで、検索してください。

だいたいJpeg一階層(wget)でいけないページは、refererが必要だったりします。

なので、ユーザ定義連番をEditしてreferer付きで実行してください。
んで、ダイアログでURLを入れて、実行・・・と思ったら-rの前にスペース
が無いバグを発見。修正しました。0.98です。

http://homepage.mac.com/ero_s/FileSharing1.html

ぜんぜん知らなかったんですが、
AppleScript Studioってかなり本格的なアプリとかもできるそうですね。
使ってる方いますか？

>>318
ADCのオンライン会員になって、さっきダウンロードしました。
200MB以上あった。これから試してみるっす。
専用スレとかあってもいいと思うがなあ。誰か作っとくれ。

↓こんなページがあった。
http://www.oomori.com/ass/

35レスで消えますた。
http://pc.2ch.net/mac/kako/1008/10080/1008055906.html

過去レスくらい読めよとageとく。

>えろすさん

AS-downloaderいただいたんですが
AppleScriptErrorで起動したあとも大きなエラー画面が出てきます。
終了時もcmd11が有りませんとか言ってるようです。
今日10.1.5を入れたんですが結局変わりませんでした。
何かAppleScriptを入れないといけないのでしょうか？

>>322
エラーは多分初期設定の読み込みに失敗しているっぽいので、
~/Library/Prefernces/asdown.prefを捨ててください。plistじゃないよ。
↑ホームフォルダの意味

>>323　えろすさん

無事起動できました！　ありがとうございました。
使わせていただきます。

As_Downloaderでサイトに有る画像を取ってこようと思って
URL抽出してダウンロードを使ったんですが
00-40個のファイルがあったとして、途中何個か抜けてしまう事があります。

対処法が分からなかったんで3個同時落としから
1個のみ落とすようにしてもやはりポツポツ抜けてしまいます。
どのようにしたらよいのでしょうか？

あと、URL抽出を同時に幾つか並行させようとしては
いけないような印象を持ったんですが、やはりそうなのでしょうか？
（ex.サイトAから40個、サイトBから40個というのをほぼ同時に
スタートさせようとすると、激しく中抜けしていまいます。）

すいません　補足です。

以前のバージョンでスクリプトメニューから実行するものに
入れ替えてみたんですが、こちらのURL抽出だと抜け落ちがありません。

現行verで落とした場合にファイル（jpeg）の内容が
破損している事があるのですが、それも無いようです。
何か参考になりますでしょうか

上ゲ

>>325
URL抽出してダウンロードは行の最初に01/40みたいな数字が出ると思いますが、
この数が足りないのでしょうか？
それとも40個ダウンロードしたはずが、ダウンロード済みファイルが、それより
少ないという事ですか？

前者の場合、URLのマッチが適当なせいですかね。(これは修正予定です)
あるいは拡張子指定で、jpg jpegと2つ指定していないとか。
よければURLを書いてくれれば、試してみますけど。

作者自身はURL抽出は半角ぐらいでしか使わないので、数とかは気にしてませんでした
た。00-40なら連番を使ったほうが良いかもです。

>>328

>それとも40個ダウンロードしたはずが、ダウンロード済みファイルが、
>それより少ないという事ですか？

そうです。　不特定でファイルが欠損します。
また落としたファイルが不完全になる場合がありますが、
これも条件や特定ファイルではなくおきます。

>あるいは拡張子指定で、jpg jpegと2つ指定していないとか。

いえ、それは入っております。

>よければURLを書いてくれれば、試してみますけど。

ttp://www9.kinghost.com/hardcore/00002/168/[001-040].jpg
です。　指定先を少し変えても起きますので、お試しください

試してみましたが、うちでは欠損しませんでした。
ってゆーか、指定のURLのようなところは、Jpeg一階層とかを使うべきかと。
あるいは連番ダウンロードで。

URL抽出は
http://vip.bbspink.com/test/read.cgi/ascii/1020673952/l50
のようなURLを直書きしてあるような所で、全部コピーして、URL抽出するんで。
>>329の用なURLの場合、ただcURLに渡してるだけなんで、エラーはcURLによるも
のかと。

それと、並列で試用する場合は全部の同時ダウンロード数が40を超えないようにすれ
ば、動きはします。確かに同時ダウンロード数が多ければ多いほど、欠損は多くなると
思いますが。

>>330
ありがとうございます。　なぜ欠損してるのか未だにわからないんですが。
連番もなぜか欠損してしまいまして。

jpeg一階層は使った事がありませんでした。
（理解できなかったんで）

一階層の方を試してみます。

すいません、やっぱりjpeg一階層の時に
どういうアドレス指定にすればよいのか分からないんですが（恥）

>>332
おいらが答えてもいいものかとも思いますが。。
jpgのみ1階層ってのは http://www.hoge.com/index.html
ってページがあるとしますよね。でこのページでリンクされている
jpeg 画像のみを落としてきます。
2階層にすれば、index.htmlからリンクされているページにある
jpeg画像も落としてきます。

index.html ---------- image.html
|_1.jpg　　　　　　　|_3.jpg、4.jpg

例えば↑のような階層構造のサイトがあったとします。
http://www.hoge.com/index.htmlをブラウザで開いておいて
jpgのみ1階層を実行すると、落ちてくるのは1.jpgのみです。
2階層にすると1.jpg, 3.jpg, 4.jpgが落ちてきます。

んでこれらはwget というtool が実際には実行してます。
wget のオプションが分かれば、サイトによって色々オプションを簡単に
変更できるのも、AS_Downloaderの使いやすい所だな、
と使わせてもらっていて良く思いまつ。

最後にwgetはinstallしてますか？install した覚えがないのなら
こちらからpackage を落としてきれ入れときましょう。
http://www.cosmos.ne.jp/~kaz6120/dwnld/index_fr.html

>>333
ありがとうございます。　御指摘のようにやってみます。

＞wget
以前入れた記憶はあったんですが、再度インストールします。

＞wget
pkg入れたんですが認識してくれないようです。
terminalがwgetが無いと言います(泣)

インストーラで入ったのは
/Library/receipts/wget-1.8.1.pkg
となっています。

あとAS_downloaderの中にあるscriptでwgetが入ると
readmeに書いていただいてるので、それでOKだと思っていたんですが
terminalを見ると
cp: /sw/bin/wget: No such file or directory
ということでwgetのインストールが失敗しているようなんですが
どうしたらよいでしょうか？

>>335
大丈夫、別におかしくなってないよん。
fink つうpackage systemを使ってwget をインストールすると
/sw/bin/wget に入ります。んでAS_Downloader で実行するときに
これではwget を実行出来ないので、/usr/bin にコピーしてるんだと思います。
（詳細は過去ログ参照）
そんで、落としてきたパッケージでwget をinstall すると
/usr/local/bin/wget にinstall されます。なんで同方されてる
インストールスクリプトだとうまくいかんのです。

Edit を押して、コマンドのwget となっている部分を/usr/local/wget
と変更してみて下さい。
前：wget ~~~~~色々書いてる部分
後：/usr/local/bin/wget 〜〜〜色々書かれている部分はそのままで。

それかTerminal を立ち上げて↓のコマンドを実行。
sudo ln -s /usr/local/bin/wget /usr/bin/wget

実行するのはどちらか一方でいいです。
んでJpeg のみ一回層のコマンドの部分に "-l 1"と小文字のLの続いて数字が
書かれていると思います。この数字が階層の指定です。
サイトによって色々試してみて下さい。

>>336の訂正
誤：コマンドのwget となっている部分を/usr/local/wget

正：コマンドのwget となっている部分を/usr/local/bin/wget

>>336
へたれさんサポートいつもどうもです、はいそうですね、シンボリックリンクって
素敵ですね。いつも自分の間抜けさには、あきれますです。
そういう時はどうか遠慮なく突っ込んでください。(ｗ

んで、面白いperlスクリプトを発見しました
http://www.securiteam.com/securitynews/5XP031F0BM.html
スリープしてるOSXマシンを起こしてくれます。省エネ設定のオプション→
ネットワーク管理者の〜をチェックして、リモートマシンから実行すると、
見事に起きてくれました。ethernetのアドレスはネットワーク環境設定で
調べられます。これで、なかなかスクリプトの幅が広がります。

appはloginと同時に起動できるけど…perlスクリプトでもそれを出来ないのかなぁ…。

>>339
あたしゃ、作ったスクリプトをapple script で呼び出して（do shell script を使って）、
んでそのApple Scriptをアプリ形式で保存して、login項目に登録してるよ。

>>338
symlink はかな〜り、素敵です。私のhomeにはjpegのsymlinkが溢れてますし。
てかwget でとってきたファイル、そろそろ整理しとかないとﾔﾊﾞｲ

で全然関係ないけど wwwoffle を導入してみたけど、これ(・∀・)イイ！

>>339
.loginにでも書けばいいんじゃない

>341
どこにあんの？
sudo find / -name .login
で出てこなかったヨ！

>340
applescriptは分かんない………
良ければうｐキボンヌ。

>>342
なかったら自分でホームディレクトリに作るんよ

………なるほど。
しばらく書き方のサイトを漁ってきます………。

ログインでシェル走らないから.loginは呼ばれないと思われ

>>342
スクリプトが~/bin/myPerlだとすると、
Apple Scriptだとこれだけ。

do shell script "~/bin/myPerl"

.loginだとこんな感じかな、（shell がtcshならね）

if (-x ${HOME}/bin/myPerl) then
${HOME}/bin/myPerl
endif

ただ.loginが読み込まれるのって、login時じゃなくて
Terminalの新規windowが開かれるたびに読み込まれてるようなきがする。
.loginファイルは既に置いてないので定かではないけど。

>345
う゛わ…そうなんですか…。

>346
thanks.

AppleScript 1.8.3降臨

display dialogがモードレスになってるYO!びっくりした。
choose fileやchoose folderは始めからモードレスだったっけ？

>>348
do shell scriptで引数に日本語ファイル名を渡せない問題って
解決したんだろうか？　スレ違いだったらスマソ

>>349
渡せなかったよ〜。10.2待ちですな。
とレスしつつageてみる。

AppleScriptのハンドラをJava-Cocoaから呼び出すことはできませぬか？

OSXで単純に新規Finderウインドウを出すだけのスクリプトってどう書けばよいですか？

>>352
新規Finder ウインドウをだすだけなら command + N
が一番速いと思うけど。任意のフォルダを開きたいのなら
OS 9までと同じじゃないかな。

tell application "Finder" to open folder "Documents" of home

>>352
tell application "Finder"
activate
make Finder window
end tell

>>348
>choose fileやchoose folderは始めからモードレスだったっけ？

ちゃうと思う。前はもーだるだたはずだ。

>>349
>do shell scriptで引数に日本語ファイル名を渡せない問題って
>解決したんだろうか？　スレ違いだったらスマソ

TEC.osaxでUTF-8に変換してわたしてみそ。
うまくいく場合といかない場合があるが(笑)
ttp://www.bekkoame.ne.jp/~iimori/sw/TECOSAX.html
こいつを入れて、
TECConvertText "日本語文字列" fromCode "X-MAC-JAPANESE" toCode "UTF-8"
でUTF-8に変換した文字列が返る。
空白とかだぶるくおーととかあるとまた面倒なんだが(泣)、
あとはとりあえずdo shell scriptにわたすだけー。
example:
do shell script ("mkdir ~/" & (TECConvertText "にちゃんねる" fromCode "X-MAC-JAPANESE" toCode "UTF-8"))
do shelll script ("open ~/"&(TECConvertText "にちゃんねる" fromCode "X-MAC-JAPANESE" toCode "UTF-8"))
どだ？"にちゃんねる"フォルダウィンドウ開いたか？

>>354
それでしかComputerのウィンドウって1発じゃ開かないのか、ひょっとして。
逆に、新規ウィンドウで~を開くようにしていてもコンピュータが開く。あれ？

Finder遅いから、do shell scriptで開いた方がいいかも。

あまりのレベルの高さに書き込むのに勇気がいります。。
みなさんかっこ良すぎです。
　超基本的なことなんですが、PreferencePanelsの中の物を
AppleScriptで開くにはどうしたらいいのでしょうか？
OS9とは違ってtell applicationで呼び出せないので、
FinderからOpenしようと思ったんですが、わからず。。
open selectionとかopen itemとかの違いも分かっていないので、
とりあえず全部試した(w んですが、全滅しました。
教えて下さいませ。

で、Script Editerなんですがこれって「記録」できないんですか？
OS9のスクリプト編集プログラムと同じ手順でやっても何も記録されませんです。

流れを壊したらすみません。

>>356
OS X質問スレの人でしょうか？startup disk を変更するってのなら、
以前 >>246にのせたのがあります。ただちょっと長いので、
OS 9が一個しか無く、それで起動出来さえすれば好いならこんなんどうです？
注意点はOS 9のシステムフォルダのパスに日本語が含まれていると駄目なので、
半角英字に変更しておいてください。
------------------------------
property sys9Path : {}
property passwdStr : {}
if (passwdStr is {}) then
display dialog "パスワードを入力" default answer "" buttons {"Ok", "Cancel"} default button 1
set passwdStr to text returned of result as string
if (passwdStr is "") then return
end if
if (sys9Path is {}) then
set sys9Path to POSIX path of (choose folder with prompt "OS9のシステムフォルダを選択")
if (sys9Path is {}) then return
end if
try
set cmdStr to "sudo /usr/sbin/bless -folder9 " & "'" & sys9Path & "'" & " -setOF "
do shell script cmdStr password passwdStr with administrator privileges
end try
display dialog "すぐに再起動しますか？" buttons {"Yes", "Cansel"} default button 1
set rFlag to button returned of result
if rFlag is "Yes" then
tell application "Finder" to restart
else
return
end if

でもう一つ、PreferencePanesの項目を表示するには
tell application "Finder" to open file "System:Library:PreferencePanes:DesktopPictures.prefPane:" of startup disk
って感じです。ただ今の所 Apple Script対応ではないので、
各項目を変更するにはdefaults 等のコマンドを do shell script
で呼び出すのがいいかと思います。

AS_Downloaderの作者様、いつもお世話になっております。

何とかJTerminalでAS_Downloaderを動かしたいのでが…
どうにかならないものでしょうか？

>>359
JTerminalがスクリプタブルではないんで、かなり無理っぽです。
Jagerﾀﾝまで待ちですね。日本語パスの問題ですか？

>>355
すげー。UTF-8にすれば日本語通るんだ。知りませんなんだ。
飯森さんのOSAXはホントｲｲね。田中先生には、早くOSXに移行して
欲しいです。

>360
＞日本語
そです。
うぅっ　ジャガーﾀﾝ待ちですか……(;´Д`)

grepって複数行の検索キーをサポートしてないのね？
例えば、"hoge\nhoge"のような…。

OS Xだとfindの-atimeオプションが効きそうで効かんね。HFS+だからかな…。

>>362-363
元がed 発だからね。行指向なのはしょうがない。
とりあえず目的の物がマッチすれば好い、ってんならこうかな。
もっと好い方法がありそうだけど。
% grep -e 'hoge$' -e '^hoge' file...

sedを使うとマッチするものだけを取り出すのは容易いけど
% cat scp.sed
/hoge$/{
N
/\nhoge/{
p
}
}
% sed -n -f scp.sed file...

うちもHFS+で-atime は -n も +n もどちらも効いてるけど。

>>364
findの-atimeは確かに効きますね…。
たまたまその前にgrepでファイル総ざらい検索をしていたため、
全てaccessed扱いになってるの考慮していなくて、勘違いでした。失礼しますた。
sedはよくわからにゃない、、ちょっと勉強してみます。

保守

保守ついでにage
ついでにみなさんが使っている、便利なスクリプトキボン

先生！Applescriptを勉強し始めて３時間の生徒です！
どうがんばっても新規フォルダを
好きなところにつくれない＆好きな名前で作れないです！
先生！ヒントをください！

>>368
tell application "Finder"
activate
set place to choose folder with prompt "どこに作りますか？"
make folder at place
end tell
これで一応、任意の場所にフォルダを作れるかな。
名前変更はその作ったフォルダを選択して
set name of selection to "新しい名前"
とすればいけるのかな。
今いちわからんので、次の人にまかした！

はじめに名前を入力させてみたり。

set A_Name to text returned of (display dialog "作成するフォルダの名前を入力" default answer "")
set A_Place to choose folder with prompt "どこに作りますか？"
tell application "Finder" to make folder at A_Place with properties {name:A_Name}

property App_Name : "■■■ 禁煙マラソンカウンター ■■■" & return & return & return
property Bigin_Date : ""
property Cigarette_Day : ""
property Cigarette_Price : ""

on run
if Bigin_Date = "" then
my Bigin_No_Smoking()
else
my Current_No_Smoking()
end if
end run

to Bigin_No_Smoking()
display dialog App_Name & "禁煙開始に向けて設定します。" & return & ﾂ
"いくつかの質問に答えてください。" buttons {"キャンセル", "設定する"} default button 2 with icon 1
set Bigin_Date to current date
repeat
set How_Many to text returned of (display dialog App_Name & ﾂ
"【Q1】" & return & "1日にタバコを何本吸っていましたか？" default answer "" buttons {"本"} default button 1 with icon 1)
try
set Cigarette_Day to How_Many as number
if Cigarette_Day ｳ 1 and How_Many does not contain "." then exit repeat
end try
end repeat
repeat
set How_Much to text returned of (display dialog App_Name & ﾂ
"【Q2】" & return & "1箱いくらのタバコを吸っていましたか？" default answer "" buttons {"円"} default button 1 with icon 1)
try
set Cigarette_Price to How_Much as number
if Cigarette_Price ｳ 1 and How_Much does not contain "." then exit repeat
end try
end repeat
set Set_Menu to button returned of (display dialog App_Name & "【禁煙開始日時】" & return & Bigin_Date & return & return & ﾂ
"1日の喫煙数：" & How_Many & "本" & return & "タバコの値段：1箱" & How_Much & "円" & return & return & ﾂ
"上記設定でよろしいですか？" buttons {"やり直し", "禁煙開始"} default button 2 with icon 1)
if Set_Menu = "やり直し" then my Bigin_No_Smoking()
end Bigin_No_Smoking

to Current_No_Smoking()
set K_Seconds to (current date) - Bigin_Date
set ret to my Make_ymdhm(K_Seconds)
set Dialog_1 to "禁煙時間 " & Y of ret & "年 " & mo of ret & "月 " & d of ret & "日 " & h of ret & "時間" & mi of ret & "分"
set Dialog_2 to "吸わなかったタバコ " & K_Seconds div (86400 / Cigarette_Day) & "本"
set Dialog_3 to "浮いたタバコ代 " & (round (K_Seconds div (86400 / Cigarette_Day)) * 12.5) & "円"
set ret2 to my Make_ymdhm(K_Seconds div (86400 / Cigarette_Day) * 330)
set Dialog_4 to "延びた寿命　 " & d of ret2 & "日 " & h of ret2 & "時間" & mi of ret2 & "分"
set Result_1 to button returned of (display dialog App_Name & Dialog_1 & return & Dialog_2 & return & Dialog_3 & return & Dialog_4 ﾂ
buttons {"禁煙失敗", "OK"} default button 2 with icon 1)
if Result_1 = "禁煙失敗" then
set Delete_Data to button returned of (display dialog App_Name & "禁煙に失敗しましたか？" & return & ﾂ
"残念ですが、今までのデータを消去します。" buttons {"消去しない", "消去する"} default button 1 with icon 1)
if Delete_Data = "消去する" then
set Bigin_Date to ""
set Cigarette_Day to ""
set Cigarette_Price to ""
end if
else
set the clipboard to Dialog_1 & return & Dialog_2 & return & Dialog_3 & return & Dialog_4
end if
end Current_No_Smoking

to Make_ymdhm(sec)
set years to 60 * 60 * 24 * 365
set months1 to 60 * 60 * 24 * 30
set ret to {Y:0, mo:0, d:0, h:0, mi:0}
set Y of ret to sec div years
set mo of ret to (sec - (Y of ret) * years) div months1
set d of ret to (sec - (mo of ret) * months1 - (Y of ret) * years) div days
set h of ret to (sec - (mo of ret) * months1 - (Y of ret) * years - (d of ret) * days) div hours
set mi of ret to (sec - (mo of ret) * months1 - (Y of ret) * years - (d of ret) * days - (h of ret) * hours) div minutes
return ret
end Make_ymdhm

>>371-372を説明

なんか晒したくなってきたので最近作った簡易禁煙マラソンカウンターです。
長いので二つに分けましたが、両方ともコピペってください。
http://life.2ch.net/test/read.cgi/cigaret/1026275689/l50
↑このスレでWin版使ってるみんなが結果をコピペするので羨ましくて作りました。
Mac版もあるみたいですが、ハイパーカード？な英語版みたいなので。

使い方は簡単。
禁煙を決意したら起動してください(w
初めて起動すると、1日のたばこの本数と1箱の値段を聞かれるので答えるだけ。
次回からは起動するたびに禁煙の成果を確認でき、結果をクリップボードにコピーできます。
ぜひ、上記スレに貼付けてくだされ。
禁煙に失敗したら「禁煙失敗」ボタンで最初からやりなおしです。

おもろいっ
タバコ吸わないので禁オナニーに使います

>>369-370
先生！ありがとうございます！

先生！
menu scriptから実行すると名前を入力するところで
日本語が使えないんですが、これは仕様でしょうか？

>>376
日本ご対応アプリのレイヤー内に入れとかないとだめみたいよ

tell application "Finder"
activate
set A_Name to text returned of (display dialog "作成するフォルダの名前を入力" default answer "")
set A_Place to choose folder with prompt "どこに作りますか？"
make folder at A_Place with properties {name:A_Name}
end tell

>>376
ありがとうございます！ここの先生方は本当に親切ですね！

先生！ツギハギして、やっと単語を調べるscriptができました！

tell application "Internet Explorer"
Activate
set daimei to "goo [英和・和英辞典検索]"
set tango to text returned of (display dialog daimei & return & return & ﾂ
"調べたい単語は何ですか？" default answer "" buttons {"キャンセル", "OK"} default button 2)
set docchi to button returned of (display dialog daimei & return & return & ﾂ
"単語：" & tango & return & return & "この単語をどちらで検索しますか？" & return & return & "" buttons {"和英", "英和"})
if docchi = "和英" then
OpenURL "http://dictionary.goo.ne.jp/cgi-bin/dict_search.cgi?MT=" & tango & "&sw=1"
end if
if docchi = "英和" then
OpenURL "http://dictionary.goo.ne.jp/cgi-bin/dict_search.cgi?MT=" & tango & "&sw=0"
end if
end tell

できれば一回のダイアログで単語入力、和英・英和の選択ができるといいのですが。
先生！アドバイスをお願いします！

tell application "Internet Explorer"
Activate
set daimei to "goo [英和・和英辞典検索]"
display dialog daimei & return & return & "調べたい単語は何ですか？" default answer "" ﾂ
buttons {"キャンセル", "和英", "英和"} default button 3
set {tango, docchi} to result as list
set adress to "http://dictionary.goo.ne.jp/cgi-bin/dict_search.cgi?MT=" & tango
if docchi = "和英" then
OpenURL adress & "&sw=1"
else
OpenURL adress & "&sw=0"
end if
end tell

これでど

ちょっと恥ずかしいので訂正
adress → address

なるほど！
先生！ありがとうございます！

>>374
わはは、反応ありがと。
禁オナニーすか、成果の項目を適当に変えてみてちょ。
「縮まなかった身長」とか、「死ななかった精子」とか(w

>>376-377
これはｽﾏｿかった。
アプレットにしたときの文字化けとかは知ってたけど、ScriptMenuからでも
日本語入力はダメなのか。知らなかったす、ありがと。
このへん、ｼﾞｬｶﾞでは対応してるといいな。

>>379-380
頂きますた。これは便利すね。

Macをサーバーにして外部からアップルスクリプトを実行する場合、
classic環境では/script.acgiみたいな感じで普通に動いていたんですが、
OSXではどうやったら動くんですか？

classic環境じゃなくて、OS9をサーバーにしていた時ですね。
今はOSXをサーバーしています。

保守。糞スレ対策。

>>384
えらい亀レスだけど、
http://www.alles.or.jp/~factory/mac/script-Runner.html
にそれらしいソフトがあります。使えるかどうか忙しくて検証してないです。
すんまそ。でもCarbonもあるみたいだし、使えそうです。

ちなみにPerlにApplescriptを埋め込んで、CGIとして実行してみたけど、
当たり前に駄目でした。

>>386 悲しいけど同意。ここは名スレの資格十分にあり。

OS Xなんですが、なんとかしてF-keyからAppleScriptを使う方法ないですか？
ちょっとした作業なのでアプリにするのはなしとして・・・

ScriptMenuでいいじゃん

>>390
まったく答えになってない。阿呆か？

>>389
Quickeys

キメラで表示中のURLを取得することはできるかな？
あと、ネスケ6はどうだろう。

>>393
Chimeraはまだダメみたい。
Mozillaはできるから、Netscapeも大丈夫だろう（多分ね）

>>394
ありがとう。Netscape6.2はOKだった。
7PRはタブ表示時に、少し難あり。
（AppleScriptからは、1ウィンドウにつき1ぺージ単位の認識だった）

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

起動ディスクや、起動時にオプションキーは面倒なので、
実行するだけで（あらかじめスクリプト内に記述してある）
システムを選択して再起動してくれるスクリプト書いてください。

10.2だと/usr/bin/rubyが標準で実装されてますね。
いい感じだ。

>>397
過去スレ読んで

間違った

過去スレ→過去レス

AppleScript Studioってどこで買えますか？

>>400
OS Xのパッケージ版を買うとついてくるDeveloper Tools CDに入ってます
またオンラインのADC会員になれば無償でダウンロードできます

スクリプト関係で問題出た方おられますか？　 Jaguarで

>>402
例えば音楽ＣＤ内のオーディオトラックの情報が得られないことがありました。

JagerのAppleScriptで気付いた点いくつか

DiskCopyがスクリプタブルになってる
"BurnCD"とか"BurnDVD"とかいうコマンドがあるな
ようわからんのはイメージファイルの操作ができそうにないこと
OS 9の時の"segment imege"とか"createSMI"とかはない

システム環境設定もスクリプタブルに！
でも、う〜ん、用語説明見る限りでは何もできそうにない…

Digital Hub Scriptingというscripting additionsが入ってる
コマンドは"music CD appeared"、"video DVD appeared"など
オーディオCD、Picture CD、DVD、等を種類別に呼び出したい時に
つかうのかしら？

Standerd AdditionsとSystemEventsの用語が大幅に増えてる
フォルダアクションが復活

SCIMUISever、TCMUIServer、Kerberos、新しくスクリプタブルになったアプリ
ちょっと特殊なアプリのようなので、おもしろそうだけど
もともとどういう働きをするのか分からんので、いま検証中
知ってる人いたらおせーて

display dialogの日本語は相変わらず文字化け
日本語対応アプリのレイヤー内に入れる必要あり
Finder もあまり変わってない、アイコンの操作がまだできない

>Jager ×　Jaguar ○
ｶﾁｬ
;y=ｰ( ´ｰ`)･∵. 　ﾀｰﾝ
＼／|　　 |)

>>405
SCIMUI(Simplified Chinese Input Method User Interface)Serverは簡体字、
TCIMUI(Traditional Chinese Input Method User Interface)Serverは繁體字の
インプットメソッドで、Kerberosはネットワーク認証システム。

>>407
お、どうも
日本語環境では起動してないみたいですね
Kerberosも今のとこ使い方分からん(w

フォルダアクションがかなりいい感じ
フォルダにアイテムが追加された時に呼び出されるハンドラは
OS 9の時はそのフォルダを開いておかないと駄目だったけど
今度のは閉じてても大丈夫、ドックに登録したフォルダに
ドラッグ＆ドロップで追加した場合も実行される
バックアップフォルダに自動的にコピーとかね

保守

任意のアプリを「隠す」スクリプトってできますか？

% osascript -e 'tell application "Finder" to hide it'

はダメでした。

>>410
AppleScriptじゃ駄目なの？
Finderを隠すのは
tell application "Finder" to set visible to false
でできます
任意のアプリとなるとFinderにプロセスを隠してもらうといいです
tell application "Finder"
tell process "internet Explorer" to set visible to false
end tell

>>411
うまくいきました！
マジ助かりました。

>>411
% osascript -e 'tell application "Finder" to set visible of application process "TextEdit" to false'

でどう？aliasに登録するのは面倒くさいのでパス。
でも遅いよ。コンパイル済みApple Scriptから呼び出した方が速い。

ありゃ、遅かったか。

OS XのIEはダウンロードファイルのコメント欄に
元URLを記入しないのでAppleScriptで作りますた
iCabだとfindURLってコマンドがあって一発でURL取れるんですが
IEには無いのでダウンロードマネージャの項目を利用してます
当然ダウンロードマネージャに記録されてないファイルには無効です
Finderで選択後実行してください


property theFilePath : (path to preferences from user domain as string) & "Explorer:Downloads.html"

tell application "Finder"
set downroadsInfo to my GetDownRoadsInfo()
set fileLists to selection
repeat with szFile in fileLists
set fileName to name of szFile
try
set comment of szFile to my find_URL(fileName, downroadsInfo)
end try
end repeat
end tell

--つづき

on GetDownRoadsInfo()
open for access file theFilePath
try
set downroadsInfo to read file theFilePath using delimiter {return}
end try
close access file theFilePath
return downroadsInfo
end GetDownRoadsInfo

on find_URL(fileName, sourceText)
repeat with textItem in sourceText
if fileName is in textItem then
set the copyFlag to 0
set the outText to ""
repeat with szChar in textItem
set szChar to the contents of szChar
if szChar is "\"" then
set the copyFlag to copyFlag + 1
else if the copyFlag is 1 then
set the outText to the outText & szChar as string
else if the copyFlag is 2 then
exit repeat
end if
end repeat
return the outText
end if
end repeat
end find_URL

Jaguarにしたら、cronでosascriptが効かないというバグが直ってたYO
AppleScriptの定期実行が可能になりますた

>402
ASStudioだが、Jaguarリリース直後に出たDeveloper Toolsのパッチを当てると、
NSPanel ClassのAttributeでUtility Windowにチェックを入れると
強制的にHide on deactivateにチェックが入るようになってしまった。
グレー表示でチェックも外せない。
Info.plistの中でNSUIElement=1としてDockに出ないようにしてたアプリがあるんだが、
これのせいで他のアプリを選ぶとWindowが消える(泣)
Developer Toolsは入れなおしましたよ、ええ.......

保守age

--OS 9では以下のスクリプトは動いていましたが、
tell application "Finder"
activate
make new folder at folder "HD 2:temp"
select folder "HD 2:temp:名称未設定フォルダ"
set name of selection to "10000 1" as string --この文でエラー
end tell

となってしまいます。どうしてか解りません。
ご指摘をお願いいたします。

>>421
OS Xの selection の扱いについては後で
とりあえず案件についてはセレクトする必要は無いです

tell application "Finder"
activate
make new folder at folder "HD 2:temp:" with properties {name:"10000 1"}
end tell

これでできるはずです

で、OS Xの selection なんですが
move selection to trash
とか
delete selecton
なんかは問題ないんですがFinderのitemとしての属性を変更しようとするとできない
要するに複数参照が利かないんですね
set comment of selection to "こめんと"
これ、無理
従って、いったん変数に入れて明示的に参照のリストに変えて、ひとつひとつ取り出す
set theFiles to selection
repeat with i in theFiles
set comment of i to "こめんと"
end repeat
というわけ

あ、俺も初心者なんで間違ってたら突っ込んで下さい

　＞422　様、ありがとうございました。
　ご指導の通りにしたら、出来ました。
　OS X　の　selection が OS 9と異なるとは、思ってもおりませんでした。
　早速、書き直します。

say "It tae yoh she!"

>>425
say "O ma ei mo nah!"

say "Jisaku G yen, c tey me ma suu ta"
say "Oo 2 da, shee know!"

歳前面のウインドウをコラム表示にする、ってどうやるの？

>>428
こんな感じ
tell application "Finder"
set current view of window -1 to column view
end tell

(;´Д`)ありがとう

>> 423
Finderのselectionではリスト型で返ってくるので
明示的にエイリアス型に変換すれば良いようです。

set comment of (selection as alias) to "こめんと"

431の訂正
リスト型じゃなくて型不明ですね。

>>431
セレクトしたのが一つだけの場合はそれでいけますね
複数だとできません
やっぱし複数参照が効かなくなったということでしょうか

すみません。「複数」っていうのをすっかり見落としてました。
OS Xではrepeatでいちいち展開するしかないみたいですね。

あの、VAIOみたいに、朝昼夕夜と
壁紙を時間によって換える事って
OSXのスクリプトでできますか？

何時間おきに換えるソフトはありますが......、
起動時、時計をみて、壁紙変更するのってなかなかありません
こんなのがあれば、すごくCOOLなんですがね〜
こういうのは、スクリプトでは無理なんですかね？

>435
desktop pictureの変更方法忘れちゃったけど
>起動時、時計をみて、壁紙変更するのってなかなかありません
ってのだったら

set a to time of (current date)
if a < 60 * 60 * 8 then
display dialog "夜中"
else if 60 * 60 * 8 < a and a < 60 * 60 * 12 then
display dialog "朝"
else if 60 * 60 * 12 < a and a < 60 * 60 * 18 then
display dialog "昼間"
else if 60 * 60 * 18 < a then
display dialog "夜"
end if

こんなふうに書けば良いかと。

>436
ソレ動かしてみました〜
ちゃんと、昼間！とでました。

これに、自分の指定した壁紙に自動で変わるモノを書けば
OKなのでしょうが・・・・・

何分、今日初めてAppleSctipt起動したようなものでして....
お恥ずかしい限りです.....

専門家のみなさま、知恵をどうかよろしくお願いします。

>>437
指定した時刻で壁紙を変更したいのなら
cron使えばいいんじゃないのかな。
例えばAppleScriptで、時刻が午前ならこの壁紙、
午後ならこの壁紙に変更っていうのを書いておいて、cronで
10,15,20 * * * /usr/bin/osascript そのファイル
って感じにしとけばいけるんじゃないかと。
ちなみにdesktop picturesを変更するのは↓ね。

tell application "Finder"
set desktop picture to 目的のfileのパス
end tell

今cronに登録して試してみたけど、うまく変更されますた。
osascriptに引数としてファイルを渡すときは、
テキストかコンパイル済みスクリプト以外は受け付けないので
間違ってもアプリケーション形式にしないように。

なんだか、難しすぎて、？？？な状態です。ヽ(`Д´)ﾉ ｳﾜｧｧﾝ

朝、昼、夕、夜
この4つの時間帯に自分の指定した壁紙に変えれれば良いんですが....
cronと言うのを使用しないと、駄目なんでしょうか？

用語が解らなかったので、1コ1コ検索してました<(_ _)>
レスが遅くなってすいません〜

>>440
デスクトップピクチャの変更を、起動時にだけでいいのならcron使わなくても
>436氏と>438氏のスクリプトを組み合わせたものをアプレットで保存して
ログイン項目に登録しとけばいいです

起動中に時間帯が変わったらリアルタイムで変更させたい場合はcronでしょうね
って俺はcronの使い方分からんので、詳しい人のフォローを待って下さい

ちなみにAppleScriptにもon idleというハンドラがあります
一時間おきに呼び出して時間を調べて…
というようにもできますがcronの方がスマートなやりかたのような気がする

>>441
＞デスクトップピクチャの変更を、起動時にだけでいいのならcron使わなくても
＞>>436氏と>>438氏のスクリプトを組み合わせたもので....

デスクトップピクチャの変更を起動時にだけでいいので
よろしければ、スクリプト書いてくださいませんかm(_ _)m

>>442
--
property theFolder : ""

tell application "Finder"
if not (exists theFolder) then
set theFolder to (choose folder)
end if
set desktop picture to some file of entire contents of folder theFolder
end tell
--

これをログイン項目に入れておけば、ログイン時に指定フォルダの中の絵をランダムにデスクトップピクチャにしてくれる。

cronに登録するにはTerminalを起動して
crontab -e
とタイプ。それから
分 時 日 月 曜日 命令
といった形式の行を書き連ねる。例えば、毎日8時12時18時に"~/scripts/foo.scpt"というスクリプトを起動するなら、
0 8,12,18 * * * /usr/bin/osascript "$HOME/sripts/foo.scpt"
といった感じ。このエディタはviなので慣れないと難しいかも。エディタが起動したら、
i (上の行のコピー・ペースト) <esc> :wq <return>
という順でタイプすれば登録できると思う。
確認するにはもう一回 crontab -e とタイプ。 :q <return> で終了。

どうも有難うございました！
>>436氏が書いてくださったスクリプトの
display dialog を所を
>>438氏の教えてくださった
tell application "Finder"
set desktop picture to 目的のfileのパス
end tell

に変えて、壁紙が変わる時間帯の調整をしたら見事うまくいきました！
すごくCOOLです。
教えていただいたみなさんm(_ _)m感謝しております。

初歩的な質問で申し訳ありませんが、音量のミュートを解除するには、
どうすればよいのでしょうか？
tell application "Finder"
set volume 0
end tell
でミュートされ、直後に同様にvolume 1などとすると解除するのですが、
volume 0の後、一旦電源を落とし再立ち上げ後volume 1としても、ミュート
されたままなのです。なお10.2です。よろしくご指導のほど。

こういうのはわくわくするね〜初心者からみると

>>445
AppleScriptの問題ではないかもしれません
手動で音量ゼロにして試してみては？
beep使って音ならしてみるといいかも

>>447
早速の御指導ありがとうございます。手動で音量０にすると、音量０で
ミュートオンになり、その後AppleScriptのvolume 1では音量１になります
が、ミュートオンのままです。(システム環境設定サウンドで確認)
ミュート解除にはシステム環境設定サウンドを変えるしかないのでしょうか。

追伸：beep使っても変わりませんでした。よろしくお願いします。

>>448
うちでも試してみましたが、ミュートの解除は出来ませんでした
Terminal使えばできるかもしれませんが
少なくともAppleScript標準では無理かと

>>450
そうなんですか。実はAppleScriptは始めたばかりなんですが、
Terminalにも挑戦してみたいと思います。ありがとうございました。

概出かもしれませんが、
Applescriptの質問です。
IEをコントロールし特定のURLを表示することはできました。
これをキャプチャしたいのですが....。
画面に収まらないサイズ（縦）の場合は画面をスクロールする必要があります。
そこでIEに対するスクリプト命令を知りたいのですが、
そもそもそういったことが可能かどうかも含めての質問です。

IEのスクロールバーをコントロールできるか？
スクロールバーの状態を知ることができるか？
表示ページのサイズを知ることができるか？
もっとクールな方法があるか？

初心者質問ですみません。
お知恵をお貸し下さい。

>443
初心者にはcrontabは辛いだろ。
と、いうわけで漏れはCronniXをおすすめする。
分 時 日 月 曜日 命令
がカラム表示になっているので初心者にも分かりやすいかと。

CronniXは日本語版がE-WAさんとこから行ける。

初心者質問を連発します。
Apple Scriptで画面キャプチャーを行うための
コマンドというのはあるのでしょうか？
自分で調べた範囲ではありませんでした。

>>454
do script

>>454
screencapture [-icmwsWx] [file] [cursor]
ですね、10.2からみたいです

set fileName to "スクリーン.pdf"
set desktopPath to POSIX path of (path to desktop from user domain)
do shell script "screencapture " & desktopPath & fileName

これでデスクトップに"スクリーン.pdf"という名前で保存します

>455 456
情報有難う御座いました。早速テストをおこないます。

しかし、10.2となるとＯＳ９上では使用できないということですね。
両方で動かす為には、素直にキャプチャソフトに命令という方法しか
ないのでしょうね。

IEのダウンロードマネージャーにURLを取り込むようなスクリプトって
作れるんでしょうか？
HP上のURLを抜き出して、それだけをまとめたHTTPを作ったりしてるんですが
結局クリックするなりドラッグしないとIEのダウンロードマネージャーには
加えられないんですよね。

>>458
ダウンロードマネージャはExplorerフォルダのDownloads.htmlを
読み込んだもののようです
これをテキストエディタで開いたら一定の書式が読み取れるので
write命令でその書式に従って書き込んだら？

>>459
なるほど。
ということはある程度調べれば
エディタで一気に変換する感じでも取り込めそうかもしれませんね。
ちょっと試してみます。
もし上手くいきそうなら
最終的にこんな事が出来るスクリプトを作る感じでもよさそうですね。
色々このスレで勉強させて頂きます。

tell application "Internet Explorer"
OpenURL theURL to file theFile Flags 4
end tell
(*
theURL:URL文字列
theFile:保存先ファイル名(文字列)
これでダウンロードマネージャを使ってダウンロードできます。
Flags 4がポイント。つーか用語辞書くらい見ようぜ。
*)

>>461
どうもありがとうございます。
実は昨日から関心を持ちはじめたんで
アップルスクリプトに関してはかなりの素人です。
まだBasicなら汚いながらもプログラム出来る程度ですが。
おかげさまでアプリごとに用語説明が見れるのも今知りました。
とりあえずぼちぼち頑張ってみます。

10.2からsayコマンドに、aiffファイルで書き出す機能がついてる
これをつかうと
何か歌を歌わせてそれをサウンドファイルとしてiPodに送り
朝の通勤電車内で聴いて鬱に…（w
という使い方ができると

>>463
それいいっすねー。5月のなかばくらいに10.15を買っちゃったんで、
絶対買うか！とか思ってたんですが、AppleScriptもスピードアップ
してるみたいだし。

このスレの「待つわ」あたりだと、明るく通勤できるかも（w
http://pc.2ch.net/test/read.cgi/mac/1001947637
264からです。

保守。

唐揚げ

あげてない・・・逝ってきます

foreach i (*.aif)
foreach -> mv "$i" `echo "$i"|sed 's/ [^.]*\././'`
foreach -> end
↑にAppleScriptでコマンド入力を自動にしたいのですが、
あちこち見て回りましたが全然分かりません。どなたかお助け下さい。

tell application "Terminal"
do script with command "foreach i (*.rtf)"
end tell

ってやると、Terminalの窓でforeach?と聞かれますが、
その時出す命令の、mv "$i" `echo "$i"|sed 's/ [^.]*\././'`
と次の命令の、endは上のAppleScriptにどこにどうやって入れれば良いのでしょうか？

>>468
Terminal初心者スレの人ですよね？あっちで答えた者です。
細かい事は省きますが、shellにはCシェル系とBシェル系に別れておりまして、
foreachってのはCシェル系の文法な訳です。これは必ず改行しなければならん
わけでして、applescriptから呼び出すとなると改行コードを直接埋め込む必要
がありそうでして、その方法が私はわからないので別な方法を書いときます。

その1：Terminalを呼び出して処理
tell application "Terminal"
do script with command "/bin/sh -c 'for i in *.aif;do mv \"$i\" `echo \"$i\"|sed \"s/ .*aif$/.aif/\"` ; done'"
end tell

その2：Terminalなしで直接実行
do shell script "for i in *.aif;do mv \"$i\" `echo \"$i\"|sed 's/ .*aif$/.aif/'` ; done"

その1では引用符の扱いがややこしくなってますので、sedコマンドはダブルクォートでくくってますが、
動作には支障が無いと思います。それとapplescript内では\の次にapplescriptでの特殊文字が無いと
怒られましたので、sedコマンドも若干変更してます。

＞へたれ555さん
その通り！Teminal初心者スレの初心者です。　…って、バレバレですね。（汗）
何度も助けていただき、ありがとうございます。　先生っ！

Teminalの窓が出るのがイヤーンなので、その2まで教えていただいてすごく感謝です。
無事にコマンド成功いたしました。この前調べた時に、繰り返し命令はforとforeachが
あるのは知ってたのですが、Mac（Terminal?）ではforeachの方しか使えないと
勝手に解釈して調べてませんでした。どっちの系統のも使えるんですね。
また後でforも勉強しないと…

せっかくfoeachを教えてもらったのに使えなくて、こんな汚いソースコードで我慢してたので見た目がすっきり！
凄く格好悪いですが、こんなので動かしてました。（汗）
do shell script "mv /Volumes/HD/DATA/Music/MP3/01*.aif /Volumes/HD/DATA/Music/MP3/01.aif"
do shell script "mv /Volumes/HD/DATA/Music/MP3/02*.aif /Volumes/HD/DATA/Music/MP3/02.aif"
try
do shell script "mv /Volumes/HD/DATA/Music/MP3/03*.aif /Volumes/HD/DATA/Music/MP3/03.aif"
end try
try
do shell script "mv /Volumes/HD/DATA/Music/MP3/04*.aif /Volumes/HD/DATA/Music/MP3/04.aif"
end try
以下、15行くらい続く...

へたれ555さん。seqimgつかわせてもらってます。(^^
自分で少し修正して使ってます。

1) ero[01-12]ero.jpg みたいなファイル名でもきちんと展開されるようにした。
2) [1-12] とした場合、「1,2,3...10,11,12」と展開し、
　[01-12]とした場合、「01,02,03....10,11,12」と展開されるようにした。
3) デフォルトで、親ディレクトリのrefererとuser-agentを送るようにした。

というか、このためだけにシェルスクリプトの勉強しました（ｗ

先生やTerminalスレのみなさんのおかげで、iTunesでエンコードしたAIFFを
LAMEを使ってmp3を作成するスクリプトが自分なりにきれいにまとまりました。
CDDBを使わないのが条件、iTunesライブラリにゴミが残るなどの超自分仕様なので他の人には使いにくいとは思いますが…
(普段は圧縮音楽スレのokunoさんのLet's encode with LAMEを使用)

do shell script "mkdir /Volumes/HD/DATA/Music/MP3/"
do shell script "mv /Volumes/HD/DATA/Music/不明なアーティスト/不明なアルバム/*.aif /Volumes/HD/DATA/Music/MP3/"
do shell script "rm -r /Volumes/HD/DATA/Music/不明なアーティスト/"
do shell script "for i in /Volumes/HD/DATA/Music/MP3/*.aif;do mv \"$i\" `echo \"$i\"|sed 's/ .*aif$/.aif/'` ; done"
with timeout of 1000000 seconds
do shell script "for i in /Volumes/HD/DATA/Music/MP3/* ; do /usr/local/bin/lame --alt-preset standard --interch 0.0005 \"$i\" \"$i\".mp3 ; done"
end timeout
do shell script "rm /Volumes/HD/DATA/Music/MP3/*.aif"
tell application "Finder"
activate
open folder "MP3" of folder "Music" of folder "DATA" of disk "HD"
end tell

よく考えると、必要なのは
do shell script "for i in /Volumes/HD/DATA/Music/MP3/* ; do /usr/local/bin/lame --alt-preset standard --interch 0.0005 \"$i\" \"$i\".mp3 ; done"
だけだなぁ。

でも、勉強になったから良しとしよう。

4ヶ月ぶりにAS Downloderをｳﾌﾟｸﾞﾚｰﾄﾞしました。
アプリ名をASDにしました。iDiskその内消えるので、本ハンで
公開を考え中です。バグレポート待ってます。

http://homepage.mac.com/ero_s/FileSharing1.html

AppleScriptを使用して
（別に他の方法でできるならそれでも構わないのですが）
とあるファイルにFinderの「このアプリケーションで開く」を設定するのは
どうやったらいいのでしょう？？

>>475
10.2に関していえば、OS 9以前と同じく
ファイルタイプとクリエータタイプを設定してやれば
希望のアプリで開きますよ

>>476
うーんとそうなんだけど、
Finderから「このアプリケーションで開く」＞「全てを変更」を選択すると
この拡張子のファイル全てを関連づけしますって言われるんです。

それをScriptで実現したいのです。

>>474
作者ﾀﾝ。
いつも使わせてもらってまつ。
今の所、不具合はないので快適ですよ。

いきなり質問のレベルが下がってあれなんですが、
うちのスクリプトエディタでは「参照をペースト」が効かないです。
みなさんのところではいかがでしょうか。

>>478
? (;´Д`)ありがとん

>>479
うちも効かないです

ASD、Read meを読んだら10.2以上となってるけど、
10.1.5でも使えてる。

>477
info forの用語の中に"default application"というpropertyがありますが、
こいつはR/Oのようです。Finder/System Eventsの用語辞書の中にあるfileなどには
このdefault applicationに相当するpropertyが無いようです。
ので、スクリプトで設定するのは無理かと........

んで、info forでdefault applicationをgetして、希望するアプリじゃなかったら
他ので開く.......とかいう消極的な方法しか思い付かないです(;´Д`)ｽﾏｿ
ちなみに、
tell application "Finder"
open theFile using theApplication
end tell
でtheFileをtheApplicationで開く。theFileはリストでもOKです。

>>480
うちだけじゃないならしかたないですね。
ちょっと面倒だけど我慢します。
レス、ありがとうございました。

ASD、うちとことでもiCab,IE共に問題なく動作してます。
で、コマンド引数の位置を任意に指定できたら、便利かなと思って
いじってみたんですが、うまくいきませんでした。
curl ++|grep '^http'|xargs wget -nd
みたいに"++"（文字列はなんでもいいんですが）の部分をURLに置換したかったんですが。
一応変更した部分を貼っときます。

--- Application.applescript.orig Sat Oct 12 01:17:22 2002
+++ Application.applescript Mon Oct 14 05:58:02 2002
@@ -326,7 +326,18 @@
else
set Cur_URL to ""
end if
- set Cmd_Str to "cd " & (item 4 of Tmp_Ref) & ";" & ((item 2 of Tmp_Ref) & " " & Cur_URL)
+ set tmp_cmd_str to item 2 of Tmp_Ref
+ if (tmp_cmd_str contains "++") then
+ set old_deli to AppleScript's text item delimiters
+ set AppleScript's text item delimiters to "++"
+ set Cmd_Str_1 to first text item of tmp_cmd_str
+ set Cmd_Str_2 to last text item of tmp_cmd_str
+ set AppleScript's text item delimiters to old_deli
+ set cmd_str_tmp to Cmd_Str_1 & " " & Cur_URL & " " & Cmd_Str_2
+ else
+ set cmd_str_tmp to (Cmd_Str & " " & Cur_URL)
+ end if
+ set Cmd_Str to "cd " & (item 4 of Tmp_Ref) & ";" & cmd_str_tmp
if ((item 5 of Tmp_Ref) as number) is 0 then
set thePanel to load panel "downloding_panel" from nib "configpanel"
set theSound to load sound "Submarine"

>>484の変更をした後にビルド→デバッグ→実行可能ファイルを実行、
では"++"の部分はクリップボード or ブラウザのURLに問題なく置換
されました。でもASDををダブルクリックして実行した場合は"++"は
ただの++として認識されて、URLは通常どおりコマンドの一番うしろ
追加されるだけでした。

何故〜。難しい。。

10.2でスピーチをaiff出力してみる。
アプリケーションにしてテキストファイルをDnDで動くはず。
文書の最後に#Trinoidsとか入れると声が変わります。
ただし日本語ファイル名で出力すると落ちます。
なんでだろう。AS使ったの初めてだからわかりません(逃

on run
aif_exp(choose file with prompt "Choose text file")
end run

on open drop_item
set theFile to drop_item
set file_num to count (item of drop_item)
if file_num is 1 then
aif_exp(drop_item)
else
display dialog "Sorry, only 1 file can be handled."
end if
end open

つづき。も少しスマートにまとめられそうなんだが……

on aif_exp(source_file)
set theInfo to info for source_file
set theName to (name of theInfo) & ".aiff"
open for access source_file
try
set theText to read source_file using delimiter ("#") as text
on error
set theSent to read source_file as text
end try
close access source_file
try
set theSent to item 1 of theText
set theVoice to item 2 of theText
end try
set theAif to (choose file name with prompt "Saving file..." default name theName)
try
say theSent using theVoice saving to theAif
on error
say theSent saving to theAif
end try
end aif_exp

scriptmenuでperlスクリプトを実行すると、
バックグラウンドでひっそり実行してくれるので気分が良いのですが、
system("/bin/rm ./tempindexpl.txt");
こういう行を実行してくれず、気分が良くないです。
indexファイルから、必要な部分をlogファイルへ書き足し、
その最中にできて、実行後は必要ないtempindexplファイルを消去したいんですが、
scriptmenuからperlスクリプトを実行、という手順では限界なのでしょうか？
この際なので
applescriptからperlスクリプト実行→tempindexplファイル消去
→logファイルアップロード→indexファイルをmiで開く
というapplescriptを書いちゃおうと思っているのですが、
applescriptからperlスクリプトって実行できるんでしょうか？
あとapplescriptからサーバへファイルアップロードに関してもひっそりと不安です。

scriptmenuというのが何かもよくしらないけど、
systemじゃなくてunlink使わないのはなぜ?
あと関係ないけど、system関数的には
system( '/bin/rm', './tempindexpl');
と引数を分けるのが正しい使い方なり。

全然質問の答えになってなくてスマソ

>>485
レスありがとやんす。
set cmd_str_tmp to (Cmd_Str & " " & Cur_URL)
ここを
set cmd_str_tmp to (tmp_cmd_str & " " & Cur_URL)
としたら上手く逝きました。
でも、そのエラーは別の話っぽいですね。
この機能も入れて、あと一つバグを修正したら、どっかでおおっぴらに
公開しようかと思っていますが、よろしいでしょうか>へたれさん？

>>ALL
「AppleScript Programming for Mac OS X」掌田津耶乃著
がでました。よだれものの本です。高いけどオススメです。

質問です。
ウェブブラウザにウェブ翻訳を通すスクリプトを書きたくて
最初から入ってるサンプルスクリプトで
property target_URL : "http://www.cnn.com/"

open location target_URL
ってのがあったので、これを利用して
URLんとこをhttp://www.excite.co.jp/world/url/body/?wb_url=と
選択した文字列（ブラウザのロケーションバーから選択）にすればうまくいくかなと思ったのですがうまくいきませんでした。。。
初心者なので変数とか使うこともできないんです。。。
どなたか簡単にスクリプト書いて頂けませんか？
よろしくおながいしまする。

>>491
http://members.tripod.co.jp/obto/script/script.html

>>492
ありがとうございます！！！
まさに探していたもののようです。

>>492
すいません！よく見てみたらダメでした。
IE用とiCab用しかなくてって優香
うちのデフォルトのChimeraはAppleScriptに対応しているのか！？という感じなので
>>491で書いたopen locationを使いたかったのです。

>>494
>ChimeraはAppleScriptに対応しているのか！？

Chimeraをスクリプトエディタにドロップしてみれば良い。
漏れChimera使ってないからシランけど。

>open locationを使いたかったのです

翻訳スクリプトって、基本的な事はこのスレの過去ログに出てる。
現在開いてるURLを取得して翻訳サイトに流してるだけよ。

>>495
過去ログにあったんですね。。。
すんません、逝ってきます。。。

AppleScriptでインターネットロケーションファイルを作る方法はありますか？
ブラウザで開いているページのロケーションファイルをデスクトップ以外の特定のフォルダに
任意の名前をつけて保存したいのですが、何かいいやり方はないでしょうか。

>>497
IEだとこんな感じでしょうか。エラー処理とかしてないけど。

tell application "Internet Explorer"
set winID to item 1 of (ListWindows)
set winInfo to (GetWindowInfo winID)
set targetURL to item 1 of winInfo
end tell
tell application "Finder"
set saveFol to choose folder with prompt "ロケーションファイルを作成するフォルダを選択"
set saveFileName to text returned of (display dialog "保存するファイル名を入力" default answer "" with icon note)
make internet location file at saveFol to targetURL with properties {name:saveFileName}
end tell

>>498
ありがとうございます！　Finderでできるんですね。
けどこれをIEでなくiCabで使えないかと見様見真似で

tell application "iCab"
set targetURL to URL of window 1
end tell

と書いたんですが、実行するとIEの時とは違うアイコンのファイルが作られて
それをダブルクリックするとエラー-50というのがでてしまいます。
すみません、どうしたらいいでしょうか。

>>499
iCabで使えるコマンドじゃないってことだろな。
てゆうかそもそもAppleScriptに対応してるの。

X版のiCabじゃwindow 1が使えないみたい。
IEと同じように書いてみて。

>>499
iCabならこれでどう？

tell application "iCab"
set WID to first item of (ListWindows)
set targetURL to first item of (GetWindowInfo WID)
end tell

>>501
>>502
498のスクリプトの"Internet Explorer" を"iCab"に変えただけのものも、
502のも試してみましたが、「“item 1 of {}”を取得できません。」という
エラーが出てしまいます。

連続ですみません。

set WID to first item of (ListWindows)
ではなく、

set aList to ListWindows
set WID to first item of aList

にしたらうまく行きました。
レスくださった方々、ありがとうございます。

これでロケーションファイルを保存したフォルダをDockに置いて「お気に入り」みたく
使おうと思ってます。

iCabだと
tell application "iCab"
set targetURL to URL
end tell
だけで，一番手前のウインドウのURLを取得できるみたい。
お試しを。

ブラウザ別のURLの取り方なら
>>146に書いたある

>>506
だから…

>>505
すごいシンプルになりますね。かっこいい。

すみません、前レスを訂正します。
URLの取得は>>498,>>502のどちらでもできました。
よく確かめずいい加減な書き込みをして申し訳ありません。
バージョンの違うiCabが二つHDにあって、ウインドウを開いてない方の
iCabにtellしてた為にエラーが出てしまったようです。
お騒がせしてすみませんでした。

Applescript Studio練習中の者です。
どなたか助けてください。
"Inteface Builder" でウインドウを Utility Window (Panel only) にしたら、
Miniaturize を オンにしてビルドしても、ウインドウの最小化ボタンが非アクティブなんですが、これは仕様でしょうか？
どうしても Panel を最小化できるようにしたいんですが。。

jaguarにてAppleScriptを使って
Finderの検索機能を使用するにはどうすればいいんですか？
どなたか回答お願いします。

>>509
ちゃんとしたDocumentが見つけられませんでしんで、
検証してみましたが、仕様だと思います。
Utility Windowチェックを外すしかないんじゃないかな。

>>510
もしかしたらと思って用語説明見たけど載ってない。たぶん無理です。

>>511
わざわざ検証していただいてありがとうございます。
ああ、やっぱり仕様なんですね。
残念。

>>510
このスレの流れで言うと、AppleScriptで出来ない場合コマンドでやれって
わけで、find コマンドを使えば良いかと

例えば
find . -name "*.jpg" -exec open {} �;
カレントディレクトリ以下のJPGファイルを開く

これをAppleScriptにdo shell script何かで埋め込みで、
exec以下のコマンドを変更すればそれなりに柔軟な処理が出来ます。

>>514
ほー。そんな方法もあるんだ！
UNIXと連携するなんてすごいなぁ。
そのASでコマンドを使う方法を日本語で(汗)解説してるサイト、ないかしら。

>>490
ものすごい遅レス、すんません。
書き間違いがあったとは。。修正したら問題なく動きました。
seqimgに関しては、これまでと同じように添付してやって下さい。
でも>>471さんの改良版の方が便利かも（汗

「AppleScript Programming for Mac OS X」、これですね。
http://www.socym.co.jp/pages/books_annai/pc_gengo.html#AppleScript
先日本屋で立ち読みしてきますた（w。AppleScript Studioに関して結構ページ割いてますね。
4200円と値は張るけど、いい感じでした。

>>515　こちらも遅レスですが
do shell scriptは引数の文字列をコマンドとして実行するだけなので、
各々のコマンドの使い方や、shellの基本的な知識が必要になるかもです。
かなり前にのせたサイトですが>>13辺りはどうないでしょうか？

保守あげしときます

QuickTime Broadcasterを自動的に起動してブロードキャストするスクリプトの覚え書き。

tell application "QuickTime Broadcaster"
activate
start documents
end tell

（　´_ゝ`）ﾌｰﾝ

>>516
こちらも遅レスすんまそ。仕事が忙しくなって、バグ取り進んでませんが、
もうちょっとしたら公開します。

最近は忙しくてエロ画像収集する暇もありません・・・

こんな高度なスレですみません…
DVストリーム書き出しを、
QuickTimePlayerでスクリプトを使ってできると聞き、
やみくもに作ってみたのですが、構文エラーが出るばかり…
超初心者なもので、指定されてもどう直せばいいのかも分かりません。
どなたか親切な方、ご教授願えれば幸いです。
現段階です↓

tell application "QuickTime Player"
export "開いてあるファイル名" to file "新ファイル名" as DV stream
end tell

>>521
tell application "QuickTime Player"
activate
export movie 1 to (choose file name) as DV stream
end tell

>>522
ありがとうございました！
基本も何もすっ飛ばして試みたもので…
アプリが立ち上がっていればactivateいらないのかと思ってました^^;
カッコも間違ってたし。
あと、バカまるだし承知でおききしますが、
movie 1 の『1』ってのは何ですか？
目的のムービー開いた状態でないとエラーになったので、
ってことは、最前面にあるmovieを指すとか？
ちょっと面白くなってきたので、勉強してきます…

なんだかハマってしまい、ちょっと勉強して、
すごい単純な物ですが、自力で作ってちゃんと動かすこともできました。
縦に撮ったデジカメムービーを90°回転させて見るスクリプト。
今まで縦のものも横にできなかったので…

tell application "QuickTime Player"
activate
open (choose file)
tell movie 1 to rotate right
end tell

>>521
activateはいらなかった。
開いてるファイルを書き出すって事だったんで、
最前面のムービーを確認するためって思ったんだけど、
無くても保存のダイアログと一緒に前面に出てくるね。
カッコはそれでいいよ、ただしパスを忘れずに。
まあchooseで選んだ方がいいと思うけど。

それと、開いてからじゃないと書き出せないみたいだからexportの前にopen。
もうわかると思うけどファイルを選んで書き出すなら、
2行目にopen (choose file)を入れてやればいい。

>>525
いろいろと親切にありがとうございます！
今までこんな便利な物を使わずに来たのが不思議です。
調子に乗って、いただいたスクリプトに手を加えて、
ドロップレットにしてみました。
取りあえずちゃんと動きます。
今度はifとかダイアログ使って、
これに他の機能を足してみようかなぁ。

set theItem to selection
on open theItem
tell application "QuickTime Player"
activate
open theItem
export movie 1 to (choose file name) as DV stream
end tell
end open

AppleScliptで、モニタのジオメトリ調整のとこを自動化できないでしょうか？
盆台使ってるのですが10.2のジオメトリ初期化問題に閉口しています。
なおらないのなら、せめて、ベストな状態を記録しておいて
起動時にAppleScriptで自動で一発で補正したいな、と思って。

クリップボード内のテキストをgooの辞典で検索するスクリプトを書いたのですが、
日本語が文字化けしてしまいます。
同じ様なスクリプトでgoogleで検索する物はきちんと動きます。
googleの文字コードはShift_JIS、gooの文字コードはEUCなので
多分文字コードの問題だと思うのですが、どう対処すればいいのかわかりません。
どなたか教えて下さい。
スクリプトは以下のとおりです。

--gooの国語辞典
set ctext to the clipboard as string
set jitenn to "http://dictionary.goo.ne.jp/cgi-bin/dict_search.cgi?sw=2&MT="
open location (jitenn & ctext)

>>527
iMac使ったことないんだけど
ジオメトリ調整をOSでソフトウェア的に処理してんの？
10.2のモニタ調整にはそういう項目は見当たらんが
モニタをハードウェア的に直接いじってるなら
AppleScriptでの制御は無理かと
>>528
open locationじゃなくてブラウザに命令すると
うまくいきましたけど、ダメ？
set ctext to the clipboard as string
set jitenn to "http://dictionary.goo.ne.jp/cgi-bin/dict_search.cgi?sw=2&MT="
tell application "Internet Explorer" to OpenURL (jitenn & ctext)

>>529
レスさんくすです。
そうなんですよ。iMacシリーズはジオメトリ調整はソフトでいじるんです。
10.2も、imacだと「モニタ調整」にジオメトリ項目が出現します。

で、初代iMacシリーズのみ、10.2環境では再起動するたびに、初期状態に
戻ってしまう、とうバグがあるんです。で、そのあと、OS9を起動しても
もう、ジオメトリは初期のまま、という。

でも、やっぱ無理ですよね。どうも有り難うございました。

>>529
実はProject Builderで検索と各種辞典をまとめたアプリ作ろうと思って、
ポータルパレットのAppleScript版みたいなのなんだけど、
それに使うスクリプトのテストだったんですよ。
それで、ブラウザを指定しなくてもいい書き方にしたかったんです。
それってやっぱり無理ですかね。
とりあえず、ブラウザに命令する事にしてブラウザを選べるようにします。
レスありがとうございました。

保守age

>530
確かに調整はソフトウェアで行うが、調整用のコマンドがないのでScriptは不可。

>>530
ジオメトリ調整の初期設定ファイルが存在するなら
ベストな状態のものと入れ替えてモニタ調整してるアプリを再起動させる
とこまでのスクリプトをログイン項目に入れといたらどうよ

保全　

今日はじめてAppleScriptを触っているのですが、
新規TEXTファイルをDesktopに作成して
その中に文字列(例えば"abcde")を書き込みたいのですが
よく分からなくてパニくっています。
どなたか簡単にで結構ですので
アドバイス頂きたく思います。
以上、よろしくお願い致します。

失礼しました、環境はOS10.2です。

>>536
こんな感じ

set filePath to (choose file name)
set filePath to filePath as text
set thisData to "abcde"
try
set openFile to open for access file filePath with write permission
write thisData to openFile
close access openFile
on error
close access openFile
end try

>>538
新規TEXTファイルをDesktopに作成して
新規TEXTファイルをDesktopに作成して
新規TEXTファイルをDesktopに作成して
新規TEXTファイルをDesktopに作成して
新規TEXTファイルをDesktopに作成して
新規TEXTファイルをDesktopに作成して
新規TEXTファイルをDesktopに作成して
新規TEXTファイルをDesktopに作成して
新規TEXTファイルをDesktopに作成して
新規TEXTファイルをDesktopに作成して

>>539
ﾊｱ？試してみたのか？
一行目でデスクトップ指定すりゃ
テキストファイル作るだろう？

set theData to "abcde"
tell application "Finder" to set theFile to (make file) as alias
try
open for access theFile with write permission
write theData to theFile
close access theFile
on error
close access theFile
end try

>>536が躓いたのはFinderに作らせたファイルはFinder形式の参照が返ってくるので
クラス変換してやらにゃいかん、というあたりだと思われ。

system osaxが、バージョンアップしてますた。
ttp://www.bekkoame.ne.jp/~iimori/sw/systemOSAX.html

こんな事が可能になってますた。凄いかも。
set fileList to (fromPosixPath (system "find /some/where -name '*.jpg' -type f")) as list
repeat with aFile in fileList
色々と処理
end repeat

とかヒアドキュメントみたいにこんな事も。
set aCmd to "
for aFile in `find /some/where -name '*. jpeg' -type f`
do
mv �"$aFile�" `echo �"$aFile�" | sed 's/��. jpeg$/. jpg/'`
done"
system aCmd with EOLisCR

わくわくするぜ！！
漏れもAppleScript使いたくなってきた。

ほしゅ

set theString to "Hello, world!"
set theOutputName to "my new file.txt"
set theOutputPosix to quoted form of ((POSIX path of (path to desktop)) & theOutputName)
do shell script "echo " & theString & " > " & theOutputPosix & "; open " & theOutputPosix

あるフォルダー（例えば「Document」）内の
サブフォルダーに含まれていないファイルを
任意のフォルダー（例えば「未分類」とか）に
移動するスクリプトってどう書けばいいですか？

拡張子で判別するスクリプトを見て見たりしたのですが、
「フォルダーに入っていないファイル」の判別方法がわかりません。
どなたかお助けください。

>>546

tell application "Finder"
activate
set theFilelist to every file of (choose folder with prompt "「あるフォルダ」を選んで下さい。")
set theMove2folder to (choose folder with prompt "「任意のフォルダ」を選んで下さい。")
repeat with aFile in theFilelist
move aFile to theMove2folder
end repeat
end tell

とかじゃなくて、もっと難しいこと考えてるの？

set theFromFolderPosix to quoted form of POSIX path of (choose folder with prompt "From")
set theToFolderPosix to quoted form of POSIX path of (choose folder with prompt "To")
do shell script ﾂ
"for aFile in " & theFromFolderPosix & "*; " & ﾂ
"do; " & ﾂ
"if [ -f \"$aFile\" ]; then; " & ﾂ
"mv \"$aFile\" " & theToFolderPosix & "; " & ﾂ
"fi; " & ﾂ
"done"

てゆうのも。

ありがとうございます。
基礎的すぎてWebで調べても分からなかったので。

共用サーバにOS X機を使ってるのですが
個人用フォルダに入れずに、勝手に散らかす人がいるので
crontabで毎日強制的かつ自動でフォルダにまとめたかったのです

Sharedフォルダの中に「押し入れ」というフォルダを作り
こんなかんじでやってみて動きました。

ひょっとして無駄の多いスクリプトですか？

tell application "Finder"
activate
set theFilelist to every file of folder "desktop" of folder "tab" of folder "Users"
set theMove2folder to folder "押し入れ" of folder "desktop" of folder "tab" of folder "Users"
repeat with aFile in theFilelist
move aFile to theMove2folder
end repeat
end tell

>ひょっとして無駄の多いスクリプトですか？
はい。私がヘタレでした。>>547は下が正解です。

set theFromFolder to choose folder with prompt "From"
set theToFolder to choose folder with prompt "To"
tell application "Finder" to move every file of theFromFolder to theToFolder

他のアプリやAppleScript内で処理する場合には
リストに入れてループさせることが多いので、そう書いてしまいました。
（そのリストの中にはFinder形式の参照が入っているので、
その場合はas alias listでクラス変換する必要があります。）

Finderへのtell文の外側でパスを指定する場合は、通常の形で大丈夫だと思います。

ども、お騒がせでした。

>>548
set theFromFolderPosix to quoted form of POSIX path of (choose folder with prompt "From")
set theToFolderPosix to quoted form of POSIX path of (choose folder with prompt "To")
set the notFolder to "Document"
do shell script ﾂ
で

find theFromFolderPosix \! -name $notFolder -exec mv {} theToFolderPosix \;

するのは？

applescript studioでアプリ作成中なのですが、
あるボタンを押すとポップアップボタンにメニュー項目を追加する、
という動作をさせようとしています。
メニュー項目に追加するまではいいのですが、(あちこち検索して
方法見つけました) 一旦アプリを終了して次回起動させた時にも
前回追加させた項目を表示させたいのですが、
定番なやり方ってどうするんでしょか。。。
save menu item of ...
とかではダメなんすかね。やみくもに色々試したけどやっぱうまくいかず。
当方のスクリプティングの腕前は、永遠に初級って感じだす。。

applescript でドロップレットを作りたくて調べてます。
# 今月号のUNIX USER の記事がきっかけでで初めてapplescript をさわってます。

ドロップするとそのファイルを/Users/hoge/Desktop/update に移してくれて
unix のshell script /Users/hoge/bin/sync_to_unix を実行。
また、ダブルクリックだけだと単にsync_to_unix を実行してくれる
ようなのが作りたいです。sync_to_unix の内容は、

#!/bin/tcsh
/sw/bin/rsync -auz --delete --exclude "newton/" ¥
-e ssh hoga@remotehost:tmp/ ~/Desktop/tmp
/sw/bin/rsync -auz --delete -e ssh ~/Desktop/update/ ¥
hoga@remotehost:tmp/mac

です。ssh のpassphrase はログイン時にssh-agent を使って入力済みと
仮定してます。

これができるとネットワーク上のunix マシンとファイルのやり取りが
簡単になりそうなんですが。。今のところ

on open names
tell application "Finder"
move file ... to ...
end tell
do shell script "/Users/hoge/bin/sync_to_unix
end open

こんな感じで、完成にはほどとおいです。

>>553
自己レス

shell script の二行目は
/sw/bin/rsync -auz --delete --exclude "mac/" ¥

でした。

こんな感じ？エラー処理なんかなんにもやってないけど。

on run
my SyncScript()
end run

on open dropFiles
tell application "Finder" to move dropFiles to folder "update" of desktop
my SyncScript()
end open

on SyncScript()
do shell script "Users/hoge/bin/sync_to_unix"
end SyncScript

>>555
おお、ありがとうございます。こういうのが書きたかったんです。

しかし基本的な作り方がわかってないのかうまく動かない。。
起動するだけで何も起こらないです。drop もだめ。

Project builder の新規プロジェクトで
Application -> applescript droplet
とプロジェクトを作って
Scriptsフォルダのapplescript を編集してビルドしました。
これじゃだめなのかな？

#スクリプトエディタで実行させると確かに動いてます。
#(drop は確認できませんが)

ググってみます。
とりあえず御返事まで。

>>555
あっさりわかりました。
我ながら強烈な素人っぷりがはずかしーです。

解決法。
スクリプトエディタで
別名で保存 -> アプリケーション

これでばっちり動きました。

エラー処理というのはping して反応が無ければ「route がないよ」ってな
ウィンドウを出す、ということでしょうか？
それともapplescript のお約束でこういう処理を入れといた方がいいよ、という
のがあるんでしょうか。そういうのがあれば今後のために教えてもらえると
うれしいです。

>>557
>エラー処理というのはping して反応が無ければ「route がないよ」ってな
>ウィンドウを出す、ということでしょうか？

です。555のスクリプトの場合ドロップしたファイルと同名のファイルがあった場合、
そこで処理がとまります。またdo shell scriptを実行すると、stdoutに吐き出された
文字列のみapplescriptの方で所得出来ます。なのでshell scriptの方で返り値を設定
し、其の値でapplescriptで処理やダイアログを変更するには多少工夫が必要になります。

具体的にはshell scriptの方で echo 1とかしておいて、applescriptの方で
set ex_status to do shell script "hoge/bin/myscript"

とするとか、$?を使って
set ex_status to do shell script "/usr/bin/hogehoge >/dev/null;echo $?"

といった感じです。

applescriptのお約束を書くの忘れてました。
if 構文を使って分岐ってのは、他の言語同様良く使うと思います。
特有ってのはtry 構文かな。この辺りに詳しく書かれてます。
http://www.macos.com/octopus/LetsAS/cancel.html

>>552
> 前回追加させた項目を表示させたいのですが、

基本的にそういう命令はないので、
1.終了時に変数(追加されたメニュー項目)を初期設定ファイルに書き込む
2.起動時に初期設定ファイルから変数に代入
3.起動時に変数を読み込んでメニューに追加
ってな処理をやらねばならんです。1と2は命令があったはず。

560さん、レスありがとうござります。

>基本的にそういう命令はないので、

あう。やはりそうなのですか。
ぢつはOS9でFaceSpan使って作ったアプリのOSX版を作ろうとしてまして
FaceSpanだと、正しい使い方かどうかは別として 「save window "hoge"」
で更新出来ちゃってたんですよね。
で、ASstudioの方でも何かサラッと書く方法があるのかと思いまして。
素直に初期設定ファイルを作る方向で考えます。

久しぶりにエロスクリプト
Real movie を連続再生のドロップレット

on open fileList
set LengthList to {}
set counter to 0
repeat with aFile in fileList
tell application "RealOne Player"
open aFile
set end of LengthList to (GetLength) / 1000
end tell
end repeat
tell application "RealOne Player"
repeat with aFile in fileList
set counter to counter + 1
activate
open aFile
delay (item counter of LengthList as number)
end repeat
end tell
end open

>>562
自己レス。sortを忘れてました・・と思ったら、sortが未実装でした。
しょうがないので、reverseしてみました。
ドロップレットにドロップしたファイルの並び順って、名前順降順で
固定なのかな？よくわからん仕様ですな。

on open fileList
set LengthList to {}
set SortedList to {}
set counter to 0
set fileList to reverse of fileList
repeat with aFile in fileList
tell application "RealOne Player"
open aFile
set end of LengthList to (GetLength) / 1000
end tell
end repeat
tell application "RealOne Player"
repeat with aFile in fileList
set counter to counter + 1
activate
open aFile
delay (item counter of LengthList as number)
end repeat
end tell
end open

単純にこれじゃだめ？

tell application "Finder"
activate
set my_folder to (choose folder)
open files of my_folder
end tell

勝手に一個ずつファイルを開いていってくれるよ。
でもね、Finderから複数選択で開くと順番めちゃくちゃの時ある。
AppleScript経由だとうまく行く。
やってることは同じですよね？なんでだろう？

漏れも便乗して、Windows Mediaの連続再生。

property wm_List : {""}

on open file_List
tell application "Finder"
repeat with a_File in file_List
set a_File to "<entry><ref href=\"file://" & a_File & "\"/></entry>"
set end of wm_List to a_File
end repeat
end tell
end open

on run
tell application "Finder"
set the_button to button returned of (display dialog "asxファイルを作ってもいいんだな？" buttons {"キャンセル", "クリア", "いいよ"} default button 3)
if the_button is "いいよ" then
set old_Delim to AppleScript's text item delimiters
set AppleScript's text item delimiters to return
set the_text to {"<asx version=\"3.0\">", wm_List as string, "</asx>"}
set the_text to the_text as string
set AppleScript's text item delimiters to old_Delim
set asx_file to choose file name
set the_file to open for access asx_file with write permission
write the_text to the_file
close access the_file
set creator type of asx_file to "Ms01"
else if the_button is "クリア" then
set wm_List to {""}
end if
end tell
end run

ファイルをひとつづつドロップするとドロップレットが順番を憶える。
一括してドロップしてもOKっす。
ダブルクリックでasxとして書き出し。
ramやsmilにも応用できる。
バグ対策としてFinderにtellしたけど、必要無ければ省いちゃって。

OS9.04以下の場合は566のchoose file nameをnew fileに書き換えてね。

>>558 ありがとうございます。
OSX についているping コマンドではうまくいかないですね。
-w オプションが使えないし、反応があっても無くても終了ステータスは
0 を返すみたいです。(こっちは致命的)
# man には-w オプションについての記述があります。

なんか行き詰まった感じなのでネットワークについてのエラー処理は
あきらめます。ブラウザー立ち上げる段階で気付くわけですし。

同名のファイルをドロップしたときのエラー処理はできそうなので
できたら記念にここに張り付けようかと。

エロage

へたれさんが>>246で作った起動ディスクを変更できるスクリプトなんでつが、
OSX10.2.2ではうまく動かないです。
「Finder？なにそれ？」みたいなエラーがでます。
なんとかならんものでしょうか、、おながいします。

>>571
下から10行目あたりのFinderを"Finder"に。

ADCで落とした Dec2002 DeveloperTools に ScriptEditor(v2.0) が同梱されてるんだけど既出？
Cocoaベースでｲｲ感じ。スクリプタブルだし。

おっマジで？
やっとスクリプタブルになったんか

eo64つかってます
送受信しないと３分で切断されるので
ping打ってます
ただ同一IPだと５時間で切断されます
AppleScriptでインターネット接続とpingの
書き換えを一定時間で自動化する事は
可能なのでしょうか？

>>573
betaだけどいいね。やーーーっと検索とマルチアンドゥができるようになった。
今まで開発ツールで検索ができないなんて、呆れて文句も出なかったよ。。

他にも UI element というのが、準備されている様子。
AppleScriptからメニューやキーイベントを操作できる。

>>575
> 送受信しないと３分で切断されるので
> ping打ってます

これはcronにでも仕込んどけばいいかと。

> ただ同一IPだと５時間で切断されます

こっちはよく分からないけど、システム環境設定→ネットワークの
オプションかなんかで切断時、送受信の要求があったら自動で接続
するように出来ないかな。

do chell scriptで同じウィンドウにコマンドを二連発する方法ってありますか？
例えば、cd なんたら〜　で作業場所を変更して、そのあとにコマンドを実行する、
というのをしたいんです。
もし良い方法があればぜひ！

>578
do chell(shell) script = ×

do script with command の間違いでした、すみません。

;

Apple から Script Editor 2.0 Beta が出ています。

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

うちの環境 (Mac OS X 10.2.3) だと string 内の " (0x34) が
� (0x92) でエスケイプできていないみたいなんですけど、
こんな現象が出ている人はいますか ?

出てますねえ。　>editor
「素人にも簡単に」的に書かれてるけど実際はどうなんでしょ？

今までとそんなに変わらないのかな？

細かい変更はあるんだけど、基本的に
Cocoaで書き直しただけって考えていいと思う。

漏れはOS 8の頃からドラッグ&ドロップが出来なかったりするのが
気になってたからそれだけでも十分だけど。

検索/置換とマルチ undo がうれしい。

# ごくごく基本的なことがやっと!

こんなん作ってみました
ttp://he-com.hp.infoseek.co.jp/hetimaosaxopener/

>>585
(・∀・)ｲｲ!!
いちいちドロップしなくて済むようになたよー。

>>585
いただきました

新年の保守あげ

スクリプト全くわからないものです。お助け下さい。
最近ウィルスアラートメールが多いのです。
でENTOURAGEでルールのアクション機能でアップルスクリプトを使い、
サーバーからメールを削除（機能として標準でついている）の動作を
させたいのです。
このサーバーからメールを削除させる動作の部分のスクリプトを教えて下さい。
馬鹿だって笑わないで後生だから教えてください。

>>589
Script EditorでEntourageの用語説明見た？
見ないとどっちみち作れないと思うけど。

そのアカウントはメールをサーバーに残す設定で
ローカルのメールを消すとサーバーの側も消すように設定してるの？
だったらそのメールを特定してdeleteするだけでいいような気がするんだけど
細かくはわかんない。
現在のあなたの状況とやりたい事もいまいちわかんないし。

ヘッダだけチェックしてメールを消せるソフトとかあるから
そういうのを探した上でそのソフトの便利な運用法を考えるって手もあるのでは。

>>590
ありがとうございました。
奥が深いですね。マニュアルも見直して
なんとかがんばってみます。

なんで初心者の人ってこういう時に追加の状況説明せずに
差し伸べかけた手を拒否するのかな・・・。

アプレットにドロップされたフォルダの中のフォルダを開きたいんですけど、
フォルダの中のファイルとフォルダを判別にする方法を教えてもらえませんか？
もう何時間もやってるんですけど、うまくいかないんですー。

on open dropFolder
tell application "Finder"
set the myList to list folder dropFolder without invisibles
set dropFolder to dropFolder as string
repeat with i from 1 to number of items in the myList
set iItem to item i of the myList
set iAlias to (dropFolder & iItem) as alias
set iInfo to info for iAlias
if folder of iInfo is true then
--if folder of iAlias is true then
--if folder iAlias exists then
--if folder (org & iItem) exists then
open iAlias
end if
end repeat
end tell
end open

>>593
第１階層だけでいいの？
on open drpItems
tell application "Finder"
set selection to drpItems
tell every folder of every folder of selection
open
end tell
end tell
end open

>>593
解決法としては>>594氏のいう通りevery folderがいいと思う
でも、>>593のスクリプトも間違ってないはずなので
ちょっと調べてみたんだけど
どうも、list folder ~ without invisiblesの誤操作が原因みたい

set theFolder to choose folder
list folder theFolder without invisibles

↑なぜか不可視ファイルの".FBCIndex"を拾ってる、バグだと思う
で、finderからは見えないのでエラーになると
だから以下のようにfinderのレイヤーから外してやると正常に動いたよ

on open dropFolder
set the myList to list folder dropFolder without invisibles
set dropFolder to dropFolder as string
repeat with i from 1 to number of items in the myList
set iItem to item i of the myList
set iAlias to (dropFolder & iItem) as alias
set iInfo to info for iAlias
if folder of iInfo is true then
tell application "Finder" to open iAlias
end if
end repeat
end open

>>594,595
情報感謝です♪
おかげでドラッグ&ドロップしたフォルダの下をひたすら開いていって、
ウインドウ位置を調整するスクリプトできました。
ただメモリが少ないと動作厳しいかも・・・。

on open theList
tell application "Finder"
set oBounds to {0, 0, 0, 0}
repeat with iItem in theList
open iItem
set oBounds to bounds of window of iItem
my setPositionWindow(0, iItem, oBounds)
close window of iItem
end repeat
end tell
end open
--続きます

--続きです
on setPositionWindow(a, org, oBounds)
tell application "Finder"
set pos to {(item 1 of oBounds) + (-3 * a), (item 2 of oBounds) + (21 * a)}
try
set bounds of container window of org to {200, 200, 200, 200}
set zoomed of container window of org to true
set position of container window of org to pos
--set current view of container window of org to icon view
--set icon size of icon view options of container window of org to small
--set arrangement of icon view options of container window of org to snap to grid
end try

set the myList to every folder of org
repeat with i from 1 to number of items in the myList
set iItem to item i of the myList
open iItem
my setPositionWindow(a + 1, iItem, oBounds)
close window of iItem
end repeat
end tell
end setPositionWindow

ウインドウを並べるだけじゃなく、ウインドウ内のアイテムの数などに応じて
アイコン表示かリスト表示か自動的に切り替えて、
さらにウインドウサイズの最適化とかしようと思っているのですが、
ファイルとかを名前でソートする方法ありませんか？
Clean upコマンドがどうやっても使えないんですよー。

safari の現在一番前にあるウィンドウのURLを取得するのことはできないのでしょうかね。
set curentURL to URL of window 1
じゃダメだったよ。

>>599
URL of document 1 とか URL of document of window 1

>>600
Thaxco!

>578
do shell script"command1;command2;command3;..."
でおけー。
Terminalを使う必要は無い。

あ、ScriptEditor2.0βだが、<<data 0x0000>>の解釈が
おかしくないか？
コンパイルする時はﾒﾓでないと通らなくて、コンパイルすると<<>>になる。
＃1.9だとﾒﾓではコンパイル出来ない
ここまではいいんだが(よくないけど)、そのまま他のところを編集して
再コンパイルすると<<>>になったところでコンパイルエラーが出る。
なめてんのか、Apple。
ということで消した。あ、フィードバックしなきゃ。
なお、<<>>は本当は1文字な(CocoMonarでURLエンコードできねえ、って怒られた)。
わかんない人のために入れ方書くとU.S.モードでoption+\(shift+option+\)な。

>603
詳細レポートさんくすこ。自分が使う時とまどわないで済みそうです。

>581
それは前から出てるな。PBでもあった気がする。
\(ascii character 92)
ではなく
�(ascii character 128)
でないとエスケープ出来ない時がある(違いわかんねえだろうな.....)
んで、おいらはしょうがないので
prop quot:ascii character 34
<snip>
do shell script ("perl -ne'hoge1;hoge2;print "& quot &"$hoge"& quot ";hoge3...")
とかやって回避してたよ(泣)
あと、do shell scriptに渡す時も92じゃなく128でないと
エラーになるみたいだし。

CocoaーJavaからAppleScript命令、もしくはアプリを呼び出すことは可能ですか。
可能だとした場合、たとえばAppleScriptの実行結果をStringだとかObject
だとかでJava側で取得することは可能ですか。できるようでしたら、やり方を
どうか教えて下さい。これが出来る、出来ないで漏れの明日も変わります。
Objective-cで同様のことはたぶん出来ると思うのですが、漏れはJavaがいいです。
（つうか、Objective-cが出来ない罠）

ClassicMenuにシステム終了と再起動を入れたいのですが
アップルスクリプトを使えばいいのかなと思います

その方法、もしくはosxでのAsの説明があるサイトを
教えて下さい

ASD ｳﾌﾟｸﾞﾚｰﾄﾞしました。
http://pc.2ch.net/test/read.cgi/mac/1010546884/l50
Opera、Chimeraに対応。バグ取り、>>484-485の修正なんかです。
バグレポ待ってます。あとコマンドも良いのがあったら教えてください。

>608
おつかれさまでし。
どこにあるですか？

>>609
http://www.vector.co.jp/soft/mac/net/se268499.html
リンク張り間違えしました。ものすごく恥ずかしい・・・。

OSX10.2.3環境です、スクリプトエディタで
set cmd_line to "cd ~Library/Application Support/"を記述したいのですが、
Library/Application Support/ の部分が構文確認でクリアされないのです。
Terminalでは Library/Application� Support /で使用できるのですが、
スクリプトエディタにコピーすると、Library/Application\ Support/
となり構文確認では"ﾒ""ﾓ"...とOKしてくれません。
いろいろとやったのですが困っています。何か方法があるのでしょうか？
先生方ご指導お願いします。

>>611の....
>Terminalでは Library/Application?Support /で使用できるのですが
　?→ バックスラッシュです。
>スクリプトエディタにコピーすると、Library/Application� Support/
?→ 円マークになります。

ScriptEditor2.0ならoption+￥、1.9なら入力モードをU.S.で￥で
バックスラッシュになるのかな？（うちではそうなるみたい）
入力モード変えたりoption押しながらしたり試してたらそのうち出るか？

>>613
ありがとうございます、バックスラッシュは解決いたしました。(´∀`)
が、その横のスペース？が引っかかります。
--------------------------------------------------
　　　“ﾒ"ﾓ”　と書くべきところに “unknown
　　token” と書かれています。
--------------------------------------------------
と出てしまいます、何故なんでしょう？ちなみにVer.1.9ですが
“ﾒ"ﾓ”を入れてみたんですが駄目です。
今日は眠れそうにもないです...

>>614
あり、うちはコンパイル通ったけどな〜
変なヌル文字が紛れ込んでるのかも。
数文字選択して打ち直してみませう。

チルダパスじゃなく、フルパス指定でもいいなら
"cd '/Users/お前様/Library/Application Support'"
てシングルクオートでくくれば大丈夫だす。

>>615さん
ありがとうございます。
チルダパスではなく、シングルクオートで区切ったら通り抜けられました！
これで今日は眠れそうです（w

>>606
できます。

String source;
/**
*ここで変数sourceにAppleScriptの中身を読み込む
*/
NSAppleScript script = new NSAppleScript(source);
NSAppleEventDescriptor aed = script.execute(null);

String result = aed.stringValue();//これがAppleScriptの実行結果

ちなみに細かいことはNSAppleScriptのドキュメントを参照

もしかしたらOS 10.1とかではだめだったかも（未確認）

もしかしてスレ違いなのかな？
だとしたらごめん。

>>618
そんなことないと思うよ

>>619
ありがと。
でも明日が変わるぐらい大事なことを教えてあげたのに
何にも音沙汰なし。
やるせないなぁ。

>620
大丈夫、606は見てなくても
オレみたいな勉強したい初心者が
小躍りして喜んでるから。
これからもよろしく。

再度質問です

システム終了と再起動、できればログアウトも、それぞれの
アイコンを作ってClassic Menuに入れたいのですが
AppleScriptで作れませんか？

難しいのであれば、Classic Menu以外のユーティリティとか
模索します。
ちなみに、他人に使わせるためのMacです。

>>622
あまりにも簡単っぽいのでみんな内心「調べろよ・・」とか思ってスルーしたかも（ｗ
とか言いつつOS9の俺には正確なところが言えないのですが

--システム終了
tell app "Finder"
shut down
end tell

--再起動
tell app "Finder"
restatr
end tell

ログアウトはちょっとわからんす。

うわっ、restatrとか書いてる。。当然restartです。逝ってきます。。

>>623
有難う、多謝！
「実行専用で保存」「アプリケーション」で完動です
自分なりに本みたり色々したんですが、お恥ずかし。

あとは、アップルメニューの順位づけを思い出して・・。

IE(5.2.2+OS X10.15）なんですが、
あるページをダウンロードし終わったかどうかのステータスを得る事って、
do scriptで出来るんでしょうか。
CGIの用語を調べてみたんですが、ここら辺の知識がほとんどないため
わかりませんでした…

>>626
CGIはたぶん関係ないっしょ。。
do scriptはJavaScriptを実行させるコマンドだよね？

OS 9ならMenu Events使って「中止」メニューがアクティブかどうか調べる事で
頁のレンダリング終わってるかどうかチェックできると思う。
OS Xではわからんす。

>627
そうです、JavaScriptでした。。
書き込んでから気付きました。も一回調べてみます。
ダメなら9でやる事も考えてみます、ありがとう。

どなたか、ｼｽﾃﾑ環境設定の｢ｲﾝﾀｰﾈｯﾄ｣で設定した｢ホームページ｣のURLをAppleScriptで得る方法を教えてください！

>>629
かなり悩んで、思いっきり力技で実現してみますた。

set home_string to do shell script "defaults read com.apple.internetconfig|sed -n '/^ *WWW/p'"
set old_delimiter to AppleScript's text item delimiters
set AppleScript's text item delimiters to "\""
set homepage to text item 4 of home_string
set AppleScript's text item delimiters to old_delimiter
display dialog homepage

コマンドラインからだと1行でとれるんだけど、sedやawkの"や(なんかが
AppleScriptだとおかしくなるんでこんな方法しか思い付かなかった。

>>630
わぁ！ありがとうございます！
悩んでいただいてすみません。。
com.apple.internetconfig内のURLを含んだ文字列を取得してるんですね。なるほど〜
コマンドラインはよく解らないけど非常に参考になりました！
ありがとうございました！

>>630
の方法だと、URLが長いと上手く取れないです（´･ω･`）

>>565さんのスクリプトに感動しますた。遅レスでｽﾝﾏｿ
んで、ramファイル書き出し作ってみました。

on open fileList
set URL_List to {}
set counter to 0
tell application "Finder"
repeat with aFile in fileList
set end of URL_List to url of aFile as text
end repeat
end tell
set SortedList to my ShellSort(0, URL_List)
tell application "Finder"
set old_Delim to AppleScript's text item delimiters
set AppleScript's text item delimiters to return
set the_text to SortedList as string
set AppleScript's text item delimiters to old_Delim
set ram_file to choose file name default name "名称未設定.ram"
set the_file to open for access ram_file with write permission
write the_text to the_file
close access the_file
set creator type of file (ram_file as text) to "PNst"
end tell
end open

--シェルソートサブルーチン（UpDown　−＞　0：昇順、1：降順）
on ShellSort(UpDown, BoxList)
set N to length of BoxList
if N > 1 then
set k to 1
set h to 1
repeat until h > N / 9
set k to h
set h to (h * 3 + 1)
end repeat

repeat until k = 0
repeat with i from k + 1 to N
set j to i
if UpDown = 0 then --昇順
repeat while ((j > k) and ((item (j - k) of BoxList) > (item j of BoxList)))
set Temp to item j of BoxList
set item j of BoxList to item (j - k) of BoxList
set item (j - k) of BoxList to Temp
set j to j - k
end repeat

end repeat
end if
return BoxList
end ShellSort

しくじった・・。>>634の後ろから5行目(end repeat 2つの間)に下記を
入れてください。

else --降順
repeat while ((j > k) and ((item (j - k) of BoxList) < (item j of BoxList)))
set Temp to item j of BoxList
set item j of BoxList to item (j - k) of BoxList
set item (j - k) of BoxList to Temp
set j to j - k
end repeat
end if
end repeat
set k to ((k / 3) div 1)

アプリケーション形式に保存、rmファイルを複数同時にドラドロします。
ソートしてramファイルを書き出します。
絶対パスで指定しているので書き出し後は、ファイルの移動はしないでく
ださい。

nice

>>631-632
これでどう？

set home_string to do shell script "defaults read com.apple.internetconfig|grep -A1 '^ *WWW'"
set old_delimiter to AppleScript's text item delimiters
set AppleScript's text item delimiters to "\""
set homepage to text item 4 of home_string
set AppleScript's text item delimiters to old_delimiter
display dialog homepage

>>633-635
依然こんなの考えてうまいこといかなかったんで。
大変ありがたく頂戴いたしますた。

>>638
うお！ 完璧です

最近は一人でｽﾚの品位を下げているような気がしますが、めげないで
http://www.rr.iij4u.or.jp/~tontom/
tontomさんの動画を落とすperlスクリプト。かなり適当

#!/usr/bin/perl
require 'jcode.pl';
$cur_url = @ARGV[0];
$cur_url =~ s/01.html/\\[01-20\\].html/;
$html_text = `curl -s -S $cur_url`;
@html = split(/\n/,$html_text);
foreach (@html) {
if (m@http://[^<]*<FONT COLOR="#FF0000">[^<]*</FONT>\d\d.zip@){
$target_url = $&;
$target_url =~ s@<FONT COLOR="#FF0000">([^<]*)</FONT>(\d\d.zip)@$1$2@;
&jcode::tr(\$target_url,'ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ０１２３４５６７８９','a-zA-Z0-9');
print $target_url,"\n";
}
}

jcode.plをｲﾝｽｺして、引き数を動画ファイルが書いてある1番目のページにして
(例えばhttp://www.rr.iij4u.or.jp/~tontom/mday/socute01.html)
Terminalから実行すると、rmファイルのリストを吐くので
テキストなんかにリダイレクトして、wget -i とか拙作url_maker.pl(ASDについ
てます)なんかに渡してください。俺はASDで下のコマンドで実行してます。

tontom.pl @URL@ > tmp.txt;url_maker.pl tmp.txt;rm tmp.txt

なるほど。URLの抜き出しと全角半角の置換ですか。
ちょっとがんばればAppleScriptと組み合わせてIE起動した状態でダブルクリックで実行とかできそう。

（＾＾）

膣門です。

perl使いの人は、いちいちterminal起動して動かしているんですか？
ドロップレット的なものは、「Doropperler」っていうのを
使ってるんですが、OSXのスクリプトメニューから気軽に
動かしたいんですが、動いたり動かなかったり、、、

　　　警　　　戒　　　

後悔

空海

メーラーにPostinoを使っております。
起動後に自動でメールを取得する設定にしているのですが、これらの一連の動作を行った後、新着メールが無ければPostinoを自動的に終了させるスクリプトがあれば禿しく便利です。
どなたか作って頂けませんか？

>>648
ここって、「スクリプト作成依頼スレ」だったのか ?

>649
スキルないなら無理に作ってやる必要もないよ。

Postino使ってねーからわかんね。
うちのEntourageはメール来てても来てなくても勝手に終了させてっからなぁ。
>>650
くだらねえイヤミ言ってんじゃねーよボケ。どう考えても>>648がわがままだろうが。
特定アプリのそれなりに面倒なスクリプトなんざ自分も同じアプリ使ってて
たまたま似たようなスクリプト作ってたとかじゃねーと作らねえよ普通。スキルうんぬんじゃねーだろ。

Terminal初心者スレでご指導いただきながら、
新・Mac板のスレ更新一覧を取得するscriptを書いてみたのですが、
カタカナの「ソ」あたりで文字化けするようです。
無理矢理sjisでechoしてるのがいけないのかな? なんて思ってみるのですが、
よくわかりません。(´･ω･`)
どうしたらいいのでしょうか?

#!/bin/sh
curl 'http://pc.2ch.net/mac/subback.html' | grep '^<a\ href\=' | sed 's/^<a\ href\=\"//g' | sed 's/\/l50\">/\ /g' | sed 's/<\/a>..//g' |\
sed -e 's/^\([0-9]\{9,10\}\)\ \([0-9]\{1,3\}:\)/\1_\2_/g' -e 's/\ //g' -e 's/^\([0-9]\{9,10\}\)_\([0-9]\{1,3\}:\)_/\1\ \2\ /g' > /tmp/2ch1.$$

curl 'http://pc.2ch.net/mac/dat/' | perl -p0e 's/\.dat\">/\n/g' | grep '^[0-9][0-9]' | sed 's/\.dat<\/A>//g' | sed 's/-Jan-/\ 01\ /g' | sed 's/-Feb-/\ 02\ /g' |\
sed 's/-Mar-/\ 03\ /g' | sed 's/-Apr-/\ 04\ /g' | sed 's/-May-/\ 05\ /g' | sed 's/-Jun-/\ 06\ /g' | sed 's/-Jul-/\ 07\ /g' | sed 's/-Aug-/\ 08\ /g' |\
sed 's/-Sep-/\ 09\ /g' | sed 's/-Oct-/\ 10\ /g' | sed 's/-Nov-/\ 11\ /g' | sed 's/-Dec-/\ 12\ /g' | awk '{print $4, $3, $2, $5, $1}' | sed 's/^20//g' |\
sed 's/\([0-9][0-9]\)\ \([0-9][0-9]\)\ \([0-9][0-9]\)/\1\/\2\/\3/g' | sort > /tmp/2ch2.$$

cd ~/Desktop

while read thrdate thrtime thrnum
do
while read thrttlnum thrrank thrtitle
do
if [ $thrttlnum == $thrnum ]
then
echo "$thrdate $thrtime$thrnum$thrrank $thrtitle" >> result
fi
done < /tmp/2ch1.$$
done < /tmp/2ch2.$$
rm /tmp/*.$$

あら? tabが消えた...。(´･ω･`)
echo "$thrdate $thrtime $thrnum $thrrank $thrtitle" >> result
です。

>>653
> 無理矢理sjisでechoしてるのがいけないのかな?
その通りだが、おみゃー、まず検索しろよ。
「ソ　文字化け」のキーワードでごろごろ出てくるだろ。

うをー!! ぬりがとうございます!!
ていうか、もうしわけないです。わかりました。

#!/bin/sh
curl 'http://pc.2ch.net/mac/subback.html' | grep '^<a\ href\=' | sed -e 's/^<a\ href\=\"//g' -e 's/\/l50\">/\ /g' -e 's/<\/a>..//g'\
-e 's/^\([0-9]\{9,10\}\)\ \([0-9]\{1,3\}:\)/\1_\2_/g' -e 's/\ //g' -e 's/^\([0-9]\{9,10\}\)_\([0-9]\{1,3\}:\)_/\1\ \2\ /g' -e 's/\\/\\\\/g'> /tmp/2ch1.$$

curl 'http://pc.2ch.net/mac/dat/' | perl -p0e 's/\.dat\">/\n/g' | grep '^[0-9][0-9]' | sed -e 's/\.dat<\/A>//g' -e 's/Jan/01/g' -e 's/Feb/02/g' -e 's/Mar/03/g'\
-e 's/Apr/04/g' -e 's/May/05/g' -e 's/Jun/06/g' -e 's/Jul/07/g' -e 's/Aug/08/g' -e 's/Sep/09/g' -e 's/Oct/10/g' -e 's/Nov/11/g' -e 's/Dec/12/g'\
-e 's/^\([0-9]\{9,10\}\)\ *\([0-9]\{2\}\)-\([0-9]\{2\}\)-20\([0-9]\{2\}\)\ \([0-9]\{2\}:[0-9]\{2\}\).*/\4\/\3\/\2\ \5\ \1/' | sort > /tmp/2ch2.$$

cd ~/Desktop

while read thrdate thrtime thrnum
do
while read thrttlnum thrrank thrtitle
do
if [ $thrttlnum == $thrnum ]
then
echo "$thrdate $thrtime$thrnum$thrrank$thrtitle" >> result
fi
done < /tmp/2ch1.$$
done < /tmp/2ch2.$$
rm /tmp/*.$$
SetFile -c "JED3" -t "TEXT" ~/Desktop/result

これでちゃんと表示されるようになりました。

以下のスクリプトorそれが紹介されているサイトがあれば
ご教示ください。検索で当たらなかった…。よろしくお願いします。

1.) IE(5.2.2)で開いてるサイトをSafariで開く
2.) IE(5.2.2)で開いてるサイトをExciteで翻訳したのを表示

>>656
2)のほうね。
Safariスレからだけど、IEにも使える。
「新規のお気に入り」を作成して、URL欄を次のスクリプトにする。

javascript:location.href=%22http://www.excite.co.jp/world/url/body/?body=%22+location.href+%22&trans_type=enja-ATL%22;

んで、英語表示のページを見てるときに、
このURLを選ぶと、翻訳してくれる。
ツールバーに登録しておくと便利。
JavaScriptってことで勘弁してください。

>>656
いいねー、オーダーメイドでスクリプト作ってもらえて。
スレ違いだろ？「こんなアプリ探しています」に行けよ。

on run
tell app "Internet Explorer"
Activate
set urlStr to item 1 of (GetWindowInfo result) as list
end tell
tell app "Safari"
activate
OpenURL urlStr
end tell
end run

IEで開いているサイトをSafariで開くスクリプト。
ただし俺がSafari持ってないので未検証。コンパイルしたら引っかかる部分があるだろう。
ここで質問したからにはこの後は自分でどうにかしろ。

>>657-658
申し訳ありませんでした。ありがとうございました。勉強します。

>658
おまえMLとかでも自治風吹かせるタイプ？(W

tell app "2channel"
age
end tell

ScriptMenuはどこへ？
http://www.apple.com/applescript/macosx/script_menu/

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

AppleMenuはどこへ？

行き詰まってしまったので、お知恵を拝借したいのですが…

--「.abc」を「_abc」に変換
set str to ".abc"
do shell script "echo " & quoted form of str & " | sed -e ?"s/^??./_/?""

こんなものを書いたのですが、駄目ぽです。ヘルプぎぼんぬ。
環境は10.2.3 AppleScript 2.0です。

例文中の「?」は、半角の「￥」です。
失礼しました。

>>665
ファイル名のリネームだけ？
なら、mv で十分だと思うけど

俺は純アップルスクリプターなのでsedもdo shell scriptもよくわからんのですが
いじってみたら
set aStr to ".abc"
do shell script "echo " & aStr & " | sed -e 's/^\\./_/'"

でできましたよ。
quoted form ofって何するもの？"とか'で囲むって事？？

>>665
そもそも、sed の使い方が違うのでは？
sed -e "s/修正する前の文字列/修正する文字列/g" ファイル名 > newファイル名
と、内容を変更して新たに書き出す。

mv str.abc str_abc
だけでファイル名のみは変更できる

ファイル名の処理とはどこにも書いてないわけでつが
.abcをどうのこうのってのは拡張子の処理っぽいでつね。

ところでPerlの場合結果をTerminalに表示させるにはどうしたらいんでしょか。
単純にsedをPerlに置き換えてもだめでした（w

% echo .abc | perl -e 's/^\./_/'
だとなんも表示されません。

echo 'aaa' | perl -e '$i=<>;$i=~s/aaa/bbb/;print "$i";'
こう書けばわかりやすい？

% man perl でよろ。

ああそっか、複数行の奴は;を使えばいいんですね。
で、やっぱprintが必要なんですね。
ありがとうございます。

となるとこういう簡単な文字列変換はsedの方が楽そうだなあ。

>>672
% echo 'aaa' | perl -pe 's/aaa/bbb/'

man perl まじで見とけ。

あらら、分かりやすいように分解してくださってたわけですね。
簡単にも書けるという事ですか。すいません。

ところでその例を見ると処理対象（aaa）は本来
'などで囲むのが正しいようですね。
となると>>665の方のが失敗して>>668で通ったというのは
AppleScript側の問題なんでしょうね。quoted form ofがバグ持ちなのかな？？

>>674
applescriptは弄ったことないからようわからんけど、
& " | sed -e ￥"s/^＼./_/￥""
で上手く動くぞ。
& " | sed -e ￥"s/^￥￥./_/￥""
だと「エン記号と任意の一文字」として処理される。
まぁ良くある、バックスラッシュとエン記号の罠だな。

よう分からんが、シングルクオートで
set str to '.abc'
としたらエラーになった(´･ω･`)
applescriptは癖があるらしいから、shell、その他と一緒くたに考えない方がよいのかも。

>>675
あ、AppleScriptでは文字列囲むときシングルクォートは使えませんです。
それと、バックスラッシュというか\はAppleScriptにとっても特殊文字なので
's/^\\./_/'
という風にエスケープしてあるんだと思います。

Perlのコマンドラインオプション、manは読むの大変だったので（w
黒本で調べました（最初からそうしろよ＞俺）
-pはこういう風に使えばいいのですね。勉強になりますた。

>>676
俺のスクリプトエディタへの理解不足かもしれんけど、
>668の結果は置換されずに出てくる。
他の人は「_abc」と処理されてる？

他の人待ちです。（w
ちなみに僕はOS X10.1.5でスクリプトエディタのアバウト画面ではバージョン1.7と出ます。
AppleScriptは1.8かな。

こっちはosx10.2、script editorが1.9&2.0でapplescriptは1.9。
で、置換されん。
仕様変更あったかな？

???????????????????????????????
???????????????????????????????

???????????????????????
iTunes-LAME Encode??????????????
???????CD???????
???????????...So Addictive?????????
Terminal(=iTunes)???...So Addictive???????????
Finder??????????????????????????
????
iTunes???????????????????????????
?_..So Addictive??????????????????

???AppleScript????????????????????
??????????????????shell script?????????
?????????????????????????????????????
?????????????????????????
current application?text????string/UnicodeText??????
?????????????????

???????????????????????????
????????????????????????????

>>680 サハーリさんでカキコしたら化けました。須磨祖

ええと、あまりにも初心者的だから無視されるかと思ったんですが、
こんな長大なレスがついて、驚きと感謝の気持ちで溢れておりまつ。

で、いったい何をしようとしていたのかというと、
iTunes-LAME Encodeスクリプトを作っていました。
この時、困ったCDがありました。
アルバムのタイトルが「...So Addictive」というものです。
Terminal(=iTunes)からは...So Addictiveで認識されるのですが、
Finderからは不可視ディスクになってしまい、扱えないのです。
（中略）
iTunesに習って、エンコードしたファイルを保存するフォルダ名を
「_..So Addictive」にしようとしたのがことの発端です。

最初、AppleScript単体で文字列処理をしようとしたのですが、
なぜか言うことを聞いてくれないため、shell scriptに頼ったわけです。
しかし、困ったことに、サンプルのみ（にちょっと手を加えたもの）を実行して、
できたと思っても、実際に組み込むと動かなかったり…
current applicationやtextの種類（string/UnicodeText）によっても
変わるようです。もう、わけわかめ。

ということで、もっともべたな処理・手動で対処しました。
こんなにレスがつくとは思わなかったんです。ごめんなさい。

>>668
>quoted form ofって何するもの？"とか'で囲むって事？？
そうです。シングルクォートで囲んでくれます。
shに渡したときなどに、勝手に展開されないようにするためです（よね？）。

>>669
ファイル名の変更もしますが、shell script / AppleScriptを
自動生成するために、必要なんです。
でも、根本から考え直した方がいいのかも。

>>675-676
>エスケープしてあるんだと思います。
仰せの通りです。
エスケープするからまずいんだと思って、「ascii character 92」
でやってみても駄目ですた。

そんなこんなで、長文レスですれ汚し。
重ね重ね、ごめんなさい。

＃なんだよ、UnicodeTextって。なんでStringに統一しないんだよ。
＃漢字Talk7.5の頃がなつかしい…。

>>682
とりあえず>>668で動くかどうかと君のASのバージョンの報告希望（w

>>683
肝心なこと忘れてまつた。
AppleScript.framework -- 1.9.1　<-これですよね
AppleScriptKit.framework -- 1.2.1　<-なにこれ？
こんな感じでつ。
どちらとも「情報ウインドウのテキスト」は「使用できません」になってんですが、
これはどういうことですか？

で、>>668 では動きませんでした。
バックスラッシュ２つを１つにしてみたら動きました。
いくつか適当な文字でも試しましたが、ＯKでした。
どうやって、￥ではなく、＼を入力したのか不思議だったのですが、
Option + ￥で入力できました。
つまり、キー配列をチェックしなかったのが、駄目だったわけで…
みなさんに感謝いたしますとともに、自分のばかさ加減に逝って参り待つ。

よそで得た情報だけどScript Editor2.0だと？2バイト文字を2文字とバイト単位で数えちゃうようだ。
だんだん仕様がわからんくなるな（w
今の状況だと配付用スクリプト作るのは難しいか？

中途半端にバージョンアップするより
どうせなら思いきってAS自体を一から作り直してほしいよね。
OSXになるときにそうしてほしかった。

>>686
１からって言語仕様をって事？
個人的には日本語対応さえ真面目にやってくれればAppleScriptStudioもあるし
do shell scriptもあるし
がらっと変わったと言ってもいいと思うけど。

一から作り直されたらかなわんわ。
また一から勉強かいな。
今まで覚えたことが無になるのはカンベンさ。
今でさえ、AppleScriptStudioがワケワカメで
どうやってやっつけるか日々奮闘してるのにさ。

おそらく>>686さんはもともと他の開発言語を使ってた人では？
人間の言葉に近い仕様にしてあるので冗長＆使える関数などがいまいち少ないAppleScriptに
なじめないでいるのでは。

あるアプリケーションが起動しているかしていないかを判断する方法は
ありませんでしょうか？

今iTunesをリモート操作したり曲名をひろってきたりする
スクリプトをつくって遊んでいます。
操作したり曲名を拾ったりすることはできるのですが
ある間隔でiTunesにアクセスするので、iTunesを終了しようとしても
そのスクリプトを動かしたままだと、またiTunesが起動してしまいます。
そこでiTunesが起動しているかいないかを判断して非起動時はスクリプトから
命令を出さないようにしたいのですが。。。

% ps -acx | grep iTunes
とか？

もしくは
tell application "System Events"
if name of processes contains "iTunes" then
--起動してるときの処理
else
--してないときの処理
end if
end tell

>>690
ひょっとしてコンファブ？