–set aStr to “getColorR:(float *)r G:(float *)g B:(float *)b atIndex:(int)i ofSimulationType:(int)type;”
set aStr to “drawAtPoint:(CGPoint)point forWidth:(CGFloat)width withFont:(UIFont *)font minFontSize:(CGFloat)minFontSize actualFontSize:(CGFloat *)actualFontSize lineBreakMode:(UILineBreakMode)lineBreakMode baselineAdjustment:(UIBaselineAdjustment)baselineAdjustment”

set sStr to “(”
set eStr to “)”

–変数の型で２語に別れるものを徹底的に置換
set aStr to repChar(aStr, “unsigned short”, “unsignedshort”) of me
set aStr to repChar(aStr, “signed short”, “signedshort”) of me
set aStr to repChar(aStr, “signed int”, “signedint”) of me
set aStr to repChar(aStr, “unsigned int”, “unsignedint”) of me

if aStr does not end with “;” then
　　set aStr to aStr & “;”
end if

set aStr to trimStrByCharPair(aStr, sStr, eStr, 0, 0) of me

set aStr to repChar(aStr, tab, “”) of me
set aStr to repChar(aStr, character id 10, “”) of me

set aStr to repChar(aStr, “;”, ” “) of me
set aStr to repChar(aStr, “:”, “_”) of me

set bList to parseByDelim(aStr, {“_”, ” “}) of me
set aRes to “”
repeat with i from 1 to ((length of bList) - 1) by 2
　　set j to contents of item i of bList
　　set aRes to aRes & (j & “_”)
end repeat

set bRes to “(”
repeat with i from 2 to (length of bList) by 2
　　set j to contents of item i of bList
　　set bRes to bRes & (j & “, “)
end repeat
set bRes to bRes & “)”

set bRes to repChar(bRes, “, )”, “)”) of me –ゴミ掃除

set cRes to aRes & bRes
–>”drawAtPoint_forWidth_withFont_minFontSize_actualFontSize_lineBreakMode_baselineAdjustment_(point, width, font, minFontSize, actualFontSize, lineBreakMode, baselineAdjustment)”

–指定文字列から、指定ペア文字で囲まれる部分を削除。前方からスキャンして削除実行
on trimStrByCharPair(aStr, sStr, eStr, sTrimOffset, eTrimOffset)
　　repeat
　　　　set sOffst to offset of sStr in aStr
　　　　set eOffst to offset of eStr in aStr
　　　　
　　　　set aLen to length of aStr
　　　　if aLen < 2 then return “”
　　　　
　　　　if sOffst = 0 or eOffst = 0 then
　　　　　　exit repeat
　　　　end if
　　　　
　　　　if sOffst > 1 then
　　　　　　set tmp1Str to text 1 thru (sOffst - 1 + sTrimOffset) of aStr
　　　　　　set tmp2Str to text (eOffst + 1 + eTrimOffset) thru -1 of aStr
　　　　　　set aStr to tmp1Str & tmp2Str
　　　　　　
　　　　else if sOffst = 1 then
　　　　　　set aStr to text (eOffst + 1) thru -1 of aStr
　　　　　　
　　　　else if sOffst = aLen - 1 then
　　　　　　set aStr to “”
　　　　　　
　　　　end if
　　　　
　　end repeat
　　
　　return aStr
end trimStrByCharPair

–文字置換ルーチン
on repChar(origText, targStr, repStr)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

–与えられた文字列を、指定デリミタ文字でparseしてリストにして返す
on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

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

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

–> {1920, 1200}

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

–> {”1920″, “1200″}

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

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

–17インチMacBook Pro本体ディスプレイ（Main） ＋ 外付け24インチモニタ（1920 x 1080）（Sub）の場合
set aRes to retDisplayResolution() of me
–> {{1920, 1200}, {1920, 1080}}

–17インチMacBook Pro本体ディスプレイ（Sub） ＋ 外付け24インチモニタ（1920 x 1080）（Main）の場合
set aRes to retDisplayResolution() of me
–> {{1920, 1200}, {1920, 1080}}

