set {rNum, gNum, bNum} to aCol

set rNum to rNum div 255
set gNum to gNum div 255
set bNum to bNum div 255

–RGB→CMYK変換
set {cNum, mNum, yNum, kNum} to approximateRGBtoCMYKconvert(rNum, gNum, bNum) of me

–CMYK→RGB変換
set {rNum2, gNum2, bNum2} to approximateCMYKtoRGBconvert(cNum, mNum, yNum, kNum) of me

set rNum2 to 65535 * rNum2
set gNum2 to 65535 * gNum2
set bNum2 to 65535 * bNum2

–色プレビュー
choose color default color {rNum2, gNum2, bNum2}

–近似式ベースのRGB→CMYK変換
–参照資料：
–http://image-d.isp.jp/commentary/color_cformula/CMYK.html
on approximateRGBtoCMYKconvert(r, g, b)
　　
　　set rNum to r / 255
　　set gNum to g / 255
　　set bNum to b / 255
　　
　　set nList to {1 - rNum, 1 - gNum, 1 - bNum}
　　
　　set kNum to minimumFromList(nList) of me
　　
　　–kNum（Black）がマイナスになるケースがあるため、値を補正
　　if kNum < 0 then set kNum to 0
　　
　　
　　–0による除算が発生した場合の算術エラーに対処
　　try
　　　　set cNum to (1 - rNum - kNum) / (1 - kNum)
　　on error
　　　　set cNum to 0
　　end try
　　
　　–0による除算が発生した場合の算術エラーに対処　　
　　try
　　　　set mNum to (1 - gNum - kNum) / (1 - kNum)
　　on error
　　　　set mNum to 0
　　end try
　　
　　–0による除算が発生した場合の算術エラーに対処　　
　　try
　　　　set yNum to (1 - bNum - kNum) / (1 - kNum)
　　on error
　　　　set yNum to 0
　　end try
　　
　　
　　–C/M/Yがマイナスになるケースがあるため、値を補正
　　if cNum < 0 then set cNum to 0
　　if mNum < 0 then set mNum to 0
　　if yNum < 0 then set yNum to 0
　　
　　
　　return {cNum, mNum, yNum, kNum}
　　
end approximateRGBtoCMYKconvert

–近似式ベースのCMYK→RGB変換
–参照資料：
–http://image-d.isp.jp/commentary/color_cformula/CMYK.html
on approximateCMYKtoRGBconvert(c, m, y, k)
　　
　　set rNum to 1 - (minimumFromList({1, c * (1 - k) + k}))
　　set gNum to 1 - (minimumFromList({1, m * (1 - k) + k}))
　　set bNum to 1 - (minimumFromList({1, y * (1 - k) + k}))
　　
　　return {rNum, gNum, bNum}
　　
end approximateCMYKtoRGBconvert

–最小値を取得する
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

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

–Cocoaで入れ子のリストを昇順ソート v2（AppleScriptObjC）
–連続して呼び出した場合にメモリを馬鹿喰いする現象に対処
on cocoaSortListAscending(theList, keyItem)
　　
　　– make unique set
　　tell current application’s NSSet to set theSet to setWithArray_(theList)
　　
　　– define sorting
　　tell current application’s NSSortDescriptor
　　　　set theDescriptor to sortDescriptorWithKey_ascending_(keyItem, true)
　　end tell
　　
　　–sort
　　set sortedList to theSet’s sortedArrayUsingDescriptors_({theDescriptor})
　　
　　—————————————————————————————
　　theSet’s release –** Important!! ** 重要!!
　　—————————————————————————————
　　
　　return sortedList
　　
end cocoaSortListAscending

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

on open fileList
　　
　　tell application “Finder”
　　　　set sortedList to sort fileList by creation date
　　end tell
　　
　　set sortedList to reverse of sortedList
　　
　　set oldPath to writeASSourceToTempFolder((item 1 of sortedList) as alias)
　　set newPath to writeASSourceToTempFolder((item 2 of sortedList) as alias)
　　
　　–do shell script “/usr/bin/opendiff ” & oldPath’s POSIX path’s quoted form & ” ” & newPath’s POSIX path’s quoted form & ” > /dev/null 2>&1 &”
　　
　　tell application “TextWrangler”
　　　　compare oldPath against newPath –Mac OS X 10.6用にaliasで渡すように書き換えた
　　end tell
　　
　　
end open

