–指定されたファイルの親フォルダにラベルとコメントを付ける
on setLabelAndCommentToParentFol(aFile, aComment)
　　tell application “Finder”
　　　　set aParent to (parent of aFile) as alias
　　　　set label index of aParent to 4 –ぶるーのラベル
　　　　set comment of aParent to aComment
　　end tell
end setLabelAndCommentToParentFol

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

*)

–set directionF to "V" –用紙方向＝たて方向
set directionF to "H" –用紙方向＝たて方向

set printerName to "PS-NX650"
set paperSize to "A4"

printViaGUI(directionF, printerName, paperSize) of me

on printViaGUI(directionF, printerName, paperSize)
　　activate application "Preview"
　　tell application "System Events"
　　　　tell process "プレビュー"
　　　　　　
　　　　　　set goF to false
　　　　　　repeat 10 times
　　　　　　　　–メニューから印刷を実行
　　　　　　　　click menu item "プリント…" of menu 1 of menu bar item "ファイル" of menu bar 1
　　　　　　　　
　　　　　　　　tell window 1
　　　　　　　　　　tell sheet 1
　　　　　　　　　　　　–拡張プリントダイアログを表示させる
　　　　　　　　　　　　set sheetClosed to value of checkbox 1
　　　　　　　　　　　　if sheetClosed = 0 then
　　　　　　　　　　　　　　click checkbox 1
　　　　　　　　　　　　　　click button "キャンセル"
　　　　　　　　　　　　else
　　　　　　　　　　　　　　set goF to true
　　　　　　　　　　　　　　exit repeat
　　　　　　　　　　　　end if
　　　　　　　　　　end tell
　　　　　　　　end tell
　　　　　　　　
　　　　　　end repeat
　　　　　　
　　　　　　if goF = false then return
　　　　end tell
　　end tell
　　
　　
　　
　　
　　activate application "Preview"
　　tell application "System Events"
　　　　tell process "プレビュー"
　　　　　　
　　　　　　–メニューから印刷を実行
　　　　　　click menu item "プリント…" of menu 1 of menu bar item "ファイル" of menu bar 1
　　　　　　
　　　　　　tell window 1
　　　　　　　　tell sheet 1
　　　　　　　　　　
　　　　　　　　　　–出力先のプリンタを指定
　　　　　　　　　　tell pop up button 4 –「プリンタ」ポップアップボタン
　　　　　　　　　　　　set aTitle to value
　　　　　　　　　　　　if aTitle is not equal to printerName then
　　　　　　　　　　　　　　click
　　　　　　　　　　　　　　tell menu 1
　　　　　　　　　　　　　　　　set mList to title of every menu item
　　　　　　　　　　　　　　　　set aRes1 to retIHitItem(mList, printerName as Unicode text) of me
　　　　　　　　　　　　　　　　if aRes1 = false then
　　　　　　　　　　　　　　　　　　return mList
　　　　　　　　　　　　　　　　end if
　　　　　　　　　　　　　　　　click menu item aRes1
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end if
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　
　　　　　　　　　　–用紙サイズを変更
　　　　　　　　　　tell pop up button 1
　　　　　　　　　　　　
　　　　　　　　　　　　set aTitle to value as string
　　　　　　　　　　　　if aTitle is not equal to paperSize then
　　　　　　　　　　　　　　click
　　　　　　　　　　　　　　tell menu 1
　　　　　　　　　　　　　　　　set mList to value of every menu item
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　set aLen to length of mList
　　　　　　　　　　　　　　　　select menu item 1 –最終アイテムを選択しておく
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　set aRes2 to retIHitItem(mList, paperSize as string) of me
　　　　　　　　　　　　　　　　if aRes2 = false then
　　　　　　　　　　　　　　　　　　return false
　　　　　　　　　　　　　　　　end if
　　　　　　　　　　　　　　　　click menu item aRes2
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end if
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　–用紙方向を指定
　　　　　　　　　　if directionF = "V" then
　　　　　　　　　　　　click radio button 1 of radio group 3
　　　　　　　　　　else if directionF = "H" then
　　　　　　　　　　　　click radio button 2 of radio group 3
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　　　–「用紙サイズに合わせる」をクリック
　　　　　　　　　　click radio button 2 of radio group 1
　　　　　　　　　　
　　　　　　　　　　–「プリント」ボタンをクリック
　　　　　　　　　　–click button "プリント"–ここをコメントアウトすると印刷を行う。
　　　　　　　　　　beep
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
end printViaGUI