–モニタ解像度を取得。複数モニタ接続時にはリストで列挙
on retDisplayResolution()
　　
　　set sRes to do shell script “/usr/sbin/system_profiler SPDisplaysDataType | grep Resolution”
　　
　　set sList to paragraphs of sRes
　　set resList to {}
　　
　　repeat with i in sList
　　　　set j to contents of i
　　　　set x1 to word 2 of j as number
　　　　set y1 to word 4 of j as number
　　　　set the end of resList to {x1, y1}
　　end repeat
　　
　　return resList
　　
end retDisplayResolution

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

–set t1 to current date

–データの初期化
set dList of spdUp to {}
set selList of spdUp to {}

–iPhotoからデータを取得する
tell application "iPhoto"
　　set selList of spdUp to selection
　　
　　if (selList of spdUp) = {} then
　　　　display dialog "何も選択されていません。" buttons {"OK"} default button 1
　　　　return
　　end if
　　
　　repeat with i in (selList of spdUp)
　　　　set the end of (dList of spdUp) to (date of i)
　　end repeat
end tell

set {n1, n2, n3, n4, n5, n6, n7} to {0, 0, 0, 0, 0, 0, 0}

repeat with i in (dList of spdUp)
　　set j to contents of i
　　set aWDnum to weekday of j as number
　　if aWDnum = 1 then
　　　　set n1 to n1 + 1
　　else if aWDnum = 2 then
　　　　set n2 to n2 + 1
　　else if aWDnum = 3 then
　　　　set n3 to n3 + 1
　　else if aWDnum = 4 then
　　　　set n4 to n4 + 1
　　else if aWDnum = 5 then
　　　　set n5 to n5 + 1
　　else if aWDnum = 6 then
　　　　set n6 to n6 + 1
　　else if aWDnum = 7 then
　　　　set n7 to n7 + 1
　　end if
end repeat

return {n1, n2, n3, n4, n5, n6, n7}

–> {309, 10, 9, 10, 17, 51, 375}
–{Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday}

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

–set t1 to current date

–データの初期化
set dList of spdUp to {}
set eList of spdUp to {}
set selList of spdUp to {}

–iPhotoからデータを取得する
tell application “iPhoto”
　　set selList of spdUp to selection
　　
　　if (selList of spdUp) = {} then
　　　　display dialog “何も選択されていません。” buttons {“OK”} default button 1
　　　　return
　　end if
　　
　　repeat with i in (selList of spdUp)
　　　　set the end of (dList of spdUp) to date of i
　　end repeat
end tell

–ソート
set (dList of spdUp) to shellSort5(dList of spdUp) of me

–選択中の写真の最初の日付、最近の日付を求める
set minDate to contents of first item of (dList of spdUp)
set maxDate to contents of last item of (dList of spdUp)

–開始日、終了日の間の{年,月}のリストを取得する
set mmList to retYearMonthWithinPeriod(minDate, maxDate) of me

set aLen to length of (dList of spdUp)
set hitList to {}

set aCount to 0

set aPointer to 1
set hitF to false

repeat with i in mmList
　　set {aYear, aMonth} to i
　　set sDate to (aYear as string) & “/” & (aMonth as string) & “/1″
　　set eDate to (aYear as string) & “/” & (aMonth as string) & “/” & getMlen(aYear, aMonth) of me as string
　　set sDateObj to date sDate
　　set eDateObj to date eDate
　　
　　
　　repeat
　　　　set j to contents of item aPointer of (dList of spdUp)
　　　　if (sDateObj ≤ j) and (j ≤ eDateObj) then
　　　　　　
　　　　　　if hitF = false then
　　　　　　　　set hitF to true
　　　　　　　　set aCount to 1
　　　　　　　　
　　　　　　　　set aPointer to aPointer + 1
　　　　　　　　
　　　　　　else
　　　　　　　　set aCount to aCount + 1
　　　　　　　　set aPointer to aPointer + 1
　　　　　　end if
　　　　　　
　　　　else
　　　　　　
　　　　　　if hitF = true then
　　　　　　　　set the end of hitList to {aYear, aMonth, aCount}
　　　　　　　　set aCount to 0
　　　　　　　　set hitF to false
　　　　　　　　exit repeat
　　　　　　else
　　　　　　　　set the end of hitList to {aYear, aMonth, 0}
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　
　　　　end if
　　　　
　　　　if aPointer > aLen then
　　　　　　exit repeat
　　　　end if
　　　　
　　end repeat
　　
　　if aPointer > aLen then
　　　　exit repeat
　　end if
　　
end repeat