–AppleScriptのソースを取得してファイルに書き出し
on writeASSourceToTempFolder(aScript)
　　–ASのソースを取得
　　set scriptSource to getContentsOfScript(aScript) of me
　　if scriptSource = false then
　　　　display dialog “指定のASのオープン時にエラーが発生”
　　　　return false –エラー
　　end if
　　
　　tell application “Finder”
　　　　set origName to name of file aScript
　　end tell
　　set origName to makestr_alphabetNumeric_only(origName) of me
　　
　　
　　–tmpにASのソースを一時ファイルとして保存
　　set tmpPath to (path to temporary items from system domain) as string
　　set aFN to do shell script “/bin/date +%Y%m%d_%H%M%S”
　　set tmpPathFull to tmpPath & origName & “_” & aFN & “.txt”
　　set fRes to write_to_file_UTF8(scriptSource, tmpPathFull, false) of me
　　if fRes = true then
　　　　return tmpPathFull as alias –書き出したテキストのフルパスを返す（10.6用に変更）
　　else
　　　　return false –エラー
　　end if
end writeASSourceToTempFolder

–指定したAppleScriptのソースを取得する（Mac OS X 10.4用）
on getContentsOfScript(aScript)
　　tell application “AppleScript Editor”
　　　　try
　　　　　　with timeout of 600 seconds –アプリケーションの起動に時間がかかるケースもあるので180秒から延長
　　　　　　　　set aScript to open aScript
　　　　　　end timeout
　　　　on error
　　　　　　return false
　　　　end try
　　　　
　　　　tell window 1
　　　　　　set aName to name
　　　　end tell
　　　　
　　　　tell document aName
　　　　　　set aCon to contents
　　　　　　close without saving
　　　　end tell
　　end tell
　　
　　return aCon
end getContentsOfScript

