AppleScriptで、あるフォルダ内のファイルを解凍してFTPでサーバーにアップするという処理をさせようとしています。
tell application "Finder"
activate
select folder "ChangeData" of startup disk
open selection
select document file "DATA20091014.lzh" of folder "CangeData" of startup disk
end tell
ここまでは「コンパイル」を実行しても正しくプログラムに出来たのですが、ご覧の通り、希望の動作をさせるには記述が足りません。
文法がめちゃくちゃなのを承知で敢えて書きますと、
tell application "Finder"
activate
select folder "CaspaData" of startup disk
select all contents of selection ←選択したフォフダの中身を全て選択する(記述法不明)
rename selection to "today.lzh" ←選択したファイルの名前を「today.lzh」に書き替える(記述法不明)
select all contents of selection ←選択したフォフダの中身を全て選択する
open selection ←ここでファイルが解凍されます
select document file "today.lzh" of folder "CaspaData" of startup disk
delete selection ←選択したファイルを捨てる
select all contents of selection ←選択したフォフダの中身を全て選択する(記述法不明)
rename selection to "Data.csv" ←選択したファイルの名前を「Data.csv」に書き替える(記述法不明)
end tell
"CaspaData"というフォルダの中にはメールソフトが自動的に保存したファイル1個だけが入っているので、こうすることによって、
1. フォルダ内のファイルが何と言う名前でも"today.lzh"に書き替える
2. today.lzhを解凍する
3. today.lzhをゴミ箱に捨てる
というプロセスを自動処理し、フォルダ内にはメールソフトが保存したアーカイブの解凍後のファイルだけが残るようにしたいという訳です。
最終的には、このリネームしたCSVをNetFinderというFTPソフト(スクリプト対応ソフトです)で希望の場所にアップロードしたい訳なのですが…。
http://force4u.cocolog-nifty.com/skywalker/2008/01/applescript_ae09.html
こんなところを見ると、そこに存在するファイルの名前が何であっても目的の名前に変えることの出来るスクリプトも組めるんだなということは解るんですが、私には知識がなくて内容が理解できないので、スマートではないことは承知の上で「1つしかファイルがないのに"全て選択"で選択してリネーム」という手段をとろうとしています。
ここで、上に「記述法不明」と書いた部分は、Applescriptではどう書けばいいのでしょうか?
いくら AppleScript が取っつきやすいとは言っても、ある程度勉強しないと無理ですよ。
http://www.tonbi.jp/AppleScript/intro/basic.html
このあたりを参考に、基礎を勉強してください。そうすれば書かれているリンク先の内容も理解できるでしょう。
それまでは Automator でガマンしておきましょう。フォルダ内のファイルのリネームくらいなら Automator で処理できるはずです。
これだけでは何なので、「フォルダ内の全ファイルをリネーム」という部分だけ。
全ファイルをワンアクションでリネームする事はできません。フォルダ内の全アイテムについて一つずつリネーム処理を繰り返すという方法を取ります。具体例は以下。この場合は、単に全ファイルの末尾に .lzh を付けるだけです。
set theFiles to every file of theFolder
repeat with aFile in theFiles
set name of aFile to ((name of aFile) as string) & ".lzh"
end repeat
質問者
お礼
リネーム方法のサンプル、どうもありがとうございました。
もちろん、こういったものは勉強しながらでないと使えないので、こうして質問させて頂いては知識を取り込んで組み合わせて応用の幅を広げています。
ご提示頂いた基本編のページは何度か見たことがありましたが、こういうステップ・バイ・ステップのものでは私は結局理解できず、色々サンプルを押してて頂いては自分なりに改造して行くうちに逆に基礎に辿り着くというのがいつものパターンで、JavascriptもPerlも、そうやって徐々に自力で組めるようになりました。
今回は、教えて頂いたサンプルから、下のように組んで実用に成功しました。
「専門家」の方からすればお笑いぐさのスクリプトだと思いますが…。
tell application "Finder"
activate
set theFiles to every file of folder "ChangeData" of startup disk
repeat with aFile in theFiles
set name of aFile to "aaaa.lzh"
end repeat
open document file "aaaa.lzh" of folder "ChangeData" of startup disk
repeat
delay 5
exit repeat
end repeat
delete document file "aaaa.lzh" of folder "ChangeData" of startup disk
end tell
tell application "Finder"
select folder "ChangeData" of startup disk
open selection
set theFiles to every file of folder "ChangeData" of startup disk
repeat with aFile in theFiles
set name of aFile to "test.csv"
end repeat
end tell
tell application "URL Access Scripting"
upload file "Macintosh HD:ChangeData:test.csv" to "ftp://aaaa:pass@aaaa.jp//www/aaaa/cgi-bin/" replacing yes without binhexing
quit
end tell
tell application "Finder"
activate
repeat
delay 5
exit repeat
end repeat
set theFiles to every file of folder "ChangeData" of startup disk
repeat with aFile in theFiles
delete aFile
end repeat
end tell
お礼
リネーム方法のサンプル、どうもありがとうございました。 もちろん、こういったものは勉強しながらでないと使えないので、こうして質問させて頂いては知識を取り込んで組み合わせて応用の幅を広げています。 ご提示頂いた基本編のページは何度か見たことがありましたが、こういうステップ・バイ・ステップのものでは私は結局理解できず、色々サンプルを押してて頂いては自分なりに改造して行くうちに逆に基礎に辿り着くというのがいつものパターンで、JavascriptもPerlも、そうやって徐々に自力で組めるようになりました。 今回は、教えて頂いたサンプルから、下のように組んで実用に成功しました。 「専門家」の方からすればお笑いぐさのスクリプトだと思いますが…。 tell application "Finder" activate set theFiles to every file of folder "ChangeData" of startup disk repeat with aFile in theFiles set name of aFile to "aaaa.lzh" end repeat open document file "aaaa.lzh" of folder "ChangeData" of startup disk repeat delay 5 exit repeat end repeat delete document file "aaaa.lzh" of folder "ChangeData" of startup disk end tell tell application "Finder" select folder "ChangeData" of startup disk open selection set theFiles to every file of folder "ChangeData" of startup disk repeat with aFile in theFiles set name of aFile to "test.csv" end repeat end tell tell application "URL Access Scripting" upload file "Macintosh HD:ChangeData:test.csv" to "ftp://aaaa:pass@aaaa.jp//www/aaaa/cgi-bin/" replacing yes without binhexing quit end tell tell application "Finder" activate repeat delay 5 exit repeat end repeat set theFiles to every file of folder "ChangeData" of startup disk repeat with aFile in theFiles delete aFile end repeat end tell