if hitF = true then
　　set the end of hitList to {aYear, aMonth, aCount}
end if

–set t2 to current date
–set t3 to t2 -t1
–> 93 sec

hitList
–> {{2009, 4, 2}, {2009, 5, 0}, {2009, 6, 0}, {2009, 7, 25}, {2009, 8, 0}, {2009, 9, 0}, {2009, 10, 1}, {2009, 11, 2}, {2009, 12, 7}, {2010, 1, 38}, {2010, 2, 41}, {2010, 3, 4}, {2010, 4, 36}, {2010, 5, 5}, {2010, 6, 3}, {2010, 7, 36}, {2010, 8, 26}, {2010, 9, 49}, {2010, 10, 8}, {2010, 11, 61}, {2010, 12, 23}, {2011, 1, 32}, {2011, 2, 40}, {2011, 3, 0}, {2011, 4, 26}, {2011, 5, 44}, {2011, 6, 10}, {2011, 7, 32}, {2011, 8, 41}, {2011, 9, 0}, {2011, 10, 0}, {2011, 11, 39}, {2011, 12, 51}, {2012, 1, 25}, {2012, 2, 0}, {2012, 3, 51}, {2012, 4, 23}}

on retYearMonthWithinPeriod(sDate, eDate)
　　
　　set sYear to year of sDate
　　set sMonth to month of sDate as number
　　
　　set eYear to year of eDate
　　set eMonth to month of eDate as number
　　
　　set mList to {}
　　
　　if sYear is equal to eYear then
　　　　
　　　　repeat with i from sMonth to eMonth
　　　　　　set the end of mList to {sYear, i}
　　　　end repeat
　　　　
　　else if sYear + 1 = eYear then
　　　　
　　　　repeat with i from sMonth to 12
　　　　　　set the end of mList to {sYear, i}
　　　　end repeat
　　　　
　　　　repeat with i from 1 to sMonth
　　　　　　set the end of mList to {eYear, i}
　　　　end repeat
　　　　
　　else
　　　　
　　　　repeat with i from sMonth to 12
　　　　　　set the end of mList to {sYear, i}
　　　　end repeat
　　　　
　　　　repeat with i from (sYear + 1) to (eYear - 1)
　　　　　　repeat with ii from 1 to 12
　　　　　　　　set the end of mList to {i, ii}
　　　　　　end repeat
　　　　end repeat
　　　　
　　　　repeat with i from 1 to sMonth
　　　　　　set the end of mList to {eYear, i}
　　　　end repeat
　　　　
　　end if
　　
　　return mList
end retYearMonthWithinPeriod

–最大値を取得する
on maximumFromList(nList)
　　script o
　　　　property nl : nList
　　end script
　　
　　set max to item 1 of o’s nl
　　repeat with i from 2 to (count nList)
　　　　set n to item i of o’s nl
　　　　if n > max then set max to n
　　end repeat
　　return max
　　
end maximumFromList

–最小値を取得する
on minimumFromList(nList)
　　script o
　　　　property nl : nList
　　end script
　　
　　set min to item 1 of o’s nl
　　repeat with i from 2 to (count nList)
　　　　set n to item i of o’s nl
　　　　if n < min then set min to n
　　end repeat
　　return min
　　
end minimumFromList

–指定月の長さを得る（日数）
on getMlen(aYear, aMonth)
　　
　　set aDat to (aYear as text) & “/” & (aMonth as text) & “/1″
　　if aMonth is not equal to 12 then
　　　　set eDat to ((aYear as text) & “/” & (aMonth + 1) as text) & “/1″
　　else
　　　　set eDat to ((aYear + 1) as text) & “/” & (1 as text) & “/1″
　　end if
　　
　　–set sDat to date aDat
　　set eDat to date eDat
　　set eDat to eDat - 1
　　
　　set mLen to day of eDat
　　return mLen
　　
end getMlen

