on Stringify(x) — for E+ numbers
　　set x to x as string
　　set {tids, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, {"E+"}}
　　if (count (text items of x)) = 1 then
　　　　set AppleScript’s text item delimiters to {tids}
　　　　return x
　　else
　　　　set {n, z} to {text item 1 of x, (text item 2 of x) as integer}
　　　　set AppleScript’s text item delimiters to {tids}
　　　　set i to character 1 of n
　　　　set decSepChar to character 2 of n — "." or ","
　　　　set d to text 3 thru -1 of n
　　　　set l to count d
　　　　if l > z then
　　　　　　return (i & (text 1 thru z of d) & decSepChar & (text (z + 1) thru -1 of d))
　　　　else
　　　　　　repeat (z – l) times
　　　　　　　　set d to d & "0"
　　　　　　end repeat
　　　　　　return (i & d)
　　　　end if
　　end if
end Stringify

–数値を与えると序数の文字列を返す
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 j to "123456789"
set aStr to current application’s NSString’s stringWithString:j
set aNum to aStr’s intValue()

set aList to {}
set aRes to 0

repeat with i from 1 to 9999 by 1
　　set d to getDigit(i) of me
　　
　　if aRes is not equal to d then
　　　　set the end of aList to {i, d}
　　　　set aRes to d
　　end if
end repeat
aList
–> {{1, 1}, {10, 2}, {100, 3}, {1000, 4}}

set aRes1 to getNumDigit(-9999) of me
–> 3

set aRes2 to getNumDigit(100) of me
–> 2

set aTEXT to numToZeroPaddingStr(99, 4, "0")
–>　　"0099"

set aTEXT to numToZeroPaddingStr(99999999, 20, "0")
–> "00000000000099999999"

repeat with i from 1 to 3999
　　set aRes to numberToRomanNumerals(i) of me
　　set bRes to romanNumeralsToNumber(aRes) of me
　　log {i, aRes, bRes}
end repeat

–Roman Number String Encoder
on numberToRomanNumerals(aNum)
　　if (aNum < 0 or aNum > 3999) then return "" –条件が間違っていたので直した（2017/5/18）
　　
　　set r_ones to {"I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX"}
　　set r_tens to {"X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC"}
　　set r_hunds to {"C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM"}
　　set r_thouds to {"M", "MM", "MMM", "MMMM", "MMMMM", "MMMMMM", "MMMMMMM", "MMMMMMMM", "MMMMMMMMM"}
　　
　　set ones to aNum mod 10
　　set tens to (aNum – ones) mod 100
　　set hundreds to (aNum – tens – ones) mod 1000
　　set thou to (aNum – hundreds – tens – ones) mod 10000
　　
　　set tens to tens / 10
　　set hundreds to hundreds / 100
　　set thou to thou / 1000
　　
　　set rNum to current application’s NSString’s stringWithString:""
　　
　　if thou > 0 then set rNum to rNum’s stringByAppendingString:(item thou of r_thouds)
　　if hundreds > 0 then set rNum to rNum’s stringByAppendingString:(item hundreds of r_hunds)
　　if tens > 0 then set rNum to rNum’s stringByAppendingString:(item tens of r_tens)
　　if ones > 0 then set rNum to rNum’s stringByAppendingString:(item ones of r_ones)
　　
　　return rNum as text
end numberToRomanNumerals

