Function Key Codes

F1: 122
F2: 120
F3: 99
F4: 118
F5: 96
F6: 97
F7: 98
F8: 100
F9: 101
F10: 109
F11: 103

tell application "System Events"
key code XXXX
end tell

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]