–ファイルへのUTF8での書き込み
on write_to_file_UTF8(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to ?
　　　　　　open for access file target_file with write permission
　　　　if append_data is false then ?
　　　　　　set eof of the open_target_file to 0
　　　　write this_data to the open_target_file as «class utf8» starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return false
　　end try
end write_to_file_UTF8

–アルファベットと数字のみの文字列にして返す
on makestr_alphabetNumeric_only(aKeyword)
　　set aKeyword to aKeyword as string
　　set aKeyword to aKeyword as Unicode text
　　
　　set cList to characters of aKeyword
　　set newName to “”
　　
　　repeat with i in cList
　　　　set aRes to checkAN(i) of me
　　　　if aRes = true then
　　　　　　set newName to newName & (i as string)
　　　　end if
　　end repeat
　　
　　return newName
end makestr_alphabetNumeric_only

on checkAN(aKeyword)
　　set anList to {“a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z”, “-”, “+”, “.”, “_”, “=”, “(”, “)”, “#”, “$”, “%”, “&”, “~”, “^”, “0″, “1″, “2″, “3″, “4″, “5″, “6″, “7″, “8″, “9″}
　　
　　set aKeyword to aKeyword as Unicode text
　　set aKeyword to aKeyword as string
　　set kList to characters of aKeyword
　　repeat with i in kList
　　　　ignoring case
　　　　　　if i is not in anList then
　　　　　　　　return false
　　　　　　end if
　　　　end ignoring
　　end repeat
　　return true
end checkAN

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

showHideToolbarAndSidebar(targWin, false) of me –非表示にする
–showHideToolbarAndSidebar(targWin, true) of me –表示にする

–指定Finder Windowのツールバー＆サイドバーの表示、非表示をコントロール
on showHideToolbarAndSidebar(targetWindow, showF)
　　try
　　　　tell application “Finder”
　　　　　　tell targetWindow
　　　　　　　　set toolbar visible to showF
　　　　　　end tell
　　　　end tell
　　end try
end showHideToolbarAndSidebar

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

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

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

–IMの入力状態を設定する
on setInputState(aState)
　　activate application “SystemUIServer”
　　tell application “System Events”
　　　　tell process “SystemUIServer”
　　　　　　tell menu bar 1
　　　　　　　　set aList to every menu bar item whose description is “text input”
　　　　　　　　set anItem to first item of aList
　　　　　　　　set curVal to value of anItem
　　　　　　　　
　　　　　　　　if aState = curVal then return –変更の必要がなければリターン
　　　　　　　　
　　　　　　　　tell anItem
　　　　　　　　　　click
　　　　　　　　　　tell menu 1
　　　　　　　　　　　　set mList to every menu item whose title is aState
　　　　　　　　　　　　set m1Item to first item of mList
　　　　　　　　　　　　tell m1Item
　　　　　　　　　　　　　　click
　　　　　　　　　　　　end tell
　　　　　　　　　　end tell
　　　　　　　　end tell
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　end tell
　　
end setInputState

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

–録音日時が日付をまたがないことが処理条件
–もうちょっと機能アップしないと不十分？

set falseList to {} –処理できなかったファイルの一覧が入る

set tFol to choose folder with prompt “処理対象フォルダを指定してください”

tell application “Finder”
　　–指定フォルダ内のファイル一覧を取得（指定フォルダ以下のすべてのフォルダ内を走査）
　　try
　　　　set (fList of speedUp) to entire contents of tFol as alias list
　　on error
　　　　display dialog “Error” buttons {“OK”} default button 1 with icon 2
　　　　return
　　end try
end tell

–メインループ

repeat with i in (fList of speedUp)
　　–set j to contents of i
　　set aInfo to info for i
　　
　　–ファイル拡張子で処理対象を判別
　　tell application “Finder”
　　　　set aExt to name extension of aInfo
　　　　–log aExt
　　　　if aExt is in (extList of speedUp) then
　　　　　　
　　　　　　–作成日時と作成曜日を取り出す
　　　　　　set sDate to creation date of aInfo
　　　　　　–log sDate
　　　　　　
　　　　　　set yNum to year of sDate
　　　　　　set dayNum to weekday of sDate as number
　　　　　　set monthNum to month of sDate as number
　　　　　　set dateNum to day of sDate
　　　　　　
　　　　　　–番組リストとの照合
　　　　　　set hitF to false
　　　　　　repeat with ii in progList of speedUp
　　　　　　　　set {pName, sWeekday, sTime, eTime} to ii
　　　　　　　　
　　　　　　　　if (sWeekday as number) = dayNum then
　　　　　　　　　　–開始時刻のdate objectを求める
　　　　　　　　　　set s1Time to sDate
　　　　　　　　　　set {h1Num, m1Num} to words of sTime
　　　　　　　　　　set h1Num to h1Num as number
　　　　　　　　　　set m1Num to m1Num as number
　　　　　　　　　　set hours of s1Time to h1Num
　　　　　　　　　　set minutes of s1Time to m1Num
　　　　　　　　　　set s1Time to s1Time - (10 * 60) –開始時刻を10分前倒しで判定
　　　　　　　　　　
　　　　　　　　　　–終了時刻のdate objectを求める
　　　　　　　　　　set e1Time to sDate
　　　　　　　　　　set {h2Num, m2Num} to words of eTime
　　　　　　　　　　set h2Num to h2Num as number
　　　　　　　　　　set m2Num to m2Num as number
　　　　　　　　　　set hours of e1Time to h2Num
　　　　　　　　　　set minutes of e1Time to m2Num
　　　　　　　　　　set e1Time to e1Time + (10 * 60) –終了時刻を10分後ろ倒しで判定
　　　　　　　　　　
　　　　　　　　　　
　　　　　　　　　　if s1Time ≤ sDate and sDate ≤ e1Time then
　　　　　　　　　　　　–ファイル名指定用の数値データを桁数指定しつつ文字列化
　　　　　　　　　　　　set yStr to retZeroPaddingText(yNum, 4) of me
　　　　　　　　　　　　set mStr to retZeroPaddingText(monthNum, 2) of me
　　　　　　　　　　　　set dStr to retZeroPaddingText(dateNum, 2) of me
　　　　　　　　　　　　set targStr to pName & ” “ & yStr & ” “ & mStr & “月” & dStr & “日.” & aExt –ここを変更するとファイル名のフォーマットが変わる
　　　　　　　　　　　　
　　　　　　　　　　　　set name of i to targStr –ファイルの名称変更
　　　　　　　　　　　　
　　　　　　　　　　　　set hitF to true
　　　　　　　　　　　　
　　　　　　　　　　　　exit repeat
　　　　　　　　　　　　
　　　　　　　　　　end if
　　　　　　　　end if
　　　　　　end repeat
　　　　　　
　　　　　　if hitF = false then
　　　　　　　　set the end of falseList to (contents of i)
　　　　　　end if
　　　　　　
　　　　else
　　　　　　set the end of falseList to (contents of i)
　　　　end if
　　end tell
end repeat

return falseList

–数値にゼロパディングしたテキストを返す
on retZeroPaddingText(aNum, aLen)
　　set tText to (“0000000000″ & aNum as text)
　　set tCount to length of tText
　　set resText to text (tCount - aLen + 1) thru tCount of tText
　　return resText
end retZeroPaddingText

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

set aList to {“日曜日”, “月曜日”, “火曜日”, “水曜日”, “木曜日”, “金曜日”, “土曜日”}
set aMes to “ラベルを付ける対象曜日を選択してください。”
set targDay to retNumberFromChooseFromList(aList, aMes) of me

tell application “Finder”
　　tell folder aFol
　　　　set aList to every file as alias list
　　end tell
end tell

repeat with i in aList
　　set aInfo to info for i
　　set sDate to creation date of aInfo
　　set dayNum to weekday of sDate as number
　　
　　if dayNum = targDay then
　　　　tell application “Finder”
　　　　　　set label index of i to 2 –赤いラベル
　　　　end tell
　　end if
end repeat

–リストからの選択ダイアログで、選択したアイテムのアイテムナンバーを返す
on retNumberFromChooseFromList(aList, aMes)
　　set aRes to choose from list aList with prompt aMes
　　if aRes = false then return false
　　set aRes to (contents of aRes) as string
　　set itemCount to 1
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is equal to aRes then
　　　　　　return itemCount
　　　　end if
　　　　set itemCount to itemCount + 1
　　end repeat
end retNumberFromChooseFromList

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

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

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

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

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

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

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

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

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

–改行コードがCRになっている部分をLFに置換（v2で追加）
set this_data to repChar(this_data, ASCII character 13, ASCII character 10) of me

set tmpPath to path to temporary items from user domain
set fStr to (do shell script “date +%Y%m%d%H%M%S”) & “.pl”
set fPath to (tmpPath as string) & fStr

write_to_fileUTF8(this_data, fPath, false) of me
do shell script “sync”

set sText to “perl -w “ & quoted form of POSIX path of fPath
doComInTerminalWindow(sText) of me

on doComInTerminalWindow(aCMD)
　　tell application “Terminal”
　　　　set wCount to count (every window whose visible is true)
　　　　
　　　　– By wayne melrose
　　　　– Re: New window in Terminal.app
　　　　
　　　　if wCount = 0 then
　　　　　　–ウィンドウが１枚も表示されていない場合
　　　　　　do script aCMD
　　　　else
　　　　　　–すでにウィンドウが表示されている場合
　　　　　　do script aCMD in front window
　　　　end if
　　end tell
end doComInTerminalWindow

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_fileUTF8(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file as «class utf8» starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_fileUTF8

–文字置換ルーチン
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

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

–与えられたテキストをRGBデータと評価してCMYK値を返す
on retCMYKfromRGBstr(aData)
　　if aData = "" then return {false, false, false, false}
　　
　　set {rDat, gDat, bDat} to divideABC(aData, ",") of me
　　
　　
　　tell application "Adobe Photoshop CS3"
　　　　set myCMYKColor to convert color {class:RGB color, red:rDat, green:gDat, blue:bDat} to CMYK
　　　　
　　　　set cyanNum to cyan of myCMYKColor
　　　　set magentaNum to magenta of myCMYKColor
　　　　set yellowNum to yellow of myCMYKColor
　　　　set kuroNum to black of myCMYKColor
　　end tell
　　
　　set cyanNum to round cyanNum rounding as taught in school –四捨五入
　　set magentaNum to round magentaNum rounding as taught in school –四捨五入
　　set yellowNum to round yellowNum rounding as taught in school –四捨五入
　　set kuroNum to round kuroNum rounding as taught in school –四捨五入
　　
　　return {cyanNum, magentaNum, yellowNum, kuroNum}
　　
end retCMYKfromRGBstr

–文字列をparseする（R,G,B)の文字データを処理するためのもの
on divideABC(aStr, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set tList to every text item of aStr
　　set AppleScript’s text item delimiters to curDelim
　　
　　copy tList to {item1, item2, item3}
　　try
　　　　set item1 to item1 as integer
　　　　set item2 to item2 as integer
　　　　set item3 to item3 as integer
　　on error
　　　　return false
　　end try
　　
　　return {item1, item2, item3}
end divideABC

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

–与えられたテキストをRGBデータと評価してCMYK値を返す
on retCMYKfromRGBstr(aData)
　　if aData = "" then return {false, false, false, false}
　　
　　set {rDat, gDat, bDat} to divideABC(aData, ",") of me
　　
　　
　　tell application id "com.adobe.PhotoshopElements" –Phothop Elements
　　　　set myCMYKColor to convert color {class:RGB color, red:rDat, green:gDat, blue:bDat} to CMYK
　　　　
　　　　set cyanNum to cyan of myCMYKColor
　　　　set magentaNum to magenta of myCMYKColor
　　　　set yellowNum to yellow of myCMYKColor
　　　　set kuroNum to black of myCMYKColor
　　end tell
　　
　　set cyanNum to round cyanNum rounding as taught in school –四捨五入
　　set magentaNum to round magentaNum rounding as taught in school –四捨五入
　　set yellowNum to round yellowNum rounding as taught in school –四捨五入
　　set kuroNum to round kuroNum rounding as taught in school –四捨五入
　　
　　return {cyanNum, magentaNum, yellowNum, kuroNum}
　　
end retCMYKfromRGBstr

–文字列をparseする（R,G,B)の文字データを処理するためのもの
on divideABC(aStr, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set tList to every text item of aStr
　　set AppleScript’s text item delimiters to curDelim
　　
　　copy tList to {item1, item2, item3}
　　try
　　　　set item1 to item1 as integer
　　　　set item2 to item2 as integer
　　　　set item3 to item3 as integer
　　on error
　　　　return false
　　end try
　　
　　return {item1, item2, item3}
end divideABC

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

–set this_data to “print ‘test’;”

set tmpPath to path to temporary items from user domain
set fStr to (do shell script “date +%Y%m%d%H%M%S”) & “.pl”
set fPath to (tmpPath as string) & fStr

write_to_fileUTF8(this_data, fPath, false) of me
do shell script “sync”

set sText to “perl -w “ & quoted form of POSIX path of fPath
doComInTerminalWindow(sText) of me

on doComInTerminalWindow(aCMD)
　　tell application “Terminal”
　　　　set wCount to count (every window whose visible is true)
　　　　
　　　　– By wayne melrose
　　　　– Re: New window in Terminal.app
　　　　
　　　　if wCount = 0 then
　　　　　　–ウィンドウが１枚も表示されていない場合
　　　　　　do script aCMD
　　　　else
　　　　　　–すでにウィンドウが表示されている場合
　　　　　　do script aCMD in front window
　　　　end if
　　end tell
end doComInTerminalWindow

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_fileUTF8(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file as «class utf8» starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_fileUTF8

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

–「YxX」の形式の文字列を、{Y,X}のように数字のリストにして返す
on divideYxX(aStr)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to “x”
　　set tList to every text item of aStr
　　set AppleScript’s text item delimiters to curDelim
　　
　　copy tList to {item1, item2}
　　try
　　　　set item1 to item1 as integer
　　　　set item2 to item2 as integer
　　on error
　　　　return false
　　end try
　　
　　return {item1, item2}
　　
end divideYxX

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

–「YxX」の形式の文字列を、{Y,X}のように数字のリストにして返す
on divideYxX(aStr)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to "x"
　　set tList to every text item of aStr
　　set AppleScript’s text item delimiters to curDelim
　　
　　copy tList to {item1, item2}
　　try
　　　　set item1 to item1 as integer
　　　　set item2 to item2 as integer
　　on error
　　　　return false
　　end try
　　
　　return {item1, item2}
　　
end divideYxX

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

–「A x B　= C」の数の組み合わせを求める
on calcAxB(aMountNum)
　　set aList to {}
　　
　　repeat with i from 1 to aMountNum
　　　　set aMod to aMountNum mod i
　　　　if aMod = 0 then
　　　　　　set aDiv to aMountNum div i
　　　　　　set the end of aList to {aDiv, i}
　　　　end if
　　end repeat
　　
　　return aList
　　
end calcAxB

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

set newAlias to choose file name
write_to_file(grabData, newAlias, false) of me

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_file(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_file

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

tell application “Skim”
　　tell document 1
　　　　set curP to index of current page –現在表示中のページ番号（index）を取得
　　　　set totalP to count every page –全ページ数を取得
　　　　
　　　　
　　　　if totalP = 1 then
　　　　　　display dialog “１ページしか存在しない書類は処理対象外です” buttons {“OK”} default button 1 with icon 1
　　　　　　return
　　　　end if
　　　　
　　　　if curP = 1 then
　　　　　　–現在表示中のページが１ページ目だった場合の処理
　　　　　　delete (pages 2 thru -1)
　　　　　　
　　　　else if curP = totalP then
　　　　　　–現在表示中のページが最終ページだった場合の処理
　　　　　　delete (pages 1 thru -2)
　　　　　　
　　　　else
　　　　　　–その他　通常処理
　　　　　　delete (pages 1 thru (curP - 1))
　　　　　　delete (pages (curP + 1) thru -1)
　　　　　　
　　　　end if
　　　　
　　end tell
end tell