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