–プレーンなAppleScriptベースでは最速ソート
on shellSort5(aSortList) – スクリプトオブジェクトを使用
　　script oBj
　　　　property list : aSortList
　　end script
　　set len to count oBj’s list’s items
　　set gap to 1
　　repeat while (gap ≤ len)
　　　　set gap to ((gap * 3) + 1)
　　end repeat
　　repeat while (gap > 0)
　　　　set gap to (gap div 3)
　　　　if (gap < len) then
　　　　　　repeat with i from gap to (len - 1)
　　　　　　　　set temp to oBj’s list’s item (i + 1)
　　　　　　　　set j to i
　　　　　　　　repeat while ((j ≥ gap) and (oBj’s list’s item (j - gap + 1) > temp))
　　　　　　　　　　set oBj’s list’s item (j + 1) to oBj’s list’s item (j - gap + 1)
　　　　　　　　　　set j to j - gap
　　　　　　　　end repeat
　　　　　　　　set oBj’s list’s item (j + 1) to temp
　　　　　　end repeat
　　　　end if
　　end repeat
　　return oBj’s list
end shellSort5

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

set aFilepath to choose file name with prompt "ムービーを保存するファイル名を入力"
set outFilepathPOSIX to POSIX path of aFilepath

tell application id "com.apple.QuickTimePlayerX"
　　–確実に処理を行うためにムービーをすべてクローズ
　　close every document without saving
　　
　　–録画開始
　　set recMov to (new movie recording)
　　tell recMov to start
end tell

–録画時間経過待ち
delay (recTime + 2) –秒単位でウェイト（UI系の動作により２秒程度ロスが発生するもよう）

tell application id "com.apple.QuickTimePlayerX"
　　–録画停止
　　tell recMov to stop –この操作で、QT7の設定に従ってムービーが保存される
　　
　　delay 1 –時間待ち
　　
　　tell document 1
　　　　–properties
　　　　set aProp to properties
　　　　close
　　end tell
end tell

set originPath to file of aProp

–QT Player 7が自動保存したファイルを移動＆リネーム
–ただし、自動保存したファイルのパスと移動先の衝突判定は省略
set movieOriginalFile to POSIX path of originPath
set sText to "mv " & quoted form of movieOriginalFile & " " & quoted form of outFilepathPOSIX
do shell script sText

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

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

tell application “Terminal”
　　set tabRef to a reference to (every tab of every window whose custom title is equal to targTabTitle)
　　
　　repeat with i in tabRef
　　　　do script “exit” in i
　　end repeat
　　
end tell

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

set aFilepath to choose file name with prompt "ムービーを保存するファイル名を入力"
set outFilepathPOSIX to POSIX path of aFilepath

tell application id "com.apple.quicktimeplayer"
　　–確実に処理を行うためにムービーをすべてクローズ
　　close every document without saving
　　
　　–録画開始
　　new movie recording
　　start recording 1
end tell

–録画時間経過待ち
delay recTime –秒単位でウェイト（ちょっとバカっぽい処理。本来はタイマー割り込みで時間待ちすべき）

tell application id "com.apple.quicktimeplayer"
　　–録画停止
　　stop recording 1 –この操作で、QT7の設定に従ってムービーが保存される
　　
　　delay 1 –時間待ち
　　
　　tell document 1
　　　　set originPath to original file –保存先のファイルのパスを取得しておく
　　　　close
　　end tell
end tell

–QT Player 7が自動保存したファイルを移動＆リネーム
–ただし、自動保存したファイルのパスと移動先の衝突判定は省略
set movieOriginalFile to POSIX path of originPath
set sText to "mv " & quoted form of movieOriginalFile & " " & quoted form of outFilepathPOSIX
do shell script sText

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

set sortDirecionF to false –true: ascending, false: descending

