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

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

–簡単な素因数分解
script divisorKit
　　on returnDivisor(a)
　　　　–1000以下の素数のリスト （prime number list under 1000)
　　　　set primeNum1000 to {2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563, 569, 571, 577, 587, 593, 599, 601, 607, 613, 617, 619, 631, 641, 643, 647, 653, 659, 661, 673, 677, 683, 691, 701, 709, 719, 727, 733, 739, 743, 751, 757, 761, 769, 773, 787, 797, 809, 811, 821, 823, 827, 829, 839, 853, 857, 859, 863, 877, 881, 883, 887, 907, 911, 919, 929, 937, 941, 947, 953, 967, 971, 977, 983, 991, 997}
　　　　
　　　　if a > 1000 then return false –1000より大きかったらfalseをリターン（計算範囲外エラー）
　　　　
　　　　if a is in primeNum1000 then
　　　　　　return true –1000までの数字で、素数だった場合
　　　　end if
　　　　
　　　　–ここからメイン処理
　　　　set divisorList to {} –約数のリスト
　　　　set ansList to {} –元の数を約数で割ったときの商のリスト
　　　　
　　　　repeat while a > 0
　　　　　　set {r1, r2} to returnDivisorSub(a, primeNum1000) of me
　　　　　　if r1 = false then exit repeat
　　　　　　
　　　　　　set the end of divisorList to r1
　　　　　　
　　　　　　–計算結果リストに1が入ることを防ぐ
　　　　　　if r2 is not equal to 1 then
　　　　　　　　set the end of ansList to r2
　　　　　　end if
　　　　　　
　　　　　　set a to r2
　　　　end repeat
　　　　
　　　　return {divisorList, ansList}
　　　　
　　end returnDivisor
　　
　　
　　on returnDivisorSub(a, primeNumList)
　　　　repeat with i in primeNumList
　　　　　　set a1 to a div i
　　　　　　set a2 to a / i
　　　　　　if a1 = a2 then
　　　　　　　　return {contents of i, a1}
　　　　　　end if
　　　　end repeat
　　　　return {false, false}
　　end returnDivisorSub
end script

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

–簡単な素因数分解
script divisorKit
　　on returnDivisor(a)
　　　　–1000以下の素数のリスト （prime number list under 1000)
　　　　set primeNum1000 to {2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563, 569, 571, 577, 587, 593, 599, 601, 607, 613, 617, 619, 631, 641, 643, 647, 653, 659, 661, 673, 677, 683, 691, 701, 709, 719, 727, 733, 739, 743, 751, 757, 761, 769, 773, 787, 797, 809, 811, 821, 823, 827, 829, 839, 853, 857, 859, 863, 877, 881, 883, 887, 907, 911, 919, 929, 937, 941, 947, 953, 967, 971, 977, 983, 991, 997}
　　　　
　　　　if a > 1000 then return false –1000より大きかったらfalseをリターン（計算範囲外エラー）
　　　　
　　　　if a is in primeNum1000 then
　　　　　　return true –1000までの数字で、素数だった場合
　　　　end if
　　　　
　　　　–ここからメイン処理
　　　　set divisorList to {}
　　　　
　　　　repeat while a > 0
　　　　　　set {r1, r2} to returnDivisorSub(a, primeNum1000) of me
　　　　　　if r1 = false then exit repeat
　　　　　　
　　　　　　set the end of divisorList to r1
　　　　　　
　　　　　　set a to r2
　　　　end repeat
　　　　
　　　　return divisorList
　　end returnDivisor
　　
　　
　　on returnDivisorSub(a, primeNumList)
　　　　repeat with i in primeNumList
　　　　　　set a1 to a div i
　　　　　　set a2 to a / i
　　　　　　if a1 = a2 then
　　　　　　　　return {contents of i, a1}
　　　　　　end if
　　　　end repeat
　　　　return {false, false}
　　end returnDivisorSub
end script

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

