AppleScript名:数値にゼロパディングしたテキストを返す |
set aNum to 1 set aStr to retZeroPaddingText(aNum, 4) of me –数値にゼロパディングしたテキストを返す 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 |
More from my site
(Visited 328 times, 1 visits today)