–指定リスト中の何アイテム目かを調べて返す
on retIHitItem(aList, anItem)
　　set aCount to 1
　　set hitF to false
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j = anItem then
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　end if
　　　　set aCount to aCount + 1
　　end repeat
　　
　　if hitF = false then return false
　　
　　return aCount
end retIHitItem

–GUI Scriptingの命令が続く中でdelayコマンドをエラーになるので、
–wait部分だけサブルーチン化
on waitSec(aNum)
　　delay aNum
end waitSec

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

–起動処理
on run
　　set intervalSec to 5 –割り込み間隔を5秒に変更
　　set enableF to true –割り込みイネーブルフラグをtrue（割り込み可能）に変更
end run

–割り込みサービスハンドラ
on idle
　　–割り込み処理メインで処理が終了するまで、タイマー割り込みは許可しない
　　if enableF = true then
　　　　set enableF to false
　　　　
　　　　idleMain() of me
　　　　
　　　　–タイマー割り込みメインの処理が終わったら、割り込みを許可する
　　　　set enableF to true
　　end if
　　
　　–次回の割り込みを呼び出す相対秒数をリターンする（必須）
　　return intervalSec
　　
end idle

–タイマー割り込み処理メイン
on idleMain()
　　set aChar to contents of (some item of vList) –乱数選択
　　repeat 3 times
　　　　say “Say Hello to piomal software.” using (aChar as text)
　　end repeat
end idleMain

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

if folderA is not equal to missing value then
　　–前回の選択内容を使用
　　set folderA to choose folder default location folderA with prompt “folder Aを選択”
else
　　–はじめて実行する場合など
　　set folderA to choose folder with prompt “folder Aを選択”
end if

if folderB is not equal to missing value then
　　–前回の選択内容を使用
　　set folderB to choose folder default location folderB with prompt “folder Bを選択”
else
　　–はじめて実行する場合など
　　set folderB to choose folder with prompt “folder Bを選択”
end if

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

set aLen to number of items of aList
–> 4

set bLen to length of aList
–> 4

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

set sTime to current date

repeat 10000000 times
　　set bLen to length of aList
end repeat

set eTime to current date
set elapsedTime to eTime - sTime

–1000万回ループ時に
–number of items で23秒
–length で14秒

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

on retJapaneseGengo(aDate)
　　
　　set aYear to year of aDate
　　set aMonth to month of aDate as number
　　set aDay to day of aDate
　　
　　set aStr to retZeroPaddingText(aYear, 4) of me & retZeroPaddingText(aMonth, 2) of me & retZeroPaddingText(aDay, 2) of me
　　
　　set aGengo to ""
　　–if aStr ≥ "19890118" then–間違ってた！！！
　　if aStr ≥ "19890108" then
　　　　set aGengo to "平成"
　　　　set aGengoNum to aYear - 1989 + 1
　　else if aStr ≥ "19261225" then
　　　　set aGengo to "昭和"
　　　　set aGengoNum to aYear - 1926 + 1
　　else if aStr ≥ "19120730" then
　　　　set aGengo to "大正"
　　　　set aGengoNum to aYear - 1912 + 1
　　　　–else if aStr ≥ "18681125" then–間違ってた！！！
　　else if aStr ≥ "18680125" then
　　　　set aGengo to "明治"
　　　　set aGengoNum to aYear - 1868 + 1
　　end if
　　
　　return {aGengo, aGengoNum}
　　
end retJapaneseGengo

–数値にゼロパディングしたテキストを返す
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

on parseDate(inStr)
　　set aClass to class of inStr
　　if aClass = string then
　　　　try
　　　　　　set aDate to date inStr
　　　　on error
　　　　　　return false
　　　　end try
　　else if aClass = date then
　　　　set aDate to inStr
　　　　
　　end if
　　
　　return aDate
　　
end parseDate

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

–リストから選択してアイテム番号を返す（複数項目選択対応）
on retMultipleItemFromListByItemNo(aList, aMes)
　　set aRes to choose from list aList with prompt aMes with multiple selections allowed
　　if aRes = false then return 0
　　
　　set hitList to {}
　　repeat with i1 in aRes
　　　　set aRes to contents of i1
　　　　set hitNum to 1
　　　　repeat with i in aList
　　　　　　set j to contents of i
　　　　　　if j is equal to aRes then
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　set hitNum to hitNum + 1
　　　　end repeat
　　　　set the end of hitList to hitNum
　　end repeat
　　return hitList
end retMultipleItemFromListByItemNo

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

