- 構文
- UString = binToHex( bin )
- 引数
- bin
- 2進数
- 戻値
- 16進数に変換した値
プログラム
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 |
<div class="toolbar" style="font-size:120%; text-align:right;"><span class="fa fa-files-o" title="コピー"></span></div><code class="uwsc">////////////////////////////////////////////////// // 【引数】 // bin : 2進数 // 【戻値】 // 16進数に変換した値 ////////////////////////////////////////////////// FUNCTION binToHex(bin) HASHTBL bh bh["0000"] = "0"; bh["0001"] = "1"; bh["0010"] = "2"; bh["0011"] = "3"; bh["0100"] = "4"; bh["0101"] = "5"; bh["0110"] = "6"; bh["0111"] = "7"; bh["1000"] = "8"; bh["1001"] = "9"; bh["1010"] = "a"; bh["1011"] = "b"; bh["1100"] = "c"; bh["1101"] = "d"; bh["1110"] = "e"; bh["1111"] = "f"; len = CEIL(LENGTH(bin) / 4) * 4 bin = REPLACE(FORMAT(bin, len), " ", "0") hex = "" FOR n = 1 TO LENGTH(bin) / 4 str = COPY(bin, n * 4 - 3, 4) hex = hex + bh[str] NEXT RESULT = hex FEND</code><textarea style="display: none;">////////////////////////////////////////////////// // 【引数】 // bin : 2進数 // 【戻値】 // 16進数に変換した値 ////////////////////////////////////////////////// FUNCTION binToHex(bin) HASHTBL bh bh["0000"] = "0"; bh["0001"] = "1"; bh["0010"] = "2"; bh["0011"] = "3"; bh["0100"] = "4"; bh["0101"] = "5"; bh["0110"] = "6"; bh["0111"] = "7"; bh["1000"] = "8"; bh["1001"] = "9"; bh["1010"] = "a"; bh["1011"] = "b"; bh["1100"] = "c"; bh["1101"] = "d"; bh["1110"] = "e"; bh["1111"] = "f"; len = CEIL(LENGTH(bin) / 4) * 4 bin = REPLACE(FORMAT(bin, len), " ", "0") hex = "" FOR n = 1 TO LENGTH(bin) / 4 str = COPY(bin, n * 4 - 3, 4) hex = hex + bh[str] NEXT RESULT = hex FEND </textarea> |