–数値を与えると序数の文字列を返す
on retOrdinalNumStr(aNum)
　　set aStr to aNum as string
　　
　　–下１桁の数字を取得
　　set last1Str to last character of aStr
　　
　　–下２桁目の数字を取得
　　if length of aStr > 1 then
　　　　set last2Str to character -2 of aStr
　　else
　　　　set last2Str to ""
　　end if
　　
　　–場合分け
　　set retStr to ""
　　if last1Str = "1" then
　　　　if last2Str = "1" then
　　　　　　set retStr to "th" –11
　　　　else
　　　　　　set retStr to "st"
　　　　end if
　　　　
　　else if last1Str = "2" then
　　　　if last2Str = "1" then
　　　　　　set retStr to "th" –12
　　　　else
　　　　　　set retStr to "nd"
　　　　end if
　　　　
　　else if last1Str = "3" then
　　　　if last2Str = "1" then
　　　　　　set retStr to "th" –13
　　　　else
　　　　　　set retStr to "rd"
　　　　end if
　　　　
　　else
　　　　set retStr to "th"
　　　　
　　end if
　　
　　return aStr & retStr
　　
end retOrdinalNumStr

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

set {a, b} to {b, a}
–> {2, 1}

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

set {a, b, c} to {c, b, a}
–> {3, 2, 1}

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