tell application “OmniOutliner Professional”
　　tell document 1
　　　　set aSel to every row whose selected is true
　　　　if aSel = {} then
　　　　　　display dialog “OmniOutliner上で選択されている行はありませんでした。” buttons {“OK”} default button 1
　　　　　　return
　　　　end if
　　end tell
end tell

–どの列を書き出すかを選択
tell application “OmniOutliner Professional”
　　tell document 1
　　　　set nList to name of every column
　　　　set aMes to “項目を選択してください（Command-クリックで複数選択可能）”
　　　　set numRes to retMultipleItemFromListByItemNo(nList, aMes) of me
　　end tell
end tell

–選択部分を検出
tell application “OmniOutliner Professional”
　　tell document 1
　　　　set aaSel to first item of aSel
　　　　tell aaSel
　　　　　　set aCell to text of every cell
　　　　　　set aCell to retSpecifiedItemFromList(numRes, aCell) of me
　　　　　　set the end of tList to aCell
　　　　　　set cList to every child
　　　　　　repeat with i in cList
　　　　　　　　getChildText(i) of me
　　　　　　end repeat
　　　　end tell
　　end tell
end tell

tList
–> {{”line2″, “”}, {”line3″, “●”}, {”line4″, “●”}, {”line5″, “”}}

–再帰で指定child以下のテキストをすべて取得する
on getChildText(aRoot)
　　tell application “OmniOutliner Professional”
　　　　tell document 1
　　　　　　tell aRoot
　　　　　　　　set aCell to text of every cell
　　　　　　　　set aCell to retSpecifiedItemFromList(numRes, aCell) of me
　　　　　　　　set the end of tList to aCell
　　　　　　　　
　　　　　　　　set cList to every child
　　　　　　　　repeat with i in cList
　　　　　　　　　　getChildText(i) of me –再帰処理
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
end getChildText

–リストから選択してアイテム番号を返す（複数項目選択対応）
on retMultipleItemFromListByItemNo(aList, aMes)
　　set aRes to choose from list aList with prompt aMes with multiple selections allowed
　　if aRes = false then return 0
　　
　　set hitList to {}
　　repeat with i1 in aRes
　　　　set aRes to contents of i1
　　　　set hitNum to 1
　　　　repeat with i in aList
　　　　　　set j to contents of i
　　　　　　if j is equal to aRes then
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　set hitNum to hitNum + 1
　　　　end repeat
　　　　set the end of hitList to hitNum
　　end repeat
　　return hitList
end retMultipleItemFromListByItemNo

–指定リストから、指定アイテム目を抽出して返す
on retSpecifiedItemFromList(itemNumList, dataList)
　　set newList to {}
　　repeat with i in itemNumList
　　　　set j to contents of i
　　　　set a to contents of (item j of dataList)
　　　　set the end of newList to a
　　end repeat
　　return newList
end retSpecifiedItemFromList

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

tell application "UnicodeChecker"
　　set aCP to code point a
　　properties of aCP
　　–> {assigned:true, canonical combining class:0, canonical combining class description:"Not_Reordered", id:39641, general category:"Lo", unicode name:"<CJK Ideograph>", class:code point, general category description:"Other_Letter", assigned to abstract character:true, bidi class description:"Left_To_Right", bidi class:"L", name:"���", containing plane:plane id 0 of application "UnicodeChecker", bidi mirrored:false, script name:"Han", containing block:block "CJK Unified Ideographs" of application "UnicodeChecker"}
　　
　　set bCP to code point b
　　properties of bCP
　　–> {assigned:true, canonical combining class:0, canonical combining class description:"Not_Reordered", id:65, general category:"Lu", unicode name:"LATIN CAPITAL LETTER A", class:code point, general category description:"Uppercase_Letter", assigned to abstract character:true, bidi class description:"Left_To_Right", bidi class:"L", name:"A", containing plane:plane id 0 of application "UnicodeChecker", bidi mirrored:false, script name:"Latin", containing block:block "Basic Latin" of application "UnicodeChecker"}
　　
　　set cCP to code point c
　　properties of cCP
　　–> {assigned:true, canonical combining class:0, canonical combining class description:"Not_Reordered", id:12354, general category:"Lo", unicode name:"HIRAGANA LETTER A", class:code point, general category description:"Other_Letter", assigned to abstract character:true, bidi class description:"Left_To_Right", bidi class:"L", name:"あ", containing plane:plane id 0 of application "UnicodeChecker", bidi mirrored:false, script name:"Hiragana", containing block:block "Hiragana" of application "UnicodeChecker"}
end tell

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

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

{”ぴよ〜うるふ
ぴよぴよ”, «data styl01000000000015000C00019000000E00000000000000», «data styw000100000000000000000000»}
*)

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

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

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

on retDynamicOperatedData(myData)
　　try
　　　　set aVar to contents of item 1 of myData
　　　　set operatorCmd to contents of item 2 of myData
　　　　set operatorStr to contents of item 3 of myData
　　on error
　　　　return {}
　　end try
　　
　　–Command Check
　　if operatorCmd is not in {“starts with”, “ends with”, “contains”} then return {}
　　
　　–Make Dynamic Script　　
　　set aScript to “set aList to “ & listToText(aVar) of me & “
　　set rList to {}
　　repeat with i in aList
　　set j to contents of i
　　if j “ & operatorCmd & ” \”" & operatorStr & “\” then
　　set the end of rList to j
　　end if
　　end repeat
　　return rList
　　”
　　try
　　　　set aRes to (run script aScript)
　　on error
　　　　set aRes to {}
　　end try
　　
　　return aRes
　　
end retDynamicOperatedData

–List to String Sub-routine
on listToText(aList)
　　set listText to {“{”}
　　set quotChar to ASCII character 34
　　set firstFlag to true
　　repeat with i in aList
　　　　set j to contents of i
　　　　set aClass to class of i
　　　　if (aClass = integer) or (aClass = number) or (aClass = real) then
　　　　　　set the end of listText to (getFirst(firstFlag) of me & j as text)
　　　　　　set firstFlag to false
　　　　else if (aClass = string) or (aClass = text) or (aClass = Unicode text) then
　　　　　　set the end of listText to ((getFirst(firstFlag) of me & quotChar & j as text) & quotChar)
　　　　　　set firstFlag to false
　　　　else if aClass is list then
　　　　　　set the end of listText to (getFirst(firstFlag) of me & listToText(j)) –recursive call
　　　　　　set firstFlag to false
　　　　end if
　　end repeat
　　set the end of listText to “}”
　　set listText to listText as text
　　return listText
end listToText

on getFirst(aFlag)
　　if aFlag = true then return “”
　　if aFlag = false then return “,”
end getFirst

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

–指定形式でスクリーンキャプチャを指定フォルダに撮る
on screenCapture(aFolder, aType)
　　set aFolPOSIX to POSIX path of aFolder
　　set todayStr to do shell script “date +%Y%m%d%H%M%S” –YYMMDDHHMMSS
　　
　　–大文字小文字を無視、ピリオドを無視
　　ignoring case and punctuation
　　　　if aType is not in {“JPEG”, “PNG”, “GIFF”, “PDF”, “TIFF”} then
　　　　　　return false –エラー
　　　　end if
　　end ignoring
　　
　　–拡張子部分を小細工する
　　if aType begins with “.” then
　　　　set aExt to aType
　　　　set aType to text 2 thru -1 of aType
　　else
　　　　set aExt to “.” & aType
　　end if
　　
　　set aPathPOSIX to (aFolPOSIX & todayStr & aExt)
　　set aPathPOSIXq to quoted form of aPathPOSIX
　　set sText to “screencapture -xt” & aType & ” “ & aPathPOSIXq
　　
　　do shell script sText
　　return aPathPOSIX
　　
end screenCapture

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

–指定日に在任中の内閣総理大臣の氏名を取得
–【参照】　http://ja.wikipedia.org/wiki/内閣総理大臣の一覧
on retPrimeMinisterInJapan(aDate)
　　–議院内閣制成立以前ならfalse
　　set lowDate to “1885/12/22″
　　if aDate < date lowDate then
　　　　display dialog “まだ議院内閣制がはじまっていない時代です。”
　　　　return false
　　end if
　　
　　set primeList to {{“伊藤博文”, “1885/12/22″}, {“黒田清隆”, “1888/04/30″}, {“三條實美”, “1889/10/25″}, {“山縣有朋”, “1889/12/24″}, {“松方正義”, “1891/05/06″}, {“伊藤博文”, “1892/08/08″}, {“黒田清隆（臨時兼任）”, “1896/08/31″}, {“松方正義”, “1896/09/18″}, {“伊藤博文”, “1898/01/12″}, {“大隈重信”, “1898/06/30″}, {“山縣有朋”, “1898/11/8″}, {“伊藤博文”, “1900/10/19″}, {“西園寺公望（臨時兼任）”, “1901/05/10″}, {“桂太郎”, “1901/06/02″}, {“西園寺公望”, “1906/01/07″}, {“桂太郎”, “1908/07/14″}, {“西園寺公望”, “1911/08/30″}, {“桂太郎”, “1912/12/21″}, {“山本權兵衞”, “1913/02/20″}, {“大隈重信”, “1914/04/16″}, {“寺内正毅”, “1916/10/09″}, {“原敬”, “1918/09/29″}, {“内田康哉（臨時兼任）”, “1921/11/04″}, {“高橋是清”, “1921/11/13″}, {“加藤友三郎”, “1922/06/12″}, {“内田康哉（臨時兼任）”, “1923/08/24″}, {“山本權兵衞”, “1923/09/02″}, {“若槻禮次郎”, “1926/01/30″}, {“田中義一”, “1927/04/20″}, {“濱口雄幸”, “1929/07/02″}, {“若槻禮次郎”, “1931/04/14″}, {“犬養毅”, “1931/12/13″}, {“高橋是清（臨時兼任）”, “1932/05/16″}, {“齋藤實”, “1932/05/26″}, {“岡田啓介”, “1934/07/08″}, {“廣田弘毅”, “1936/03/09″}, {“林銑十郎”, “1937/02/02″}, {“近衞文麿”, “1937/06/04″}, {“平沼騏一郎”, “1939/01/05″}, {“阿部信行”, “1939/08/30″}, {“米内光政”, “1940/01/16″}, {“近衞文麿”, “1940/07/22″}, {“東條英機”, “1941/10/18″}, {“小磯國昭”, “1944/7/22″}, {“鈴木貫太郎”, “1945/04/07″}, {“東久邇宮稔彦王”, “1945/08/17″}, {“幣原喜重郎”, “1945/10/09″}, {“吉田茂”, “1946/05/22″}, {“片山哲”, “1947/05/24″}, {“芦田均”, “1948/03/10″}, {“吉田茂”, “1948/10/15″}, {“鳩山一郎”, “1954/12/10″}, {“石橋湛山”, “1956/12/23″}, {“岸信介”, “1957/02/25″}, {“池田勇人”, “1960/07/19″}, {“佐藤榮作”, “1964/11/09″}, {“田中角榮”, “1972/07/07″}, {“三木武夫”, “1974/12/09″}, {“福田赳夫”, “1976/12/24″}, {“大平正芳”, “1978/12/07″}, {“伊東正義（臨時代理）”, “1980/06/12″}, {“鈴木善幸”, “1980/07/17″}, {“中曾根康弘”, “1982/11/27″}, {“竹下登”, “1987/11/06″}, {“宇野宗佑”, “1989/06/03″}, {“海部俊樹”, “1989/08/10″}, {“宮澤喜一”, “1991/11/05″}, {“細川護熙”, “1993/08/09″}, {“羽田孜”, “1994/04/28″}, {“村山富市”, “1994/06/30″}, {“橋本龍太郎”, “1996/01/11″}, {“小渕恵三”, “1998/07/30″}, {“森喜朗”, “2000/04/05″}, {“小泉純一郎”, “2001/04/26″}, {“安倍晋三”, “2006/09/26″}, {“福田康夫”, “2007/09/26″}, {“福田康夫”, “2007/09/26″}, {“麻生太郎”, “2008/09/24″}, {“鳩山由紀夫”, “2009/09/16″}}
　　
　　set prList to reverse of primeList
　　
　　set hitF to false
　　repeat with i in prList
　　　　set aPrimeDate to contents of (item 2 of i)
　　　　if aDate > aPrimeDate then
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　end if
　　end repeat
　　
　　if hitF = false then return false
　　
　　return contents of (item 1 of i)
　　
end retPrimeMinisterInJapan

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

