自作ソフトウェア AppleScript置き場

全部フリーウェア。ご使用は自己責任で。

始めたばかりの初心者ですので、たいした物はありません。
ということなので著作権については適当に。そのまま配布は困りますが、いじるなりソースを一部使うくらいなら全然OKです。お役に立てれば嬉しいです。ていうか参考になるほど綺麗なソースじゃなかったりしますけど…。

フォルダ内のファイル名をテキストエディットにhtmlタグ付きで書き込むAppleScript

詳細ページ

EXIFを元に撮影日名フォルダにまとめるAppleScript - 2018.8.27up

EXIFの読み取りにEXIFToolが必要です。

詳細ページ

選択したJPEGファイルのEXIFを元に、ファイルの作成日と変更日を変更するAppleScript - 2015.4.4up

EXIFの読み取りにEXIFToolと作成日変更のためにXcodeが必要です。

詳細ページ

AppleScriptとExifToolで選択ファイルのジオタグ削除 - 2015.3.21up

ExifToolを使って選択した写真ファイルからジオタグだけを削除するスクリプトです。

詳細ページ

指定フォルダ以下のリソースフォーク削除 - 2013.2.12up

xattrコマンドで指定フォルダ以下のリソースフォークとFinder拡張属性を削除するスクリプトです。

詳細ページ

AppleScriptによる小絞りボケ計算機 - 2012.12.27up

AppleScriptで回折による小絞りボケの計算機を作ってみました｡小絞りボケは光が狭い穴を通る時、回折によって拡散してしまう現象です。絞り込みすぎて画像がぼやける原因となります｡その理論上最小絞りを算出する計算機です。

詳細ページ

PonMove（アプリケーション）-2008.2.21更新

Finderウィンドウ内の選択したファイル、フォルダの移動、複製、エイリアス、シンボリックリンクを作成するソフト。

「フォルダにまとめる」にチェックを入れると、６桁の日付フォルダ（例：2006年11月1日→061101）を作成し、そこへ作成もしくは移動します。

またファイルをドラッグ&ドロップしても、６桁の日付フォルダの中へファイルを移動します。

OS X 10.4〜10.5 PPC & Intel
ダウンロード(zip圧縮)
1.0 Download
更新履歴

Exif撮影日時を変更する - 2008.12.14up

ExifToolを使いExif撮影日時をシフトするスクリプト。
カメラの日時設定を誤って撮影してしまったり、2台以上のカメラを撮影時刻で合わせたい時などに使用。

詳細ページ

フォルダに入れられたアイテムを現在の変更日にする - 2007.8.22up

-フォルダアクションスクリプト-

何する物かというと、ブラウザなどダウンロードフォルダにフォルダアクションとして登録すれば、ダウンロードしたファイルの変更日をダウンロードした時間に書き換えることで、順に並び替え、もしくはTiger以上でスマートフォルダを併用することで、すぐに発見出来るようにするフォルダアクション。ダウンロードフォルダが散らかってる自分みたいなものぐさには便利？

詳細ページ

Nikon Camera Control 代替ブラウザ

-フォルダアクションスクリプト-

Nikon Camera Controlのプレビューがあまりにヘボいので作成。
Nikon Camera Controlで転送したファイルをニコン製ブラウザ以外で表示する為のフォルダアクションスクリプト。

詳細ページ

アイコン整列

実行するとアイコンを設定した幅とサイズで並べ替えます。（名前順になりますので注意）
Script Editorで開いてから中の数値を好みで変えた後、別名で保存からアプリケーション形式で保存し直して下さい。Scriptmenuなど直接実行出来る場合はそのままでも大丈夫です。

tell application "Finder"
	activate
	set winObj to Finder window 1
	set current view of winObj to icon view
	set icon size of icon view options of Finder window 1 to 36 --アイコンサイズ
	set arrangement of icon view options of Finder window 1 to not arranged
	set objlist to items of winObj
	set numx to 80
	set numy to 30
	repeat with obj in objlist
		if numx > 500 then -- 折り返しサイズ
			set numy to numy + 60 -- 行の高さ
			set numx to 80
		end if
		
		set position of obj to {numx, numy}
		set numx to numx + 120 -- 列の幅
		
	end repeat
	beep
end tell

XMPファイルを不可視

