Read My Scripts.app (Mountain Lion は AppleScript のルールをどう変更したか)

[system info]ipアドレスを取得する。

■WWW側（グローバルIPアドレス）を取得する

[IP]定期的にグローバルIPアドレスを調べてメールで知らせる【applescript】[LINK]

[AppleScript]www側のIPアドレスを取得する[LINK]

■ローカル実際のアドレス

set mySystemInfo to (get system info)

IPv4 address of (mySystemInfo)

↑でも（一度system infoの全てを格納する方法）
↓でも同じ
IPv4 address of (system info)

system infoは非常に便利です。

AppleScript version (text, r/o) : the AppleScript version
AppleScript Studio version (text, r/o) : the AppleScript Studio version
system version (text, r/o) : the system version
short user name (text, r/o) : the current user’s short name
long user name (text, r/o) : the current user’s long name
user ID (integer, r/o) : the current user’s ID
user locale (text, r/o) : the current user’s locale
home directory (alias, r/o) : the current user’s home directory
boot volume (text, r/o) : the boot volume
computer name (text, r/o) : the computer name
host name (text, r/o) : the host name
IPv4 address (text, r/o) : the IPv4 address
primary Ethernet address (text, r/o) : the primary Ethernet address
CPU type (text, r/o) : the CPU type
CPU speed (integer, r/o) : the clock speed of the CPU in MHz
physical memory (integer, r/o) : the amount of physical RAM in MB

Macアドレスも取得出来ますので
管理者の方は色々使えますね。

[SetFile]ファイルを不可視 可視 に変更する。

不可視

-----ファイルを隠す

set OpenDef to the path to desktop as alias

tell application "Finder"

set FileAlias to choose file with prompt "ファイルを選んでください" default location (OpenDef) with multiple selections allowed, showing package contents and invisibles

set PoPath to POSIX path of FileAlias

do shell script "/Developer/Tools/SetFile -a V " & PoPath

end tell

可視

-----ファイルを表示する

set OpenDef to the path to desktop as alias

tell application "Finder"

set FileAlias to choose file with prompt "ファイルを選んでください" default location (OpenDef) with multiple selections allowed, showing package contents and invisibles

set PoPath to POSIX path of FileAlias

do shell script "/Developer/Tools/SetFile -a v " & PoPath

end tell

両方とも１文字を除いて同じ
do shell script "/Developer/Tools/SetFile -a V "
do shell script "/Developer/Tools/SetFile -a v "
大文字か小文字か
の違いだけですね。

「visibles.zip」をダウンロード[Download]

[AppleScript]ランダム処理【some item to 】

自分メモ兼

set theList to {"1", "2", "3", "4", "5", "6", "7"}

set theSomeItem to some item of theList

display dialog theSomeItem buttons {"OK"} default button 1

say theSomeItem displaying theSomeItem with waiting until completion

リストの中の『some』を握ります。

　　
「some_list.scpt.zip」をダウンロード

[Applescript]as

set someObject01 to XXXX as text

set someObject02 to XXXX as string

set someObject03 to XXXX as Unicode text

set someObject04 to XXXX as list

set someObject05 to (the path to desktop) as alias

set someObject06 to XXXX as integer

set someObject07 to XXXX as number

set someObject08 to XXXX as real

set someObject09 to "true" as constant

set someObject10 to (current date) as date

set someObject11 to "/tmp" as POSIX file

set someObject12 to {product:"A", price:100} as record

set someObject13 to (window 1) as reference

set someObject14 to {65535, 65535, 65535} as RGB color

set someObject15 to POSIX file ("/Library/Documentation/Acknowledgements.rtf") as file

単位系

set someObject51 to XXXX as centimeters

set someObject52 to XXXX as centimeters

set someObject53 to XXXX as feet

set someObject54 to XXXX as inches

set someObject55 to XXXX as kilometers

set someObject56 to XXXX as kilometers

