• ベストアンサー

2進数と16進数の相互変換

VBScriptで 2進数と16進数の相互変換をしたいのですが、 進数を変換する関数としては、 Hex関数やOct関数ぐらいしか見当たりません。 どうしたらいいのでしょうか? よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • hofuhofu
  • ベストアンサー率70% (336/476)
回答No.1

無ければ作るまでです。 Dim MyBin, MyHex MyBin = Hex2Bin("FF") WScript.Echo MyBin MyHex = Bin2Hex(MyBin) WScript.Echo MyHex Function Hex2Bin(Hex) Dim Dec Dec = CInt("&H" + Hex) Hex2Bin = Dec2Bin(Dec) End Function Function Bin2Hex(Bin) Dim Dec Dec = Bin2Dec(Bin) Bin2Hex = Hex(Dec) End Function Function Dec2Bin(ByVal Dec) Do Dec2Bin = CStr(Dec Mod 2) & Dec2Bin Dec = Dec \ 2 Loop Until Dec = 0 End Function Function Bin2Dec(Bin) For i=1 To Len(Bin) Bin2Dec = Bin2Dec * 2 + CInt(Mid(Bin,i,1)) Next End Function

harisun
質問者

お礼

なるほど、変換出来てます。 どうもありがとうございました。

関連するQ&A