script countUpKit
　　–カウントアップ
　　on countUp(anIDentifier)
　　　　set apDir to (path to preferences folder from user domain) as string
　　　　set a to apDir & anIDentifier
　　　　tell application “Finder”
　　　　　　set fRes to exists of file a
　　　　　　if fRes = false then
　　　　　　　　–初期設定ファイルがなければ初期化(1からカウントアップし直し）
　　　　　　　　write_to_file_AsList({1}, a) of me
　　　　　　　　return 1
　　　　　　else
　　　　　　　　set aCount to read file a as list
　　　　　　　　set aaCount to (item 1 of aCount as number) + 1
　　　　　　　　write_to_file_AsList(aaCount, a) of me
　　　　　　　　return aaCount
　　　　　　end if
　　　　end tell
　　end countUp
　　
　　–ファイルの追記ルーチン「write_to_file_AsList」　　（リストとして書き込み）
　　–データ、対象ファイル
　　on write_to_file_AsList(this_data, target_file)
　　　　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
　　　　　　set eof of the open_target_file to 0
　　　　　　write this_data to the open_target_file starting at eof as list
　　　　　　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_AsList
end script

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

set b to cosine_of(71) of me
–> 0.325568154457

on sine_of(x)
　　repeat until x ≥ 0 and x < 360
　　　　if x ≥ 360 then
　　　　　　set x to x - 360
　　　　end if
　　　　if x < 0 then
　　　　　　set x to x + 360
　　　　end if
　　end repeat
　　
　　set x to x * (2 * pi) / 360 –convert from degrees to radians
　　
　　set answer to 0
　　set numerator to x
　　set denominator to 1
　　set factor to -(x ^ 2)
　　
　　repeat with i from 3 to 40 by 2
　　　　set answer to answer + numerator / denominator
　　　　set numerator to numerator * factor
　　　　set denominator to denominator * i * (i - 1)
　　end repeat
　　
　　return answer
end sine_of

on cosine_of(x)
　　return sine_of(x + 90)
end cosine_of

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

–数値かどうか調べる
on numChk(aNum)
　　set aClass to (class of aNum) as string
　　if aClass = "number" or aClass = "double" or aClass = "integer" or aClass = "real" then
　　　　return true
　　else if aClass = "string" or aClass = "text" or aClass = "unicode text" then
　　　　try
　　　　　　set bNum to aNum as number
　　　　　　return true
　　　　on error
　　　　　　return false
　　　　end try
　　end if
end numChk

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

–小数点以下を指定桁で切り捨て
on roundWithSpecifiedDigit(aNum, aDigit)
　　set bNum to aNum * (10 ^ aDigit)
　　set cNum to round bNum rounding down
　　set dNum to cNum / (10 ^ aDigit)
　　return dNum
end roundWithSpecifiedDigit

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

set b to 8
set bRes to chkEvenNum(b) of me
–> true

–奇数かどうかチェック
on chkOddNum(aNum)
　　set a to aNum mod 2
　　if a = 1 then
　　　　return true
　　else
　　　　return false
　　end if
end chkOddNum

–偶数かどうかチェック
on chkEvenNum(aNum)
　　set a to aNum mod 2
　　if a = 0 then
　　　　return true
　　else
　　　　return false
　　end if
end chkEvenNum

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

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

set b to not a
–> false

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

–10進数をn進数文字列に変換する

–origNum:変換対象の数字
–nTh: n進数のn
–stringLength: 出力指定桁（上位桁のアキはゼロパディングされる）
–zeroSuppress: 上位桁がゼロになった場合に評価を打ち切るかのフラグ、ゼロパディングを行わない（ゼロサプレスする）場合に指定
on aNumToNthDecimal(origNum, nTh, stringLength, stringSetList, zeroSuppress)
　　set resString to {}
　　repeat with i from stringLength to 1 by -1
　　　　if {origNum, zeroSuppress} = {0, true} then exit repeat
　　　　set resNum to (origNum mod nTh)
　　　　set resText to contents of item (resNum + 1) of stringSetList
　　　　set resString to resText & resString
　　　　set origNum to origNum div nTh
　　end repeat
　　return (resString as string)
end aNumToNthDecimal

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

–指定文字列を指定バイト数以内に収める
on trimTextInByte(aText, aByte)
　　set aText to aText as string –SJISで処理するので、Unicodeの２バイト以上の文字のことは気にしない
　　
　　set aList to characters of aText
　　
　　set dtPath to (path to temporary items folder from user domain) as string
　　set outPath to dtPath & “.strtemp.txt“
　　set inPath to POSIX path of outPath
　　
　　–文字のバイト数テーブルを作成する
　　set lenList to {}
　　repeat with i in aList
　　　　set j to contents of i
　　　　write_to_file(j, outPath, false)
　　　　set hexT to do shell script “hexdump ” & quoted form of inPath
　　　　set pList to paragraphs of hexT
　　　　set lastNumText to (last item of pList) as number
　　　　set the end of lenList to lastNumText
　　end repeat
　　
　　–文字列の切り捨て処理
　　set loopCount to 1
　　set totalByte to 0
　　set hitF to false
　　repeat with i in lenList
　　　　set totalByte to totalByte + i
　　　　if totalByte = aByte then
　　　　　　set resText to items 1 thru loopCount of aList
　　　　　　set resText to resText as string
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　else if totalByte > aByte then
　　　　　　set resText to items 1 thru (loopCount - 1) of aList
　　　　　　set resText to resText as string
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　end if
　　　　set loopCount to loopCount + 1
　　end repeat
　　if hitF = false then return “”
　　
　　return resText
　　
end trimTextInByte

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

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

on absNum(q)
　　if q is less than 0 then set q to -q
　　return q
end absNum

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

–set bLen to (length of bData) / 2

–データの16進ダンプ（PPC/Intel対応）
–高速化した
on hexDumpStr(aData)
　　–バイトオーダーを取得（1234でIntel系、4321でPPC系）
　　set byteOrder to do shell script “sysctl -n hw.byteorder“
　　
　　–データの書き出し準備
　　set tmpPath to path to temporary items from user domain
　　set inData to (tmpPath as string) & “.hexdumpData.txt“
　　set inDataPosix to quoted form of POSIX path of inData
　　
　　set aData to aData as Unicode text
　　set cList to characters of aData
　　
　　set hexData to “”
　　
　　write_to_file(aData, inData, false) of me
　　
　　try
　　　　set aRes to do shell script “hexdump ” & inDataPosix
　　on error
　　　　return “”
　　end try
　　
　　set aaList to paragraphs of aRes
　　copy items 1 thru -2 of aaList to bList
　　
　　set hexText to “”
　　repeat with i in bList
　　　　set j to contents of i
　　　　
　　　　set aLine to text 9 thru -1 of j
　　　　set aWordsList to words of aLine
　　　　
　　　　repeat with ii in aWordsList
　　　　　　set jj to contents of ii
　　　　　　
　　　　　　set firstByte to text 1 thru 2 of jj
　　　　　　set secondByte to text 3 thru 4 of jj
　　　　　　
　　　　　　if byteOrder = “4321” then
　　　　　　　　–PPC (Big Endian)
　　　　　　　　if firstByte = “00” then set firstByte to “”
　　　　　　　　set byteT to firstByte & secondByte
　　　　　　else if byteOrder = “1234” then
　　　　　　　　–Intel (Little Endian )
　　　　　　　　if secondByte = “00” then set secondByte to “”
　　　　　　　　set byteT to secondByte & firstByte
　　　　　　end if
　　　　　　
　　　　　　set hexData to hexData & byteT
　　　　　　
　　　　end repeat
　　end repeat
　　
　　return hexData
　　
end hexDumpStr

–ファイルの追記ルーチン「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

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

on countPeriod(aStr)
　　set cList to characters of aStr
　　set pCount to 0
　　repeat with i in cList
　　　　if contents of i = "." then set pCount to pCount + 1
　　end repeat
　　
　　return pCount
end countPeriod

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

log "abd"

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

–RSS用のRFC822形式の日付を返す
on ret_rfc822date()
　　set resText to do shell script “ruby -r ‘date’ -e ‘print DateTime.now.strftime(\”%a, %d %b %Y %X %Z\”)’“
　　return resText
end ret_rfc822date

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

–URLエンコードされたファイルパスをテキスト（POSIX形式）に戻す
set fileURI to “file://localhost/Users/maro/Documents/AppleEvent%E3%83%86%E3%82%99%E3%83%83%E3%83%88%E3%82%99%E3%83%AD%E3%83%83%E3%82%AF“
set posixPath to (do shell script “perl -e ‘use URI::file; print URI->new(\”” & fileURI & “\”)->file;’“)

–> “/Users/maro/Documents/AppleEventデッドロック”

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

–リストをタブ区切りのテキストに変換
on list2TABseparatedText(aList)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to tab
　　set bList to aList as string
　　set AppleScript’s text item delimiters to curDelim
　　return bList
end list2TABseparatedText

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

set longNumber to "1082204521"
set exponent to longNumber as number –> 1.082204521E+9
set numberString to Stringify(exponent)

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

–時分秒をシステム設定と関係なく一律に取得
on getHHMMSS()
　　set tmp_a to current date
　　set tmp_t to time of tmp_a
　　set tmp_hourNum to ((tmp_t - tmp_t mod 3600) / 3600) as integer
　　set tmp_minuteNum to (((tmp_t mod 3600) - (tmp_t mod 3600) mod 60) / 60) as integer
　　set tmp_secondNum to (tmp_t mod 3600) mod 60
　　return {tmp_hourNum, tmp_minuteNum, tmp_secondNum}
end getHHMMSS

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

–国民の祝日を求める
on retHoliday(aYear)
　　set holidayList to {”1/1“, “2/11“, “4/29“, “5/3“, “5/4“, “5/5“, “11/3“, “11/23“, “12/23“}
　　set the end of holidayList to get_specifiedDay(aYear, 1, “月曜日“, 2) –成人の日
　　set the end of holidayList to get_specifiedDay(aYear, 7, “月曜日“, 3) –海の日
　　set the end of holidayList to get_specifiedDay(aYear, 9, “月曜日“, 3) –敬老の日
　　set the end of holidayList to get_specifiedDay(aYear, 10, “月曜日“, 2) –体育の日
　　set the end of holidayList to “3/” & get_ShunbunNoHi(aYear) –春分の日
　　set the end of holidayList to “9/” & get_ShuubunNoHi(aYear) –秋分の日
　　
　　set holiDate to {}
　　repeat with i in holidayList
　　　　set holiD to date (((aYear as text) & “/” & i) as text)
　　　　set holiText to holiD as text
　　　　
　　　　–元日以外を対象とする
　　　　if (i as text) is not “1/1” then
　　　　　　–振替休日付加処理
　　　　　　if “日曜日” is in holiText then
　　　　　　　　set hurikaeD to holiD + (1 * days)
　　　　　　　　set the end of holiDate to hurikaeD
　　　　　　end if
　　　　end if
　　　　
　　　　set the end of holiDate to holiD
　　　　
　　end repeat
　　
　　return holiDate
　　
end retHoliday

–春分の日を求める
–2000年から2099年の間まで計算可能
on get_ShunbunNoHi(aYear)
　　set a to 20.69115
　　set b to (aYear - 2000) * 0.2421904
　　set c to round ((aYear - 2000) / 4) rounding toward zero
　　set d to round (a + b - c) rounding toward zero
　　return d
end get_ShunbunNoHi

–秋分の日を求める
–2000年から2099年の間まで計算可能
on get_ShuubunNoHi(aYear)
　　set a to 23.09
　　set b to (aYear - 2000) * 0.2421904
　　set c to round ((aYear - 2000) / 4) rounding toward zero
　　set d to round (a + b - c) rounding toward zero
　　return d
end get_ShuubunNoHi

–指定月の第x指定曜日に該当する日付を求める（mm/dd形式）
on get_specifiedDay(aYear, aMonth, Youbi, orderNum)
　　set Youbi to Youbi as Unicode text
　　set sDat to date ((aYear & “/” & aMonth & “/1“) as text)
　　set eDat to getMlen(aYear, aMonth)
　　
　　set countNum to 0
　　
　　repeat with i from 1 to eDat
　　　　set aCal to date ((aYear & “/” & aMonth & “/” & (i as text)) as text)
　　　　set aCalText to aCal as Unicode text
　　　　if Youbi is in aCalText then
　　　　　　set countNum to countNum + 1
　　　　　　if countNum is orderNum then
　　　　　　　　set aCalText to (aMonth & “/” & i as text)
　　　　　　　　return aCalText
　　　　　　end if
　　　　end if
　　end repeat
end get_specifiedDay

–指定月の曜日部分を文字列として１か月分返す
on retCalDayForMonth(paramYear, paramMonth)
　　set a to date ((paramYear & “/” & paramMonth & “/1“) as text)
　　
　　set dText to “日　月　火　水　木　金　土　日　月　火　水　木　金　土　日　月　火　水　木　金　土　日　月　火　水　木　金　土　日　月　火　水　木　金　土　日　月　火　水　木　金　土　日　月　火　水　木　金　土　” as Unicode text
　　
　　set aYear to getYear(a)
　　set aMonth to getMonth(a)
　　set aDay to getDate(a)
　　
　　try
　　　　set fDay to date ((aYear & “/” & aMonth & “/1“) as text)
　　on error
　　　　return false –文字列パラメータが不正であった場合にはfalseを返す
　　end try
　　
　　set mLen to getMlen(aYear, aMonth) –月の長さ
　　set fDate to getDay(fDay)
　　
　　set tStart to fDate * 2 - 1 –文字列取得開始位置
　　set tEnd to tStart + (mLen * 2) - 1
　　set mText to characters tStart thru tEnd of dText
　　
　　set mText to mText as Unicode text
　　return mText
end retCalDayForMonth