set someObject57 to XXXX as meters

set someObject58 to XXXX as meters

set someObject59 to XXXX as miles

set someObject60 to XXXX as yards

set someObject61 to XXXX as square feet

set someObject62 to XXXX as square kilometers

set someObject63 to XXXX as square kilometers

set someObject64 to XXXX as square meters

set someObject65 to XXXX as square meters

set someObject66 to XXXX as square miles

set someObject67 to XXXX as square yards

set someObject68 to XXXX as cubic centimeters

set someObject69 to XXXX as cubic centimeters

set someObject70 to XXXX as cubic feet

set someObject71 to XXXX as cubic inches

set someObject72 to XXXX as cubic meters

set someObject73 to XXXX as cubic meters

set someObject74 to XXXX as cubic yards

set someObject75 to XXXX as gallons

set someObject76 to XXXX as liters

set someObject77 to XXXX as liters

set someObject78 to XXXX as quarts

set someObject79 to XXXX as grams

set someObject80 to XXXX as kilograms

set someObject81 to XXXX as ounces

set someObject82 to XXXX as pounds

set someObject83 to XXXX as degrees Celsius

set someObject84 to XXXX as degrees Fahrenheit

set someObject85 to XXXX as degrees Kelvin

起動時に消去する項目

MacOS9　的には『 起動時に消去する項目』
OSXのUnix的には　『/tmp』
OSX10.6的には　『/var/folder/XXX/XXXXX/:TemporaryItems』

この中にある物は
起動時に削除されます。

AppleScriptでは

set TemporaryItemsFolder to path to temporary items

tell application "Finder"

open TemporaryItemsFolder

end tell

tell application "Finder"

activate

set startupDiskName to path to startup disk as Unicode text

set tmpPathTXT to startupDiskName & "private:tmp:" as Unicode text

set tmpPath to tmpPathTXT as alias

open tmpPath

end tell

こんな感じで指定できますね。

「TemporaryItems.rtf」をダウンロード[Download]

「TemporaryItems.scpt.zip」をダウンロード[Download]

[AppleScript]日付の基本

AppleScriptでの日付の整形方法のヒント

↑このような戻り値になるのは

↓書式の設定が反映されているのですが

内部的には英語で動作しています。

そんな事になっていますので
今日の日付の変換は英語で行なえます。

set nowTime to my DateAndTIme(current date)

------------------#ここからサブルーチン

to DateAndTIme(theDate)

set y to (year of theDate)

set m to my monthNumStr(month of theDate)

set d to day of theDate

set hms to time of theDate

set hh to h of sec2hms(hms)

set mm to m of sec2hms(hms)

set ss to s of sec2hms(hms)

return (y as text) & my zero1(m) & my zero1(d)

end DateAndTIme

------------------#月表示を数字に置き換える

to monthNumStr(theMonth)

set monList to {January, February, March, April, May, June, July, August, September, October, November, December}

repeat with i from 1 to 12

if item i of monList is theMonth then exit repeat

end repeat

return i

end monthNumStr

------------------#ゼロサプレス

to zero1(n)

if n < 10 then

return "0" & n

else

return n as text

end if

end zero1

------------------#時間表示を：で分割

to sec2hms(sec)

set ret to {h:0, m:0, s:0}

set h of ret to sec div hours

set m of ret to (sec - (h of ret) * hours) div minutes

set s of ret to sec mod minutes

return ret

end sec2hms

と
このようにしておく事で
『ユーザーの環境設定』に左右されないって
事になりますね。

「yyyymmdd.rtf」をダウンロード[Download]

「yyyymmdd.scpt.zip」をダウンロード
[Download]

日時関係のオプションはだいたい
こんな感じ

tell current application

set DateAndTIme to my (current date)

set nowYear to my year of (current date)

set nowMonth to the month of (current date)

set nowMonthNo to the month of (current date) as number

