【ツール】16進数変換

＜16進数の変換スクリプトを作ってみた。＞

 

(* 10進数 から 16進数 に変換*)

my hexnumber(1000000)

--> "F4240"

 

on hexnumber(n) --|10進数＞16進数|

set hexCharacter to "0123456789ABCDEF"

set hexAns to ""

repeat

set hexAns to (character ((n mod 16) + 1) of hexCharacter) & hexAns

set n to n div 16

if n = 0 then exit repeat

end repeat

return hexAns

end hexnumber

—

 

 

(* 16進数 から 10進数 に変換*)

my  numberhex("F8c6")

--> 63686

 

on  numberhex(n) --|16進数＞10進数|

set hexCharacter to "0123456789ABCDEF"

set hexAns to 0

repeat with obj in (items of n)

set hexAns to (hexAns * 16) + ((offset in hexCharacter of obj) - 1)

end repeat

return hexAns

end numberhex

—

注）小数点以下がある数字は考慮していません。極端に大きな数字もできない仕様です。

（10進数で８桁までが限界）

 

（修正）つづり間違ってた。恥ずかしい（汗）