–指定バンドルIDのアプリケーション内のResourcesフォルダの中の現在のロケールのフォルダ内のLocalizable.strings内の指定タグに対応する値を取得
–iTunesのような「不適切なローカライズ」に対応するために、リソース内のローカライズデータからオブジェクト名を取得
on retLocalizedStringFromApp(locLabel, bundleID)
　　
　　set pRes to retExistenceOfProcessByBundleID(bundleID) of me
　　
　　if pRes is not equal to false then
　　　　–指定Bundle IDのプロセスが起動していた場合
　　　　tell application "System Events"
　　　　　　tell pRes
　　　　　　　　set appFile to application file
　　　　　　end tell
　　　　end tell
　　　　
　　else
　　　　–指定Bundle IDのプロセスが起動していなかった場合
　　　　tell application "Finder"
　　　　　　try
　　　　　　　　set appFile to application file id bundleID
　　　　　　on error
　　　　　　　　return
　　　　　　end try
　　　　end tell
　　　　
　　　　set appFile to appFile as alias
　　end if
　　
　　
　　set aStr to localized string locLabel in bundle appFile
　　
end retLocalizedStringFromApp

–指定のバンドルIDのプロセスが起動していればプロセスへの参照を返す、なければfalseを返す
on retExistenceOfProcessByBundleID(bundleID)
　　tell application "System Events"
　　　　set aProc to every process whose bundle identifier is equal to bundleID
　　　　if aProc = {} then return false
　　　　
　　　　set aProc to contents of first item of aProc
　　　　return aProc
　　end tell
end retExistenceOfProcessByBundleID

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application “iTunes”
　　tell source aRes
　　　　tell playlist aRes
　　　　　　count every track
　　　　end tell
　　end tell
end tell

–指定バンドルIDのアプリケーション内のResourcesフォルダの中の現在のロケールのフォルダ内のLocalizable.strings内の指定タグに対応する値を取得
–iTunesのような「不適切なローカライズ」に対応するために、リソース内のローカライズデータからオブジェクト名を取得
on retLocalizedStringFromApp(locLabel, bundleID)
　　
　　set pRes to retExistenceOfProcessByBundleID(bundleID) of me
　　
　　if pRes is not equal to false then
　　　　–指定Bundle IDのプロセスが起動していた場合
　　　　tell application “System Events”
　　　　　　tell pRes
　　　　　　　　set appFile to application file
　　　　　　end tell
　　　　end tell
　　　　
　　else
　　　　–指定Bundle IDのプロセスが起動していなかった場合
　　　　tell application “Finder”
　　　　　　try
　　　　　　　　set appFile to application file id bundleID
　　　　　　on error
　　　　　　　　return
　　　　　　end try
　　　　end tell
　　　　
　　　　set appFile to appFile as alias
　　end if
　　
　　
　　set aStr to localized string locLabel in bundle appFile
　　
end retLocalizedStringFromApp

–指定のバンドルIDのプロセスが起動していればプロセスへの参照を返す、なければfalseを返す
on retExistenceOfProcessByBundleID(bundleID)
　　tell application “System Events”
　　　　set aProc to every process whose bundle identifier is equal to bundleID
　　　　if aProc = {} then return false
　　　　
　　　　set aProc to contents of first item of aProc
　　　　return aProc
　　end tell
end retExistenceOfProcessByBundleID

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

on retLocalizedStringFromApp(locLabel, appID)
　　
　　tell application "Finder"
　　　　try
　　　　　　set appFile to application file id appID
　　　　on error
　　　　　　return
　　　　end try
　　end tell
　　
　　set appFile to appFile as alias
　　
　　set aStr to localized string locLabel in bundle appFile
　　
end retLocalizedStringFromApp

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

on retLocalizedStringFromApp(locLabel, appName)
　　
　　launchAnApp(appName) of me
　　
　　tell application “System Events”
　　　　set aProc to process appName
　　　　if aProc = “” then return
　　　　
　　　　tell aProc
　　　　　　set appPath to application file
　　　　end tell
　　end tell
　　
　　set aStr to localized string locLabel in bundle appPath –ライブラリ
　　
end retLocalizedStringFromApp

on launchAnApp(appName)
　　tell application appName to launch
end launchAnApp

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–現在編集中のプロジェクトに含まれるInfo.plistファイルを検出
set projPath to POSIX file projPath

tell application “Finder”
　　set parantFol to (folder of file projPath) as alias
　　tell folder parantFol
　　　　set infoP to exists of file “info.plist”
　　　　if infoP = false then
　　　　　　display dialog “現在編集中のプロジェクトにはInfo.plistが入っていません。” buttons {“OK”} default button 1 with icon 1
　　　　　　return
　　　　end if
　　end tell
end tell

–Info.plistファイルからバンドル情報を取得する
set pListPath to (parantFol as string) & “Info.plist”
tell application “System Events”
　　set vRec to value of property list file (pListPath as string) –plist fileから値を読み取る
end tell
set infoRes to |CFBundleIdentifier| of vRec

–plistファイルを消す
set aPath to (path to preferences from user domain) as string
set infoPlistPath to aPath & infoRes & “.plist”

try
　　do shell script “rm -f “ & quoted form of POSIX path of infoPlistPath
　　tell application “Xcode”
　　　　activate
　　　　display dialog “plistファイルを消去しました” buttons {“OK”} default button 1 with icon 1
　　end tell
on error
　　tell application “Xcode”
　　　　activate
　　　　display dialog “plistファイルの消去に失敗しました” buttons {“OK”} default button 1 with icon 1
　　end tell
end try

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