set resList to getSpecifiedFieldData(aList, “ID”, sortDirecionF) of me
–> {{9, 3, 4, 5, 6}, {3, 4, 5, 6, 7}, {1, 2, 3, 4, 5}}

–入れ子のリストから、指定フィールドのデータを取得する
–１アイテム目はフィールドラベル。2アイテム目以降をデータと見なして指定フィールドのデータをリストで返す
on getSpecifiedFieldData(aData, fieldName, sortAscendF)
　　–与えられたデータaDataの１アイテム目はフィールド名と見なす
　　set fieldList to contents of first item of aData
　　set dataList to contents of items 2 thru -1 of aData
　　
　　set fNum to getNumberOfField(fieldList, fieldName) of me
　　if fNum = 0 then return false
　　
　　if sortAscendF = true then
　　　　–Ascending
　　　　set resList to shellSortListAscending(dataList, fNum) of me
　　else
　　　　–Descending
　　　　set resList to shellSortListDecending(dataList, fNum) of me
　　end if
　　
　　–フィールドラベルを先頭に付けておく？？？
　　–set beginning of dataList to fieldList
　　
　　return resList
　　
end getSpecifiedFieldData

–与えられたリスト中における任意テキスト要素の出現アイテム番号
on getNumberOfField(aList, targFieldName)
　　set aCount to 1
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is equal to targFieldName then
　　　　　　return aCount
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　end repeat
　　
　　return 0 – no hit
end getNumberOfField

–シェルソートで入れ子のリストを昇順ソート
on shellSortListAscending(aSortList, keyItem)
　　script oBj
　　　　property list : aSortList
　　end script
　　
　　set n to count oBj’s list’s items
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of list of oBj
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of list of oBj) > (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of list of oBj) to (item (j - h + 1) of list of oBj)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of list of oBj to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　
　　return aSortList
end shellSortListAscending

–シェルソートで入れ子のリストを降順ソート
on shellSortListDecending(aSortList, keyItem)
　　script oBj
　　　　property list : aSortList
　　end script
　　
　　set n to count oBj’s list’s items
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of list of oBj
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of list of oBj) < (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of list of oBj) to (item (j - h + 1) of list of oBj)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of list of oBj to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　
　　return aSortList
end shellSortListDecending

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

set resList to getSpecifiedFieldData(aList, "名称") of me
–> {2, 3, 4}

–入れ子のリストから、指定フィールドのデータを取得する
–１アイテム目はフィールドラベル。2アイテム目以降をデータと見なして指定フィールドのデータをリストで返す
on getSpecifiedFieldData(aData, fieldName)
　　–与えられたデータaDataの１アイテム目はフィールド名と見なす
　　set fieldList to contents of first item of aData
　　set dataList to contents of items 2 thru -1 of aData
　　
　　set fNum to getNumberOfField(fieldList, fieldName) of me
　　if fNum = 0 then return false
　　
　　set resList to {}
　　repeat with i in dataList
　　　　set the end of resList to contents of item fNum of i
　　end repeat
　　
　　return resList
　　
end getSpecifiedFieldData

–与えられたリスト中における任意テキスト要素の出現アイテム番号
on getNumberOfField(aList, targFieldName)
　　set aCount to 1
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is equal to targFieldName then
　　　　　　return aCount
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　end repeat
　　
　　return 0 – no hit
end getNumberOfField

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

–リスト中のすべての項目（データ行）のフィールド数が同じかどうかチェック
set chRes to chkItemNumInEveryLine(aList) of me
–> true

–入れ子のリストで、１アイテム目のアイテム数が他と同じかどうかチェック
on chkItemNumInEveryLine(aList)
　　set aList1 to contents of first item of aList
　　set aList2 to contents of items 2 thru -1 of aList
　　
　　set aList1Len to length of aList1
　　repeat with i in aList2
　　　　set tmpLen to length of i
　　　　if tmpLen is not equal to aList1Len then
　　　　　　return false
　　　　end if
　　end repeat
　　
　　return true
end chkItemNumInEveryLine

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