set nowDay to the day of (current date)

set nowWeekday to the weekday of (current date)

set nowWeekdayNo to the weekday of (current date) as number

set nowHours to the hours of (current date)

set nowMinutes to the minutes of (current date)

set nowSecond to the seconds of (current date)

set nowTime to the time of (current date)

set nowDateString to the date string of (current date)

set nowTimeString to the time string of (current date)

set nowDateList to the {year, month, day} of (current date)

set nowDay to the (DateAndTIme) + (2 * days)

set nowDay to the (DateAndTIme) + (2 * hours)

end tell

戻り値は実際に試してみてください。

例えば２４時間後を求めるなら

tell current application

set DateAndTIme to my (current date)

set nowDay to the (DateAndTIme) + (24 * hours)

end tell

で
６０日後
って事なら

tell current application

set DateAndTIme to my (current date)

set nowDay to the (DateAndTIme) + (60 * days)

end tell

になります。

「now.rtf」をダウンロード[Download]

「now.scpt.zip」をダウンロード[Download]

日付だけでなく
時間も入れたい場合は
このようになりますね。

set nowTime to my DateAndTIme(current date)

--------------------------------------------------#ここからサブルーチン

to DateAndTIme(theDate)

set y to (year of theDate)

set m to my monthNumStr(month of theDate)

set d to day of theDate

set hms to time of theDate

set hh to h of sec2hms(hms)

set mm to m of sec2hms(hms)

set ss to s of sec2hms(hms)

return (y as text) & my zero1(m) & my zero1(d) & "_" & zero1(hh) & zero1(mm) & zero1(ss)

end DateAndTIme

------------------#月表示を数字に置き換える

to monthNumStr(theMonth)

set monList to {January, February, March, April, May, June, July, August, September, October, November, December}

repeat with i from 1 to 12

if item i of monList is theMonth then exit repeat

end repeat

return i

end monthNumStr

------------------#ゼロサプレス

to zero1(n)

if n < 10 then

return "0" & n

else

return n as text

end if

end zero1

------------------#時間表示を：で分割

to sec2hms(sec)

set ret to {h:0, m:0, s:0}

set h of ret to sec div hours

set m of ret to (sec - (h of ret) * hours) div minutes

set s of ret to sec mod minutes

return ret

end sec2hms

「yyyymmdd_hhmmss.rtf」をダウンロード[Download]

「yyyymmdd_hhmmss.scpt.zip」をダウンロード[Download]

で
デスクトップフォルダに『今日の日付』のフォルダ作ったり

今日の日付のファイル名に変更したり

と
色々工夫できますね。

set nowTime to my DateAndTIme(current date)

tell application "Finder"

try

make new folder at (path to desktop folder from user domain as alias with folder creation) with properties {name:nowTime}

end try

end tell

--------------------------------------------------#ここからサブルーチン

to DateAndTIme(theDate)

set y to (year of theDate)

set m to my monthNumStr(month of theDate)

set d to day of theDate

set hms to time of theDate

set hh to h of sec2hms(hms)

set mm to m of sec2hms(hms)

set ss to s of sec2hms(hms)

return (y as text) & my zero1(m) & my zero1(d)

end DateAndTIme

------------------#月表示を数字に置き換える

to monthNumStr(theMonth)

set monList to {January, February, March, April, May, June, July, August, September, October, November, December}

repeat with i from 1 to 12

if item i of monList is theMonth then exit repeat

end repeat

return i

end monthNumStr

------------------#ゼロサプレス

to zero1(n)

if n < 10 then

return "0" & n

else

return n as text

end if

end zero1

------------------#時間表示を：で分割

to sec2hms(sec)

set ret to {h:0, m:0, s:0}

set h of ret to sec div hours

set m of ret to (sec - (h of ret) * hours) div minutes

set s of ret to sec mod minutes

return ret

end sec2hms

「yyyymmdd__make_folder.scpt.zip」をダウンロード[Download]

「yyyymmdd__make_folder.scpt.rtf」をダウンロード[Download]

 
ワンポイントで
月番号
と
曜日番号
は
as number
とする事で数値でも表示されます。

でも

do shell script "date '+%Y%m%d_%k%M%S'"

ってしちゃうのが
一番早いね......笑

info 基本のおさらい

なんか？気が向いたので
基本のおさらいな意味で
info for
ファイルやフォルダの
情報を取得する時に使います。

私はファイルをリネームする時に
拡張子を取得する時とかに良く使います。

詳細はこちら[LINK]のAppleのページにあります。

name	項目の名前	Unicode text
displayed name	表示される名前	Unicode text
name extension	項目の名前の拡張子	Unicode text
bundle identifier	パッケージバンドルID	Unicode text
kind	項目の種類。	Unicode text
default application	項目を開くアプリケーション	alias
creation date	項目が作成された日付。	date
modification date	最後に変更された日付	date
file type	項目のファイルタイプ	plain text
file creator	項目のクリエータ・タイプ	plain text
short version	の短いバージョン	plain text
long version	長いバージョン	plain text
size	項目のサイズ（バイト単位）。	integer
alias	エイリアスファイルかどうか。	boolean
folder	項目がフォルダかどうか。	boolean
package folder	項目がパッケージかどうか。	boolean
extension hidden	拡張子がユーザに非表示かどうか。	boolean
visible	項目が可視かどうか。	boolean
locked	項目がロックされているかどうか。	boolean
busy status	項目が現在使用中かどうか。	boolean
icon position	デスクトップ上の座標。	point
folder window	ウインドウの座標	bounding rectangle

戻りの値は
Unicode text ：ユニコードテキスト
integer：整数のみ
plain text：これはstringに変更になっています
string：文字列
text:CFUserTextEncodingのデフォルトエンコードのテキスト（日本語 MacOS）
alias：エイリアス　ファイルの位置情報（データ）
date：日本語だと平成y年m月d日水曜日 hh:mm:ss
アメリカ表記だと"Wednesday, May d yyyy hh:mm:ss PM", とか

 
ファイルの情報を取得するサンプル

「InfoFile.rtf」をダウンロード
「InfoFile.applescript.txt」をダウンロード

 
フォルダの情報を取得するサンプル

「FolderInfo.rtf」をダウンロード
「InfoFolder.applescript.txt」をダウンロード

 
info for Fileな場合

set FilePass to result as alias
で
FilePassに　aliasが格納されていますから

set FileName to name of FilePass
とする事で
FileNameに取得したファイルのファイル名だけ
が格納出来るわけです。

同じように

set FileName to size of FilePass
sizeならファイルサイズが取得できますし
name extension　で拡張子を取得する事ができます

 
info for Folderな場合は

set Folderstr to name of FolderPass
set Folderstr to displayed name of FolderPass
の違いも確認できます。
し

if kind of FolderPass is "フォルダ" then
set str to "フォルダです"
else
set str to "ファイルです"
end if
こんな風に処理の分岐をする事もできますね。

[AppleScript]macosxautomation

macosxautomation.com

AppleScript[LINK]
Services[LINK]
Automator[LINK]

【AppleScript】path to

AppleScript 2.1 Help【英語】
AppleScript 2.1 Help【日本語】

application support folder	アプリケーションサポート
applications folder	アプリケーションフォルダ
current user folder	現在ログイン中のユーザフォルダ
desktop folder	デスクトップ
desktop pictures folder	デスクトップピクチャ・フォルダ
documents folder	書類フォルダ
favorites folder	よく使う項目フォルダ
fonts folder	フォント
help folder	ヘルプフォルダ
home folder	ホームフォルダ
keychain folder	キーチェーンフォルダ
library folder	ライブラリフォルダ
modem scripts folder	モデムスクリプト
movies folder	ムービーフォルダ
music folder	ミュージックフォルダ
pictures folder	ピクチャフォルダ
preferences folder	環境設定
printer descriptions folder	プリンタ記述
public folder	パブリックフォルダ
scripting additions folder	スクリプティング機能追加
scripts folder	スクリプトフォルダ
shared documents folder	共有書類フォルダ
sites folder	サイトフォルダ
system folder	システムフォルダ
trash folder	ゴミ箱
users folder	ユーザフォルダ
utilities folder	ユーティリティフォルダ
desktop	デスクトップ
folder action scripts	フォルダアクションスクリプト
fonts	フォント
frontmost application	最前面のアプリケーション
help	ヘルプフォルダ
modem scripts	モデムスクリプト
printer descriptions	プリンタ記述
preferences	環境設定
scripting additions	スクリプティング機能追加
shared documents	共有書類フォルダ
shared libraries	共有ライブラリ
startup disk	起動ディスク
system preferences	システム環境設定
temporary items	暫定項目
trash	ゴミ箱
voices	音声

このdomainから
パスを取得する方法知りませんでした...汗
まだまだビギナーです。

set Pathto01 to the path to application support

set Pathto02 to the path to applications folder

set Pathto03 to the path to desktop

set Pathto04 to the path to desktop pictures folder

set Pathto05 to the path to documents folder

set Pathto06 to the path to favorites folder

set Pathto07 to the path to Folder Action scripts

set Pathto08 to the path to fonts

set Pathto09 to the path to frontmost application

set Pathto10 to the path to help folder

set Pathto11 to the path to home folder

set Pathto12 to the path to keychain folder

set Pathto13 to the path to library folder

set Pathto14 to the path to modem scripts

set Pathto15 to the path to movies folder

set Pathto16 to the path to pictures folder

set Pathto17 to the path to preferences

set Pathto18 to the path to printer descriptions

set Pathto19 to the path to public folder

set Pathto20 to the path to scripts folder

set Pathto21 to the path to scripting additions

set Pathto22 to the path to shared libraries

set Pathto23 to the path to shared documents folder

set Pathto24 to the path to sites folder

set Pathto25 to the path to trash

set Pathto26 to the path to startup disk

set Pathto27 to the path to system folder

set Pathto28 to the path to temporary items

set Pathto29 to the path to utilities folder

set Pathto30 to the path to voices

set Pathto31 to the path to current user folder

set Pathto32 to the path to users folder

set Pathto33 to the path to system preferences

と

set Pathto01 to the path to application support from user domain

set Pathto02 to the path to applications folder from user domain

set Pathto03 to the path to desktop from user domain

set Pathto04 to the path to desktop pictures folder from user domain

set Pathto05 to the path to documents folder from user domain

set Pathto06 to the path to favorites folder from user domain

set Pathto07 to the path to Folder Action scripts from user domain

set Pathto08 to the path to fonts from user domain

set Pathto09 to the path to frontmost application from user domain

set Pathto10 to the path to help folder from user domain

set Pathto11 to the path to home folder from user domain

set Pathto12 to the path to keychain folder from user domain

set Pathto13 to the path to library folder from user domain

set Pathto14 to the path to modem scripts from user domain

set Pathto15 to the path to movies folder from user domain

set Pathto16 to the path to pictures folder from user domain

set Pathto17 to the path to preferences from user domain

set Pathto18 to the path to printer descriptions from user domain

set Pathto19 to the path to public folder from user domain

set Pathto20 to the path to scripts folder from user domain

set Pathto21 to the path to scripting additions from user domain

set Pathto22 to the path to shared libraries from user domain

set Pathto23 to the path to shared documents folder from user domain

set Pathto24 to the path to sites folder from user domain

set Pathto25 to the path to trash from user domain

set Pathto26 to the path to startup disk from user domain

