汎用ゼロパディング（桁数指定） Applescript

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002
003	##最大番号
004	set strMexNO to 9999 as integer
005	##テキストにして
006	set strCntNo to strMexNO as text
007	##桁数を調べ
008	set numLength to (length of strCntNo) as integer
009	##桁数をマイナスの値にしておく
010	set numThrough to (numLength * -1) as number
011	#ゼロを追加するテキスト初期化
012	set strZeroPadd to ("") as text
013	##桁数分ゼロを追加
014	repeat numLength times
015	set strZeroPadd to (strZeroPadd & "0") as text
016	end repeat
017
018	set numCntNo to 0 as integer
019	repeat 100 times
020	##数値をテキストにして
021	set strCntNo to numCntNo as text
022	##桁数分の０のテキストに数値を追加
023	set strZeroPaddNo to (strZeroPadd & strCntNo) as text
024	##必要な桁数分だけ取り出す
025	set strPrintPageNO to (text numThrough through -1 of strZeroPaddNo) as text
026	log strPrintPageNO
027
028
029	set numCntNo to numCntNo + 11 as integer
030	end repeat
AppleScriptで生成しました

---

小数点以下 X桁での丸め

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#
004	# com.cocolog-nifty.quicktimer.icefloe
005	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
006	##自分環境がos12なので2.8にしているだけです
007	use AppleScript version "2.8"
008	use framework "Foundation"
009	use scripting additions
010
011	property refMe : a reference to current application
012
013	set numNumber to (29.970029830933) as number
014
015	set ocidDecimalNumber to refMe's NSDecimalNumber's decimalNumberWithString:(numNumber as text)
016	set appNumberFormatter to refMe's NSNumberFormatter's alloc()'s init()
017	appNumberFormatter's setPositiveFormat:("#,##0.00")
018	set ocidDecimalNumber to appNumberFormatter's stringFromNumber:(ocidDecimalNumber)
019
020	log ocidDecimalNumber as text
021	log ocidDecimalNumber's doubleValue() as number
022	-->(*29.97*)
AppleScriptで生成しました

---

汎用ゼロパディング（桁数指定）

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001
002	log doAddLeadingZeros(1, 3)
003	log doAddLeadingZeros(99, 3)
004	log doAddLeadingZeros(100, 3)
005	log doAddLeadingZeros(1, 4)
006	log doAddLeadingZeros(99, 4)
007	log doAddLeadingZeros(100, 4)
008	log doAddLeadingZeros(1000, 4)
009
010
011
012
013	on doAddLeadingZeros(argNo, argAddZeros)
014	#渡された数値
015	set numArgNo to argNo as integer
016	set strArgNo to argNo as text
017	#渡された桁数に10のべき乗
018	set numArgAddZeros to argAddZeros as integer
019	set numThresholdDigits to (10 ^ argAddZeros) as integer
020	#渡された数値が小さければ0を付与する処理をする
021	if numArgNo < numThresholdDigits then
022	#戻し値用のテキストを初期化
023	set strLeadingZeros to ("") as text
024	#渡された数値の桁数を数える
025	set numCntLength to (length of strArgNo) as integer
026	#追加する0の数
027	set numAddZero to (numArgAddZeros - numCntLength) as integer
028	#戻し値用のテキストに↑の数だけ０を追加
029	repeat numAddZero times
030	set strLeadingZeros to (strLeadingZeros & "0") as text
031	end repeat
032	#戻し値用の0に渡された値を並べてテキストで戻す
033	set strArgNo to (strLeadingZeros & strArgNo) as text
034	return strArgNo
035	else
036	#処理不要ならそのままテキストで戻す
037	return strArgNo as text
038	end if
039	end doAddLeadingZeros
AppleScriptで生成しました

---

[NSNumberFormatter]数値→ゼロパディングされたテキスト

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

#com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.5"

use framework "Foundation"

use scripting additions

property refMe : a reference to current application

set numNo to 1 as integer

set ocidFormatter to refMe's NSNumberFormatter's alloc()'s init()

ocidFormatter's setMinimumIntegerDigits:(3)

ocidFormatter's setMaximumIntegerDigits:(3)