–伏せ字文字列を返す
on retMaskedStr(aStr)
　　set aList to characters of aStr
　　set outStr to “”
　　repeat with i in aList
　　　　set j to contents of i
　　　　set jID to ASCII number of j
　　　　
　　　　if jID ≥ 48 and jID ≤ 57 then
　　　　　　–0〜9
　　　　　　set outStr to outStr & “9″
　　　　　　
　　　　else if jID ≥ 65 and jID ≤ 90 then
　　　　　　–A〜Z
　　　　　　set outStr to outStr & “X”
　　　　　　
　　　　else if jID ≥ 97 and jID ≤ 122 then
　　　　　　–a〜z
　　　　　　set outStr to outStr & “x”
　　　　　　
　　　　else
　　　　　　–上記以外はそのまま出力
　　　　　　set outStr to outStr & j
　　　　　　
　　　　end if
　　end repeat
　　
　　return outStr
end retMaskedStr

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

–1〜9999までの数値を日本語的漢数字表現でエンコード
on convNumToKanjiNum(aNum)
　　–１万以上の場合にはヌルを返す（エラー）
　　if aNum > 9999 then return ""
　　
　　copy aNum to bNum
　　
　　set aNumList to {}
　　repeat with i from 3 to 0 by -1
　　　　set aDigit to 10 ^ i
　　　　
　　　　set tmpA to bNum div aDigit
　　　　set bNum to bNum - (aDigit * tmpA)
　　　　
　　　　set the end of aNumList to tmpA
　　　　
　　end repeat
　　
　　set outStr to ""
　　
　　set digitStrList to {"千", "百", "十", ""}
　　set kanjiNumList to {"一", "二", "三", "四", "五", "六", "七", "八", "九"}
　　
　　repeat with i from 1 to 4
　　　　set cNum to item i of aNumList
　　　　if cNum is not equal to 0 then
　　　　　　set cNum1 to contents of item cNum of kanjiNumList
　　　　　　set cNum2 to contents of item i of digitStrList
　　　　　　
　　　　　　if cNum = 1 and cNum2 is not "" then
　　　　　　　　–「1千」、「1百」、「1十」　というパターンは日本語表現的にはおかしいので補正する（きわめて日本的な慣例的表現。"one thousand"とはいわず、"thousand"というわけだ。ただ、声に出して読み上げるときには「いっせんまん」という）
　　　　　　　　set outStr to outStr & cNum2
　　　　　　else
　　　　　　　　set outStr to outStr & cNum1 & cNum2
　　　　　　end if
　　　　end if
　　end repeat
　　
　　return outStr
　　
end convNumToKanjiNum

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

–指定文字列の中に指定文字が何回出現するかカウントする
on countSpecifiedChar(aStrData, aChar)
　　set aList to characters of aStrData
　　set aCount to 0
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j = aChar then
　　　　　　set aCount to aCount + 1
　　　　end if
　　end repeat
　　return aCount
end countSpecifiedChar

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

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

–連続する文字（たぶんスペース）を1つにまとめる
on mergeMultipleChar(aStr, aChar)
　　set outStr to ""
　　set aList to characters of aStr
　　
　　set successF to false
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j = aChar then
　　　　　　if successF = false then
　　　　　　　　set successF to true
　　　　　　　　set outStr to outStr & j
　　　　　　else if successF = true then
　　　　　　　　–なんにもしないよ
　　　　　　end if
　　　　else
　　　　　　set successF to false
　　　　　　set outStr to outStr & j
　　　　end if
　　end repeat
　　
　　return outStr
end mergeMultipleChar

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

set aRes to getPairNumListInAllPattern(10, true) of me
–> {{0, 2}, {1, 1}, {2, 0}, {0, 3}, {1, 2}, {2, 1}, {3, 0}, {0, 4}, {1, 3}, {2, 2}, {3, 1}, {4, 0}, {0, 5}, {1, 4}, {2, 3}, {3, 2}, {4, 1}, {5, 0}, {0, 6}, {1, 5}, {2, 4}, {3, 3}, {4, 2}, {5, 1}, {6, 0}, {0, 7}, {1, 6}, {2, 5}, {3, 4}, {4, 3}, {5, 2}, {6, 1}, {7, 0}, {0, 8}, {1, 7}, {2, 6}, {3, 5}, {4, 4}, {5, 3}, {6, 2}, {7, 1}, {8, 0}, {0, 9}, {1, 8}, {2, 7}, {3, 6}, {4, 5}, {5, 4}, {6, 3}, {7, 2}, {8, 1}, {9, 0}, {0, 10}, {1, 9}, {2, 8}, {3, 7}, {4, 6}, {5, 5}, {6, 4}, {7, 3}, {8, 2}, {9, 1}, {10, 0}}