set aFileName to “webOut” & (do shell script “date +%Y%m%d%H%M%S”)
renderURLtoPDF(aURL, aFileName) of me

on renderURLtoPDF(aURL, aFileName)
　　set s1Text to “cd ~/Desktop && “
　　set outPath to POSIX path of (path to desktop) & aFileName & “.pdf”
　　
　　set s2Text to “wkpdf –source “ & aURL & ” –paginate false –print-background –output “ & outPath
　　
　　set sAll to s1Text & s2Text
　　do shell script sAll
end renderURLtoPDF

(*
–指定URLの内容をレンダリングしてPDFに書き出す
on renderURLtoPDF(aURL, aFileName)
　　set dDir to POSIX path of (path to desktop from user domain)
　　set outFile to dDir & aFileName & “.pdf”
　　try
　　　　do shell script “cd /usr/local/bin && /usr/local/bin/coral -f PDF -o ” & quoted form of outFile & ” ” & aURL & ” &”
　　on error
　　　　return false
　　end try
　　–return outFile
end renderURLtoPDF
*)

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

script asoc1AppDelegate
　　
　　property parent : class “NSObject”
　　
　　property tF : missing value –bind to NSTextField
　　
　　property theMessage : missing value –bind to tF’s value
　　
　　
　　
　　
　　on applicationWillFinishLaunching_(aNotification)
　　　　– Insert code here to initialize your application before any files are opened
　　end applicationWillFinishLaunching_
　　
　　
　　on applicationShouldTerminate_(sender)
　　　　– Insert code here to do any housekeeping before your application quits
　　　　return current application’s NSTerminateNow
　　end applicationShouldTerminate_
　　
　　
　　
　　on application_delegateHandlesKey_(sender, theKey)
　　　　
　　　　return theKey is in {“theMessage”}
　　　　
　　end application_delegateHandlesKey_
　　
　　
end script

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

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

–> {message:missing value, frontmost:false, class:application, name:”asoc1″, version:”1.0″}

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

–複数のプロジェクトをオープンしている場合にはアクティブ（最前面）のプロジェクトを対象に
–すごい投げやりな処理……
tell application “Xcode”
　　set curPrjDoc to active workspace document
　　
　　–最前面のプロジェクトが、必ずしもAppleScriptObjC Explorer 2で編集中のScriptが所属するプロジェクトとは限らない
　　–編集中のScriptのファイルパスから上位フォルダに存在するXcode書類を探索して、プロジェクトを特定してもいいかも
　　–ただ、Xcodeのタコさ加減にめまいがして、真剣にXcodeをAppleScriptからつっつく気になれない……
　　
　　tell curPrjDoc
　　　　build –ビルド
　　end tell
　　
end tell

–GUI Scriptingから実行指定
activate application “Xcode”
tell application “System Events”
　　tell process “Xcode”
　　　　click menu item “Run” of menu 1 of menu bar item “Product” of menu bar 1
　　end tell
end tell

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

set aRec to {hogehoge:“abc”, hugahuga:“def”}
set aText to recToStr(aRec) of me

set a1Text to repChar(aText, “{”, “, “) of me
set a2Text to repChar(a1Text, “}”, “,”) of me

set curDelim to AppleScript’s text item delimiters
set AppleScript’s text item delimiters to {“, “, “:”}
set aList to text items of a2Text
set AppleScript’s text item delimiters to curDelim

set bList to items 2 thru -2 of aList
set aLen to length of bList

set resList to {}

repeat with i from 1 to aLen by 2
　　set the end of resList to contents of item i of bList
end repeat

resList
–> {”hogehoge”, “hugahuga”}

–レコードをテキストに変換
on recToStr(aRec)
　　–エラートラップを使って、わざとエラーを発生させ、エラーメッセージからレコードをstringに変換する
　　try
　　　　set a to aRec as string
　　on error aMsg
　　　　set a to aMsg
　　end try
　　
　　set b to repChar(a, “のタイプを string に変換できません。”, “”)
　　–> “{aData:1, bData:2} “
　　return b
　　
end recToStr

–文字置換ルーチン
on repChar(origText, targStr, repStr)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar