一个八进制和十六进制转二进制的奇妙方法

[z_wenqian]

近来没事，翻看网上关于进制转换的文章，发现八进制与十六进制转二进制的方法都很麻烦，因此写个简单一点的方法，原理都一样，只是想法叫奇妙，感觉还比较好，抛出来供大家参考。

Public Function OctToBin(ByVal sOct As String) As String
Const s1 = "0001011100", s2 = "01253764"
Dim i As Integer, sBin As String
For i = 1 To Len(sOct)
sBin = sBin & Mid(s1, InStr(1, s2, Mid(sOct, i, 1)), 3)
Next i
OctToBin = sBin
End Function

Public Function HexToBin(ByVal sHex As String) As String
Const s1 = "0000101001101111000", s2 = "0125A4936DB7FEC8"
Dim i As Integer, sBin As String
sHex = UCase(sHex)
For i = 1 To Len(sHex)
sBin = sBin & Mid(s1, InStr(1, s2, Mid(sHex, i, 1)), 4)
Next i
HexToBin = sBin
End Function

[awperpvip]

不错
xuexi

[tingting1123]

看看..

[波导终结者]

想法比较巧妙，但是以前在哪见过几位高人讨论，说这样速度或者效率会受影响，不过自己没试过。

[z_wenqian]

相同方法，附上二进制转八进制和十六进制代码

Public Function BinToOct(ByVal sBin As String) As String
Const s1 = "0001011100", s2 = "01253764"
Dim i As Integer, sOCt As String
sBin = String(2 - (Len(sBin) - 1) Mod 3, "0") & sBin
For i = 1 To Len(sBin) Step 3
sOCt = sOCt & Mid(s2, InStr(1, s1, Mid(sBin, i, 3)), 1)
Next i
BinToOct = sOCt
End Function

Public Function BinToHex(ByVal sBin As String) As String
Const s1 = "0000101001101111000", s2 = "0125A4936DB7FEC8"
Dim i As Integer, sHex As String
sBin = String(3 - (Len(sBin) - 1) Mod 4, "0") & sBin
For i = 1 To Len(sBin) Step 4
sHex = sHex & Mid(s2, InStr(1, s1, Mid(sBin, i, 4)), 1)
Next i
BinToHex = sHex
End Function

[zcfhero]

看看.. bu不错

[lancelotaerin]

十六进制转二进制想法是不错，但是有BUG，不知试过没有，0-9这样的十六进制是可以转的，但是A——F就不行了
不信你试试看

[z_wenqian]

我不知楼上的让我试什么，我记得好像试过才发的，是不是你弄错了

[pusiyu]

感觉满巧妙的

[wangxin5576]

学习学习

[skdyu]

进制转换，学学

[6742]

不错
谢谢！