set Pathto27 to the path to system folder from user domain

set Pathto28 to the path to temporary items from user domain

set Pathto29 to the path to utilities folder from user domain

set Pathto30 to the path to voices from user domain

set Pathto31 to the path to current user folder from user domain

set Pathto32 to the path to users folder from user domain

set Pathto33 to the path to system preferences from user domain

と

--set Pathto01 to the path to application support from system domain

set Pathto02 to the path to applications folder from system domain

--set Pathto03 to the path to desktop from system domain

--set Pathto04 to the path to desktop pictures folder from system domain

--set Pathto05 to the path to documents folder from system domain

--set Pathto06 to the path to favorites folder from system domain

--set Pathto07 to the path to Folder Action scripts from system domain

set Pathto08 to the path to fonts from system domain

set Pathto09 to the path to frontmost application from system domain

set Pathto10 to the path to help folder from system domain

set Pathto11 to the path to home folder from system domain

set Pathto12 to the path to keychain folder from system domain

set Pathto13 to the path to library folder from system domain

set Pathto14 to the path to modem scripts from system domain

--set Pathto15 to the path to movies folder from system domain

--set Pathto16 to the path to pictures folder from system domain

--set Pathto17 to the path to preferences from system domain

set Pathto18 to the path to printer descriptions from system domain

--set Pathto19 to the path to public folder from system domain

--set Pathto20 to the path to scripts folder from system domain

set Pathto21 to the path to scripting additions from system domain

set Pathto22 to the path to shared libraries from system domain

set Pathto23 to the path to shared documents folder from system domain

--set Pathto24 to the path to sites folder from system domain

--set Pathto25 to the path to trash from system domain

set Pathto26 to the path to startup disk from system domain

set Pathto27 to the path to system folder from system domain

set Pathto28 to the path to temporary items from system domain

set Pathto29 to the path to utilities folder from system domain

set Pathto30 to the path to voices from system domain

set Pathto31 to the path to current user folder from system domain

set Pathto32 to the path to users folder from system domain

set Pathto33 to the path to system preferences from system domain

と

set Pathto01 to the path to application support from local domain

set Pathto02 to the path to applications folder from local domain

set Pathto03 to the path to desktop from local domain

set Pathto04 to the path to desktop pictures folder from local domain

set Pathto05 to the path to documents folder from local domain

set Pathto06 to the path to favorites folder from local domain

set Pathto07 to the path to Folder Action scripts from local domain

set Pathto08 to the path to fonts from local domain

set Pathto09 to the path to frontmost application from local domain

set Pathto10 to the path to help folder from local domain

set Pathto11 to the path to home folder from local domain

set Pathto12 to the path to keychain folder from local domain

set Pathto13 to the path to library folder from local domain

set Pathto14 to the path to modem scripts from local domain

set Pathto15 to the path to movies folder from local domain

set Pathto16 to the path to pictures folder from local domain

set Pathto17 to the path to preferences from local domain

set Pathto18 to the path to printer descriptions from local domain

set Pathto19 to the path to public folder from local domain

set Pathto20 to the path to scripts folder from local domain

set Pathto21 to the path to scripting additions from local domain

set Pathto22 to the path to shared libraries from local domain

set Pathto23 to the path to shared documents folder from local domain

set Pathto24 to the path to sites folder from local domain

--set Pathto25 to the path to trash from local domain

set Pathto26 to the path to startup disk from local domain

set Pathto27 to the path to system folder from local domain

set Pathto28 to the path to temporary items from local domain

set Pathto29 to the path to utilities folder from local domain

--set Pathto30 to the path to voices from local domain

set Pathto31 to the path to current user folder from local domain

set Pathto32 to the path to users folder from local domain

set Pathto33 to the path to system preferences from local domain

の違いを理解できれば
良いですね。

10.6からは
(path to downloads folder)
で
ダウンロードフォルダを指定する事も出来るようになった