–Roman Number String Decoder
on romanNumeralsToNumber(str)
　　— Piero Garzotto (http://scriptbuilders.net/files/romannumerals1.0.html)
　　local str, r, i
　　set r to 0
　　repeat with i from 1 to count str
　　　　set r to r + (item (offset of (item i of str) in "mdclxvi") of ¬
　　　　　　{1000, 500, 100, 50, 10, 5, 1}) * (((((offset of ¬
　　　　　　(item (i + 1) of (str & "@")) in "mdclxvi@") ≥ (offset of ¬
　　　　　　(item i of str) in "mdclxvi")) as integer) * 2) – 1)
　　end repeat
　　return r
end romanNumeralsToNumber

–NSByteCountFormatterCountStyle
property NSByteCountFormatterCountStyleFile : 0
property NSByteCountFormatterCountStyleMemory : 1
property NSByteCountFormatterCountStyleDecimal : 2
property NSByteCountFormatterCountStyleBinary : 3

set a to 100000

–ファイル容量
set b to current application’s NSByteCountFormatter’s stringFromByteCount:a countStyle:(current application’s NSByteCountFormatterCountStyleFile)
set c to b as string
log result
–> "100 KB"

–メモリー容量
set d to current application’s NSByteCountFormatter’s stringFromByteCount:a countStyle:(current application’s NSByteCountFormatterCountStyleMemory)
set e to b as string
log result
–> "100 KB"

–10進数
set f to current application’s NSByteCountFormatter’s stringFromByteCount:a countStyle:(current application’s NSByteCountFormatterCountStyleDecimal)
set g to b as string
log result
–> "100 KB"

–バイナリ？
set h to current application’s NSByteCountFormatter’s stringFromByteCount:a countStyle:(current application’s NSByteCountFormatterCountStyleBinary)
set i to b as string
log result
–> "100 KB"

–enums in DDVelocityUnitConverter.h
property DDVelocityUnitCentimetersPerHour : 0
property DDVelocityUnitCentimetersPerMinute : 1
property DDVelocityUnitCentimetersPerSecond : 2
property DDVelocityUnitFeetPerHour : 3
property DDVelocityUnitFeetPerMinute : 4
property DDVelocityUnitFeetPerSecond : 5
property DDVelocityUnitInchesPerHour : 6
property DDVelocityUnitInchesPerMinute : 7
property DDVelocityUnitInchesPerSecond : 8
property DDVelocityUnitKilometersPerHour : 9
property DDVelocityUnitKilometersPerMinute : 10
property DDVelocityUnitKilometersPerSecond : 11
property DDVelocityUnitKnots : 12
property DDVelocityUnitLight : 13
property DDVelocityUnitMach : 14
property DDVelocityUnitMetersPerHour : 15
property DDVelocityUnitMetersPerMinute : 16
property DDVelocityUnitMetersPerSecond : 17
property DDVelocityUnitMilesPerHour : 18
property DDVelocityUnitMilesPerMinute : 19
property DDVelocityUnitMilesPerSecond : 20
property DDVelocityUnitFurlongsPerFortnight : 21

–時速100kmを秒速kmに変換
set aVal to ((current application’s DDUnitConverter’s velocityUnitConverter())’s convertNumber:100 fromUnit:(DDVelocityUnitKilometersPerHour) toUnit:(DDVelocityUnitKilometersPerSecond)) as real
–>　　0.027777777778

set aRes to "595 x 842 pts (A4)"
set sizeRes to changePTStoMM(aRes) of me
log result
–> {strDat:"210.035 x 297.226 mm", numDat:{210.035, 297.226}}

set aRes to " 2242.2 x 1618.58 pts"
set sizeRes to changePTStoMM(aRes) of me
log result
–> {strDat:"210.035 x 297.226 mm", numDat:{210.035, 297.226}}

–ポイント数値のテキストをmmに書き換える v4
–問題が見つかったので書き換え（2010/3/12）
–超泥縄式の対応だったので、「(A4)」の判型表示が行われないケースにはきちんと対応できていなかった
–慌てて直した。ちゃんと文字と数字のアトリビュートを取得しているのでまじめに活用してみた
on changePTStoMM(aText)
　　set wList to words of aText
　　
　　set attrList to {}
　　repeat with i in wList
　　　　set the end of attrList to numChk(i) of me
　　end repeat
　　
　　set aCount to length of wList
　　
　　set aReNumList to {}
　　repeat with i from 1 to (aCount)
　　　　set anItem to item i of wList
　　　　set anAttr to item i of attrList
　　　　if anAttr = true then
　　　　　　set the end of aReNumList to (point2mm(anItem as number) of me)
　　　　end if
　　end repeat
　　
　　–エラー時の対応（多分ないと思うが、一応）
　　if length of aReNumList is not equal to 2 then return false
　　
　　–まじめに数値データから文字列を組み立てて返す　　
　　set num1 to contents of item 1 of aReNumList
　　set num2 to contents of item 2 of aReNumList
　　set aText to ((num1 as string) & " x " & num2 as string) & " mm"
　　
　　return {strDat:aText, numDat:aReNumList}
　　
end changePTStoMM

–リストを任意のデリミタ付きでテキストに
on makeStrFromListWithDelim(aDelim, aList)
　　set aText to ""
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set aText to aList as text
　　set AppleScript’s text item delimiters to curDelim
　　return aText
end makeStrFromListWithDelim

–ポイントからmmへの変換
on point2mm(a)
　　return (a * 0.353) –１ポイント＝0.353mm
end point2mm

–数値かどうか調べる
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

–Date Interval

set engNSDateIntervalFormatter to current application’s NSDateIntervalFormatter’s alloc()’s init()
engNSDateIntervalFormatter’s setLocale:(current application’s NSLocale’s localeWithLocaleIdentifier:"en-US")
engNSDateIntervalFormatter’s setDateStyle:(current application’s NSDateIntervalFormatterLongStyle)
engNSDateIntervalFormatter’s setDateTemplate:(current application’s NSDateFormatter’s alloc()’s init()’s setDateFormat:"yyyy-MM-dd HH:mm")
engNSDateIntervalFormatter’s setTimeStyle:(current application’s NSDateIntervalFormatterNoStyle)
engNSDateIntervalFormatter’s setTimeZone:(current application’s NSTimeZone’s timeZoneWithAbbreviation:"JST")
engNSDateIntervalFormatter’s setCalendar:(current application’s NSCalendar’s currentCalendar())

set startDate to current application’s NSDate’s |date|()
set endDate to current application’s NSDate’s dateWithTimeInterval:86400 sinceDate:startDate
set outEString to (engNSDateIntervalFormatter’s stringFromDate:startDate toDate:endDate) as string
–>　　"1/14/16 – 1/15/16"–ShortStyle
–>　　"Jan 14 – 15, 2016"–Medium Style
–>　　"January 14 – 15, 2016"–Long Style
–>　　"Thursday, January 14 – Friday, January 15, 2016"–Full Style

set jpnNSDateIntervalFormatter to current application’s NSDateIntervalFormatter’s alloc()’s init()
jpnNSDateIntervalFormatter’s setLocale:(current application’s NSLocale’s localeWithLocaleIdentifier:"ja")
jpnNSDateIntervalFormatter’s setDateStyle:(current application’s NSDateIntervalFormatterFullStyle)
jpnNSDateIntervalFormatter’s setDateTemplate:(current application’s NSDateFormatter’s alloc()’s init()’s setDateFormat:"yyyy-MM-dd HH:mm")
jpnNSDateIntervalFormatter’s setTimeStyle:(current application’s NSDateIntervalFormatterNoStyle)
jpnNSDateIntervalFormatter’s setTimeZone:(current application’s NSTimeZone’s timeZoneWithAbbreviation:"JST")
jpnNSDateIntervalFormatter’s setCalendar:(current application’s NSCalendar’s currentCalendar())

–Energy

set engEFormatter to current application’s NSEnergyFormatter’s alloc()’s init()
engEFormatter’s numberFormatter()’s setLocale:(current application’s NSLocale’s localeWithLocaleIdentifier:"en-US")
engEFormatter’s setUnitStyle:(current application’s NSFormattingUnitStyleLong)

engEFormatter’s setForFoodEnergyUse:true
set a1Res to (engEFormatter’s stringFromJoules:85) as string
–>　　"20.315 calories"

engEFormatter’s setForFoodEnergyUse:false
set a1Res to (engEFormatter’s stringFromJoules:85) as string
–>　　"20.315 calories"

set a2Res to (engEFormatter’s stringFromValue:1 unit:(current application’s NSEnergyFormatterUnitJoule)) as string –joule
–>　　"1 joule"
set a3Res to (engEFormatter’s stringFromValue:1 unit:(current application’s NSEnergyFormatterUnitKilojoule)) as string –k joule
–>　　"1 kilojoule"
set a4Res to (engEFormatter’s stringFromValue:1 unit:(current application’s NSEnergyFormatterUnitCalorie)) as string –Cal
–>　　"1 calorie"
set a5Res to (engEFormatter’s stringFromValue:1 unit:(current application’s NSEnergyFormatterUnitKilocalorie)) as string –K Cal
–>　　"1 kilocalorie"

set jpnEFormatter to current application’s NSEnergyFormatter’s alloc()’s init()
jpnEFormatter’s numberFormatter()’s setLocale:(current application’s NSLocale’s localeWithLocaleIdentifier:"ja")
jpnEFormatter’s setUnitStyle:(current application’s NSFormattingUnitStyleLong)

jpnEFormatter’s setForFoodEnergyUse:true
set j1Res to (jpnEFormatter’s stringFromJoules:85) as string
–>　　"85ジュール"

jpnEFormatter’s setForFoodEnergyUse:false
set j1Res to (jpnEFormatter’s stringFromJoules:85) as string
–>　　"85ジュール"