UWSC辞典

16進数を2進数に変換します。2進数を16進数に変換するにはbinToHex関数を使います。

構文

1. UString = hexToBin( hex )

引数

hex

16進数

戻値

2進数に変換した値

プログラム

//////////////////////////////////////////////////
// 【引数】
//   hex : 16進数 
// 【戻値】
//   2進数に変換した値 
//////////////////////////////////////////////////
FUNCTION hexToBin(hex)
	HASHTBL hb
	hb["0"] = "0000"; hb["1"] = "0001";
	hb["2"] = "0010"; hb["3"] = "0011";
	hb["4"] = "0100"; hb["5"] = "0101";
	hb["6"] = "0110"; hb["7"] = "0111";
	hb["8"] = "1000"; hb["9"] = "1001";
	hb["a"] = "1010"; hb["b"] = "1011";
	hb["c"] = "1100"; hb["d"] = "1101";
	hb["e"] = "1110"; hb["f"] = "1111";
	bin = ""
	FOR n = 1 TO LENGTH(hex)
		str = COPY(hex, n, 1)
		bin = bin + hb[str]
	NEXT
	RESULT = bin
FEND//////////////////////////////////////////////////
// 【引数】
//   hex : 16進数 
// 【戻値】
//   2進数に変換した値 
//////////////////////////////////////////////////
FUNCTION hexToBin(hex)
	HASHTBL hb
	hb["0"] = "0000"; hb["1"] = "0001";
	hb["2"] = "0010"; hb["3"] = "0011";
	hb["4"] = "0100"; hb["5"] = "0101";
	hb["6"] = "0110"; hb["7"] = "0111";
	hb["8"] = "1000"; hb["9"] = "1001";
	hb["a"] = "1010"; hb["b"] = "1011";
	hb["c"] = "1100"; hb["d"] = "1101";
	hb["e"] = "1110"; hb["f"] = "1111";
	bin = ""
	FOR n = 1 TO LENGTH(hex)
		str = COPY(hex, n, 1)
		bin = bin + hb[str]
	NEXT
	RESULT = bin
FEND