hexToBin

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)
		bin = bin + hb[COPY(hex, n, 1)]
	NEXT
	RESULT = bin
FEND

解説

  1. 11行目
    	bin = ""
    
    2進数に変換した値を代入する変数bin。
  2. 12行目
    	FOR n = 1 TO LENGTH(hex)
    
    n=1からhexの文字数だけ繰り返す。