【おしらせ】
右京ティーカップ絶賛発売中！
ＰＣサイトと携帯サイトも充実！
ＰＣ：　ｈｔｔｐ：／／ｗｗｗ．ｔｖ−ａｓａｈｉ．ｃｏ．ｊｐ／ａｉｂｏｕ／
携帯：メニュー ⇒　テレビ　⇒ テレビ朝日 ⇒ 相棒”}}
*)

–m2TVの録画ライブラリ情報を取得する
on getM2TV_LibData()
　　set docFol to (path to documents folder) as string
　　set prgFilePath to docFol & “MacTV:MacTVLibrary.plist”
　　
　　–設定ファイルが存在しなければリターン
　　tell application “Finder”
　　　　set aRes to exists of file prgFilePath
　　end tell
　　if aRes = false then return
　　
　　–m2TVの録画ライブラリ情報ファイルから部分的に情報を読み込む
　　set prefsFile to prgFilePath as alias
　　tell application “System Events”
　　　　set prgList to {}
　　　　
　　　　set vRec to value of property list file (prefsFile as string) –plist fileから値を読み取る
　　　　repeat with i in vRec
　　　　　　set j to contents of i
　　　　　　
　　　　　　set eDate to eventDate of eventInfo of j
　　　　　　set stationName to station of j
　　　　　　set progTitle to |title| of j
　　　　　　set aDuration to eventDuration of eventInfo of j
　　　　　　set eventDescDat to eventDesc of eventInfo of j
　　　　　　set eventDetail to eventDetails of eventInfo of j
　　　　　　
　　　　　　set the end of prgList to {eventDate:eDate, durationSeconds:aDuration, sName:stationName, pTitle:progTitle, eDesc:eventDescDat, eDetail:eventDetail}
　　　　　　
　　　　　　
　　　　end repeat
　　end tell
　　
　　return prgList
　　
end getM2TV_LibData

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–m2TVの録画予約スケジュールを取得する
on getM2TV_recSchedule()
　　set docFol to (path to documents folder) as string
　　set prgFilePath to docFol & “MacTV:MacTVSchedule.plist”
　　
　　–設定ファイルが存在しなければリターン
　　tell application “Finder”
　　　　set aRes to exists of file prgFilePath
　　end tell
　　if aRes = false then return
　　
　　–m2TVの録画情報ファイルから部分的に情報を読み込む
　　set prefsFile to prgFilePath as alias
　　tell application “System Events”
　　　　set prgList to {}
　　　　
　　　　set vRec to value of property list file (prefsFile as string) –plist fileから値を読み取る
　　　　repeat with i in vRec
　　　　　　set j to contents of i
　　　　　　set startDate to |start| of j
　　　　　　set endDate to |end| of j
　　　　　　set stationName to station of j
　　　　　　set progTitle to |title| of j
　　　　　　set aDuration to eventDuration of eventInfo of j
　　　　　　set the end of prgList to {sDate:startDate, eDate:endDate, durationSeconds:aDuration, sName:stationName, pTitle:progTitle}
　　　　end repeat
　　end tell
　　
　　return prgList
　　
end getM2TV_recSchedule

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set a to choose file
set aP to POSIX path of a
set infoPath to aP & "Contents/Info.plist"

tell application "System Events"
　　set infoplistFile to contents of property list file infoPath
　　set anExecutable to value of property list item "CFBundleExecutable" of infoplistFile
end tell

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–PlistファイルをParseして返す
on parseAndRetPlistEntryFromFile(aFile)
　　set f to POSIX path of aFile
　　set res to {}
　　try
　　　　tell application “System Events”
　　　　　　set plif to property list file f
　　　　　　set pitm to every property list item of plif
　　　　　　repeat with p in pitm
　　　　　　　　set end of res to {name, value} of p
　　　　　　end repeat
　　　　end tell
　　on error
　　　　return {}
　　end try
　　return res
end parseAndRetPlistEntryFromFile

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application "System Events"
　　set movie_contents to QuickTime file movie_file
　　set anotL to every annotation of movie_contents
　　set ano1 to first item of anotL
　　properties of ano1
　　–> {name:"Full Name", class:annotation, full text:"Terminator Salvation", id:"©nam"}
end tell

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application "System Events"
　　set qtFile to QuickTime file aFile
　　set trackList to (get every track of qtFile)
　　repeat with aTrack in trackList
　　　　set end of typeList to (name of aTrack)
　　　　set end of typeList to (type class of aTrack)
　　　　set end of typeList to (audio channel count of aTrack)
　　　　set end of typeList to (audio sample rate of aTrack)
　　　　set end of typeList to (audio sample size of aTrack)
　　　　
　　　　log typeList
　　　　–> (*Video Track, current application, 0, 0.0, 0, Sound Track, current application, 0, 0.0, 0*)
　　end repeat
end tell

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application “System Events”
　　set movie_contents to contents of movie file aFile
　　set track1_props to properties of track 1 of movie_contents
end tell
track1_props

–> {visual characteristic:false, href:missing value, data size:367752336, duration:1451720, modification time:date “2009年10月13日火曜日 4:41:49″, high quality:false, kind:missing value, creation time:date “2009年10月13日火曜日 4:41:49″, audio sample size:0, name:”Video Track”, type:missing value, data rate:0, audio characteristic:false, audio sample rate:0.0, enabled:true, class:track, video depth:0, dimensions:{1920.0, 1080.0}, start time:0, type class:missing value, audio channel count:0, data format:missing value}

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application "System Events"
　　set ap1 to a reference to appearance preferences
　　tell ap1
　　　　set highlight color to aCol
　　end tell
end tell

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に