set ocidDecStr to (ocidFormatter's stringFromNumber:(numNo))

log ocidDecStr as text

-->(*001*)

set numNo to 99 as integer

set ocidFormatter to refMe's NSNumberFormatter's alloc()'s init()

ocidFormatter's setMinimumIntegerDigits:(3)

ocidFormatter's setMaximumIntegerDigits:(3)

set ocidDecStr to (ocidFormatter's stringFromNumber:(numNo))

log ocidDecStr as text

-->(*099*)

set numNo to 120 as integer

set ocidFormatter to refMe's NSNumberFormatter's alloc()'s init()

ocidFormatter's setMinimumIntegerDigits:(3)

ocidFormatter's setMaximumIntegerDigits:(3)

set ocidDecStr to (ocidFormatter's stringFromNumber:(numNo))

log ocidDecStr as text

-->(*120*)

---

3桁ゼロパディング

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001	set numCnt to 0 as number
002
003	repeat 100 times
004	set numCnt to numCnt + 1 as number
005	set strZeroPadd to "000" as text
006	set strZeroPadd to (strZeroPadd & (numCnt as text)) as text
007	set strZeroPadd to (text -3 through -1 of strZeroPadd) as text
008
009	log strZeroPadd
010	end repeat
AppleScriptで生成しました

---

整数のゼロパディング

stringByPaddingToLengthからの
substringFromIndex

【スクリプトエディタで開く】

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

#

#

#

#                       com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use scripting additions

property refMe : a reference to current application

##元になる整数

set numInteger to 10 as integer

####指定桁数

set numZeroSuppCnt to 6 as integer

####出力用テキスト初期化

set ocidZeroSupText to refMe's NSMutableString's stringWithCapacity:0

####０ゼロを指定桁数だけ並べたテキストを作る

set ocidZeroSupText to ocidZeroSupText's stringByPaddingToLength:numZeroSuppCnt withString:"0" startingAtIndex:0

####後ろに値をテキストで追加する

ocidZeroSupText's appendString:(numInteger as text)

####追加した数値の桁数

set nimIntLength to (numInteger as text)'s length as integer

####桁数分減らしたテキストを取り出す

set ocidZeroSupStr to ocidZeroSupText's substringFromIndex:nimIntLength

####戻り値

log ocidZeroSupStr as text

[AppleScript]小数点以下桁揃え（切り捨て）

set numMM to 3 as number

set numPt to numMM * 2.8346456693 as number

-->(*8.5039370079*)

set strPt to (numPt as text)

-->(*8.5039370079*)

set AppleScript's text item delimiters to "."

set listPt to every text item of strPt as list

set AppleScript's text item delimiters to ""

-->{8, 5039370079}

set strPtInt to text item 1 of listPt as text

-->(*8*)

set strPtDecimal to text item 2 of listPt as text

-->(*5039370079*)

set strPtDecimal to (text 1 through 2 of (strPtDecimal & "00")) as text

-->(*5*)

set numPt to ("" & strPtInt & "." & strPtDecimal & "") as number

-->(*8.5*)

[Padding]ゼロパディング（日時）

日付

set strCommandText to ("/bin/date +%Y%m%d") as text

set strDate to (do shell script strCommandText) as text

-->"20220401"

###年を取り出して

set numYear to (year of (current date)) as number

###テキストにして

set strYear to numYear as text

###月を取り出して

set numMonth to (month of (current date)) as number

###テキストにして

set strMonth to numMonth as text

###数値に００を足して最大４桁にして後ろの２桁取る

set strMonth to (text -2 through -1 of ("00" & strMonth)) as text

###日を取り出して

set strDays to (day of (current date)) as text

###数値に００を足して最大４桁にして後ろの２桁取る

set strDays to (text -2 through -1 of ("00" & strDays)) as text

###順番に並べる

set strDate to (strYear & strMonth & strDays) as text

---

時間

set strCommandText to ("/bin/date +%H%M%S") as text

set strDate to (do shell script strCommandText) as text

-->"090008"

###時間を取り出して

set numTime to (time of (current date)) as integer

###時だけ取り出し

set theHours to numTime div hours

###数値に００を足して最大４桁にして後ろの２桁取る

set theHours to (text -2 through -1 of ("00" & theHours)) as text

###分だけ取り出し

set theMinutes to (numTime - (theHours) * hours) div minutes

###数値に００を足して最大４桁にして後ろの２桁取る

set theMinutes to (text -2 through -1 of ("00" & theMinutes)) as text

###秒取り出して

set theSeconds to numTime mod minutes

###数値に００を足して最大４桁にして後ろの２桁取る

set theSeconds to (text -2 through -1 of ("00" & theSeconds)) as text

###順番に並べる

set theTime to (theHours & theMinutes & theSeconds) as text

[Padding]ゼロパディング（最大値指定）

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001
002	###doZeroSupp(値, 最大値)
003	set theZeroPaddNumber to doZeroPadd(1234, 12343)
004	log theZeroPaddNumber
005	theZeroPaddNumber
006
007	###doZeroPadd(値, 桁数)
008	on doZeroPadd(numNo, numMaxNo)
009	####数字をテキストに
010	set strNo to numNo as text
011	####桁数を数えて
012	set numCntNo to length of strNo as number
013	####最大値も桁数をテキストにしておく
014	set strMaxNo to numMaxNo as text
015	####最大値の桁数を数えて
016	set numCntMaxNo to length of strMaxNo as number
017	####桁数が同じになるまで繰り返し
018	repeat while numCntNo < numCntMaxNo
019	###元数字の前に０を足す
020	set strNo to ("0" & strNo) as text
021	###桁数をカウントアップ
022	set numCntNo to (numCntNo + 1) as text
023	end repeat
024	###桁数が最大桁数と同じになった所で０足したテキストを戻す
025	return strNo
026	end doZeroPadd
AppleScriptで生成しました

---

[Padding]ゼロパディング（桁数指定）

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#
004	#
005	# com.cocolog-nifty.quicktimer.icefloe
006	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
007	use AppleScript version "2.4"
008	use scripting additions
009
010
011	###doZeroSupp(値, 桁数)
012	set theZeoSuppNumber to doZeroPadd(1234, 5)
013	log theZeoSuppNumber
014
015	###doZeroPadd(値, 桁数)
016	on doZeroPadd(numNo, numPadNo)
017	####数字をテキストに
018	set strNo to numNo as text
019	####桁数を数えて
020	set numCntNo to length of strNo as number
021	####桁数が同じになるまで繰り返し
022	repeat while numCntNo < numPadNo
023	###元数字の前に０を足す
024	set strNo to ("0" & strNo) as text
025	###桁数をカウントアップ
026	set numCntNo to (numCntNo + 1) as text
027	end repeat
028	###桁数が最大桁数と同じになった所で０足したテキストを戻す
029	return strNo
030	end doZeroPadd
AppleScriptで生成しました

---