選択したフォルダ内のAdobe CameraRAWの作るサイドカー（.xmp）ファイルを不可視にします。
RAWと同じ階層にサイドカーを作る設定にしてあっても、ファイルをFinderでも開く時に邪魔になりません。必要な時は可視状態に戻せます。

choose folder
tell application "System Events"
	set objlist to files of result
	activate
	display dialog "選択したフォルダ内のxmpファイルを" buttons {"可視にする", "不可視にする"} default button "不可視にする"
	if button returned of result is "可視にする" then
		set booleanvisible to true
	else
		set booleanvisible to false
	end if
	
end tell
set num to count objlist
repeat with i from 1 to num
	set obj to item i of objlist
	set obj1 to name of obj
	if (obj1 as text) ends with ".xmp" then
		tell application "System Events"
			set visible of (obj as alias) to booleanvisible
		end tell
	end if
end repeat
activate
display dialog "Finder を再起動しますか？"
if button returned of result is "OK" then
	tell application "Finder"
		quit
		delay 0.5
		activate
	end tell
end if

AppleScript メモ - 2008.2.18up

ダイアログでファイル選択とFinderで選択されたファイルの取得

set obj1 to choose file
tell application "Finder"
	set obj2 to selection as alias
end tell

デスクトップにフォルダーを作る

tell application "Finder"
	make new folder with properties {name:"New Folder"} at desktop
end tell

デスクトップのウィンドウをアイコン表示で開く

tell application "Finder"
	make new Finder window to desktop
	set properties of window 1 to {current view:icon view}
end tell

カレントウィンドウを別に開く

tell application "Finder"
	set win1 to target of Finder window 1
	make new Finder window to win1
end tell

変更日を書き戻す

tell application "Finder"
	set obj to selection as alias
	set odate to modification date of obj
	--処理
	set modification date of obj to odate
end tell

フォルダを不可視に

set theFolder to choose folder
tell application "System Events"
	set visible of theFolder to false
end tell

選択した「複数」アイテムのパスを取得

tell application "Finder"
	activate
	set theObjs to selection
	repeat with theObj in theObjs
		log (theObj as string)
	end repeat
end tell

選択したファイルのある階層を取得

tell application "Finder"
	set win1 to selection as alias
	set x to quoted form of the POSIX path of win1
	set y to do shell script "dirname " & x
	set z to y & "/" as POSIX file
	
	log x--選択ファイル（POSIXパス）
	log y--選択ファイルのある階層（POSIXパス）
	log z--選択ファイルのある階層（Macパス）
end tell

ドロップレット基本形

on open DROPITEMS
	count item of DROPITEMS
	repeat with i from 1 to result
		display dialog i as string -- ドロップされた数分繰り返される処理
	end repeat
end open

UI Scripting 基本形

tell application "Finder"
	activate
end tell
tell application "System Events" to tell process "Finder"
	delay 1
	keystroke "n" using command down
end tell

ハンドラとpropertyとglobal変数

property i : 1
global i2
tell application "Finder"
	set i2 to 1
	repeat 10 times
		log i
		my num()
	end repeat
	repeat 10 times
		log i2
		my num2()
	end repeat
end tell

on num()
	set i to i + 1
end num

on num2()
	set i2 to i2 + 1
end num2

フォルダの有無を確認し、同名フォルダがあれば連番付きフォルダを作成する

property i : ""
property i2 : ""
set fld to "New Folder"
tell application "Finder"
	repeat while exists folder (fld & i2 & i) of desktop
		my num()
	end repeat
	make new folder with properties {name:"New Folder" & i2 & i} at desktop
end tell

on num()
	set i to i + 1
	set i2 to " "
end num

６文字日付を得るハンドラ

my theDay()
log result

on theDay()
	-- 日付指定
	set D1 to current date
	set Y to year of D1 as number
	set M to month of D1 as number
	set D to day of D1 as number
	set Y to Y as text
	set Y1 to text from character 3 to 4 of Y
	-- 日付を二桁に揃える
	set D to text -2 thru -1 of ("0" & D)
	set M to text -2 thru -1 of ("0" & M)
	set str1 to "" & Y1 & "" & M & "" & D & ""
	return str1
end theDay

TextEditに文字を書き込む

tell application "TextEdit"
	make new document at before first document
	
	tell text of front document
		set first paragraph to "こんにちは"
		set size of first paragraph to 48
	end tell
end tell