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ジュール"

–Weight

set engMFormatter to current application’s NSMassFormatter’s alloc()’s init()
engMFormatter’s numberFormatter()’s setLocale:(current application’s NSLocale’s localeWithLocaleIdentifier:"en-US")
engMFormatter’s setUnitStyle:(current application’s NSFormattingUnitStyleLong) –NSFormattingUnitStyleShort, NSFormattingUnitStyleMedium, NSFormattingUnitStyleLong

set a1Res to (engMFormatter’s stringFromKilograms:85) as string –Kg
–>　　"187.393 pounds"
set a2Res to (engMFormatter’s stringFromValue:1 unit:(current application’s NSMassFormatterUnitGram)) as string –g
–>　　"1 gram"
set a3Res to (engMFormatter’s stringFromValue:1 unit:(current application’s NSMassFormatterUnitOunce)) as string –オンス
–>　　"1 ounce"
set a4Res to (engMFormatter’s stringFromValue:1 unit:(current application’s NSMassFormatterUnitStone)) as string –ストーン（=14 pounds）
–>　　"1 stone"

set jpnMFormatter to current application’s NSMassFormatter’s alloc()’s init()
jpnMFormatter’s numberFormatter()’s setLocale:(current application’s NSLocale’s localeWithLocaleIdentifier:"ja")
jpnMFormatter’s setUnitStyle:(current application’s NSFormattingUnitStyleLong) –NSFormattingUnitStyleShort, NSFormattingUnitStyleMedium, NSFormattingUnitStyleLong

set j1Res to (jpnMFormatter’s stringFromKilograms:85) as string –Kg
–>　　"85キログラム"
set j2Res to (jpnMFormatter’s stringFromValue:1 unit:(current application’s NSMassFormatterUnitGram)) as string –g
–>　　"1グラム"
set j3Res to (jpnMFormatter’s stringFromValue:1 unit:(current application’s NSMassFormatterUnitOunce)) as string –オンス
–>　　"1オンス"
set j4Res to (jpnMFormatter’s stringFromValue:1 unit:(current application’s NSMassFormatterUnitStone)) as string –ストーン（=14 pounds）
–>　　"1ストーン

–Length

set engLFormatter to current application’s NSLengthFormatter’s alloc()’s init()
engLFormatter’s numberFormatter()’s setLocale:(current application’s NSLocale’s localeWithLocaleIdentifier:"en-US")
engLFormatter’s setUnitStyle:(current application’s NSFormattingUnitStyleLong) –NSFormattingUnitStyleShort, NSFormattingUnitStyleMedium, NSFormattingUnitStyleLong

set a1Res to (engLFormatter’s stringFromMeters:85) as string –m
–>　　"92.956 yards"
set a2Res to (engLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitMillimeter)) as string –mm
–>　　"1 millimeter"
set a3Res to (engLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitCentimeter)) as string –cm
–>　　"1 centimeter"
set a4Res to (engLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitMeter)) as string –m
–>　　"1 meter"
set a5Res to (engLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitKilometer)) as string –Km
–>　　"1 kilometer"
set a6Res to (engLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitInch)) as string –inch
–>　　"1 inch"
set a7Res to (engLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitFoot)) as string –feet
–>　　"1 foot"
set a8Res to (engLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitYard)) as string –Yard
–>　　"1 yard"
set a9Res to (engLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitMile)) as string –Mile
–>　　"1 mile"

set jpnLFormatter to current application’s NSLengthFormatter’s alloc()’s init()
jpnLFormatter’s numberFormatter()’s setLocale:(current application’s NSLocale’s localeWithLocaleIdentifier:"ja")
jpnLFormatter’s setUnitStyle:(current application’s NSFormattingUnitStyleLong) –NSFormattingUnitStyleShort, NSFormattingUnitStyleMedium, NSFormattingUnitStyleLong

set j1Res to (jpnLFormatter’s stringFromMeters:85) as string –m
–>　　"85メートル"
set j2Res to (jpnLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitMillimeter)) as string –mm
–>　　"1ミリメートル"
set j3Res to (jpnLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitCentimeter)) as string –cm
–>　　"1センチメートル"
set j4Res to (jpnLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitMeter)) as string –m
–>　　"1メートル"
set j5Res to (jpnLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitKilometer)) as string –Km
–>　　"1キロメートル"
set j6Res to (jpnLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitInch)) as string –inch
–>　　"1インチ"
set j7Res to (jpnLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitFoot)) as string –feet
–>　　"1フィート"
set j8Res to (jpnLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitYard)) as string –Yard
–>　　"1ヤード"
set j9Res to (jpnLFormatter’s stringFromValue:1 unit:(current application’s NSLengthFormatterUnitMile)) as string –Mile
–>　　"1マイル"

set theNSMassFormatter to current application’s NSMassFormatter’s alloc()’s init()
theNSMassFormatter’s numberFormatter()’s setLocale:(current application’s NSLocale’s localeWithLocaleIdentifier:"en-US")
theNSMassFormatter’s setUnitStyle:(current application’s NSFormattingUnitStyleLong)
(theNSMassFormatter’s stringFromKilograms:85) as list of string or string
log result
–> "187.393 pounds"
(theNSMassFormatter’s stringFromValue:1 unit:(current application’s NSMassFormatterUnitGram)) as list of string or string
log result
–>　　"1 gram"