–指定値を構成するペアの全パターンのリストを求める
on getPairNumListInAllPattern(maxNum, allowZero)
　　set outList to {}
　　
　　if allowZero = true then
　　　　set startNum to 0
　　else
　　　　set startNum to 1
　　end if
　　
　　repeat with i from 2 to maxNum
　　　　repeat with ii from startNum to i
　　　　　　set a to ii
　　　　　　set b to i - ii
　　　　　　if allowZero = false then
　　　　　　　　–要素の中に0が入ることを許容しない場合
　　　　　　　　if a is not equal to 0 and b is not equal to 0 then
　　　　　　　　　　set the end of outList to {a, b}
　　　　　　　　end if
　　　　　　else
　　　　　　　　–要素の中に0が入ることを許容する場合
　　　　　　　　set the end of outList to {a, b}
　　　　　　end if
　　　　end repeat
　　end repeat
　　
　　return outList
end getPairNumListInAllPattern

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

on retJapaneseGengo(aDate)
　　
　　set aYear to year of aDate
　　set aMonth to month of aDate as number
　　set aDay to day of aDate
　　
　　set aStr to retZeroPaddingText(aYear, 4) of me & retZeroPaddingText(aMonth, 2) of me & retZeroPaddingText(aDay, 2) of me
　　
　　set aGengo to “”
　　if aStr ≥ “19890118″ then
　　　　set aGengo to “平成”
　　　　set aGengoNum to aYear - 1989 + 1
　　else if aStr ≥ “19261225″ then
　　　　set aGengo to “昭和”
　　　　set aGengoNum to aYear - 1926 + 1
　　else if aStr ≥ “19120730″ then
　　　　set aGengo to “大正”
　　　　set aGengoNum to aYear - 1912 + 1
　　else if aStr ≥ “18681125″ then
　　　　set aGengo to “明治”
　　　　set aGengoNum to aYear - 1868 + 1
　　end if
　　
　　return {aGengo, aGengoNum}
　　
end retJapaneseGengo

–数値にゼロパディングしたテキストを返す
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

on parseDate(inStr)
　　set aClass to class of inStr
　　if aClass = string then
　　　　try
　　　　　　set aDate to date inStr
　　　　on error
　　　　　　return false
　　　　end try
　　else if aClass = date then
　　　　set aDate to inStr
　　　　
　　end if
　　
　　return aDate
　　
end parseDate

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

–>
(*
{"\"applescript\" foldoc \"The Free On-line Dictionary of Computing (27 SEP 03)\"
AppleScript

<language> An {object-oriented} {shell} language for the
{Macintosh}, approximately a superset of {HyperTalk}.

(1995-12-10)

."}
*)

on get_definition(word_to_define)
　　try
　　　　set ASCII_13 to (ASCII character 13)
　　　　set the_script to snr(("dict://dict.org/d:" & word_to_define & ":*"), " ", "%20") of me
　　　　–Thanks to Greg Spense for the grep code
　　　　set the_definitions to do shell script "curl -s " & (quoted form of the_script) & " | egrep -v ‘^220.*|^250.*|^150.*|^221.*’"
　　　　set the_definitions to searchAndReplace(the_definitions, "151 ", "") of me
　　　　set the_definitions to string_to_list(the_definitions, (ASCII_13 & "." & ASCII_13)) of me
　　　　return the_definitions
　　on error the_err
　　　　return the_err
　　end try
end get_definition

on searchAndReplace(the_string, search_string, replace_string)
　　tell (a reference to AppleScript’s text item delimiters)
　　　　set {old_tid, contents} to {contents, search_string}
　　　　set {the_string, contents} to {the_string’s text items, replace_string}
　　　　set {the_string, contents} to {the_string as Unicode text, old_tid}
　　end tell
　　return the_string
end searchAndReplace

on string_to_list(s, d)
　　tell (a reference to AppleScript’s text item delimiters)
　　　　set {o, contents} to {contents, d}
　　　　set {s, contents} to {s’s text items, o}
　　end tell
　　return s
end string_to_list