HackVBASpeed 之进制转换,之二进制转十进制.极限挑战

wang1999 · 发表于 2015-8-9 11:10:28

标题有点浮夸了, 各位看官随便拍{:soso_e112:}, 有好的代码尽管来挑战{:soso_e129:}

进制转换基本在VBA常常遇到, 也是最基础的函数, 之前写的转换今天看来如果进行深度优化, 速度提升可能有100倍.

0. 不限语言(汇编,C,VB,API, TLB都可以),
1. 能在VBA环境调用,
2. 能完成1~32位内长度的二进制字符串转换

wang1999 · 发表于 2015-8-9 11:19:13

这个我目前收集到VBA速度最快的二进制转十进制, 德国人写的, 但可惜只能定长字符串(32字符长度)
当然这是我收集,不是我写的, 如果要重写定长转换, 速度还是很容易超过它的. 但定长的实用性不强, 写出后意义也不大.

Public Function BitToLong04(bitexpr As String) As Long
' by G.Beckmann, G.Beckmann@NikoCity.de, 20001230
' based on BitToLong03 by Egbert Nierop, egbert_nierop@goovy.hotmail.com, 20001228
Static t%(31): Dim asc0%

If Len(bitexpr) <> 32 Then Exit Function

RtlMoveMemory t(0), ByVal StrPtr(bitexpr), 64
asc0 = KeyCodeConstants.vbKey0

BitToLong04 = t(1) - asc0
BitToLong04 = 2 * BitToLong04 + t(2) - asc0
BitToLong04 = 2 * BitToLong04 + t(3) - asc0
BitToLong04 = 2 * BitToLong04 + t(4) - asc0
BitToLong04 = 2 * BitToLong04 + t(5) - asc0
BitToLong04 = 2 * BitToLong04 + t(6) - asc0
BitToLong04 = 2 * BitToLong04 + t(7) - asc0
BitToLong04 = 2 * BitToLong04 + t(8) - asc0
BitToLong04 = 2 * BitToLong04 + t(9) - asc0
BitToLong04 = 2 * BitToLong04 + t(10) - asc0
BitToLong04 = 2 * BitToLong04 + t(11) - asc0
BitToLong04 = 2 * BitToLong04 + t(12) - asc0
BitToLong04 = 2 * BitToLong04 + t(13) - asc0
BitToLong04 = 2 * BitToLong04 + t(14) - asc0
BitToLong04 = 2 * BitToLong04 + t(15) - asc0
BitToLong04 = 2 * BitToLong04 + t(16) - asc0
BitToLong04 = 2 * BitToLong04 + t(17) - asc0
BitToLong04 = 2 * BitToLong04 + t(18) - asc0
BitToLong04 = 2 * BitToLong04 + t(19) - asc0
BitToLong04 = 2 * BitToLong04 + t(20) - asc0
BitToLong04 = 2 * BitToLong04 + t(21) - asc0
BitToLong04 = 2 * BitToLong04 + t(22) - asc0
BitToLong04 = 2 * BitToLong04 + t(23) - asc0
BitToLong04 = 2 * BitToLong04 + t(24) - asc0
BitToLong04 = 2 * BitToLong04 + t(25) - asc0
BitToLong04 = 2 * BitToLong04 + t(26) - asc0
BitToLong04 = 2 * BitToLong04 + t(27) - asc0
BitToLong04 = 2 * BitToLong04 + t(28) - asc0
BitToLong04 = 2 * BitToLong04 + t(29) - asc0
BitToLong04 = 2 * BitToLong04 + t(30) - asc0
BitToLong04 = t(31) - asc0 + 2 * BitToLong04
If t(0) <> asc0 Then BitToLong04 = BitToLong04 Or &H80000000
End Function

admin · 发表于 2015-8-10 08:59:13

赞一个！

wang1999 · 发表于 2015-8-10 12:49:38

admin 发表于 2015-8-10 08:59
赞一个！

这不是我的代码,=会上我的代码,再给我点个赞

.我的意思是挑战他的速度.

风中漫步 · 发表于 2015-8-10 16:47:17

静等大神们过招

wang1999 · 发表于 2015-8-10 17:42:09

风中漫步发表于 2015-8-10 16:47
静等大神们过招

我是业余玩玩, 凑个热闹{:soso_e121:}

搞了半天, 由于那个德国人已经进行多版的优化. 超过他不容易

'二进制转十进制.
'1.仅作对比使用.
'2.仅32位定长的二进制字符串.
Function BinToDecV6(BinString As String) As Long
If LenB(BinString) <> 64& Then Exit Function
Static saiShare() As Integer
Static sudtShare As UDT_SafeArray1D
'//1.初始化
With sudtShare
If .cDims Then '为了速度, 不采用【If .cDims = 0 Then】, 因为条件判定式为 boolean = short int.
Else
'初始化数组
.cDims = 1
.cbElements = 2
.fFeatures = FADF_AUTO Or FADF_FIXEDSIZE
.clocks = 1 '防止 VB 在卸载或中止时销毁, 因为描述符为手动栈区分配
.cElements = 32 '元素数量
PtrArr(saiShare) = VarPtr(sudtShare) '数组变量赋值(描述符的首地址)
'初始化数据表
Static salDate1(0 To 31) As Long
Dim i As Long
For i = 0 To 31
salDate1(i) = ShL(1, i)
Next
End If
.pvData = StrPtr(BinString) '联接字符串数据
'//2.转换数据
If saiShare(0) And &H1 Then BinToDecV6 = salDate1(31)
If saiShare(1) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(30)
If saiShare(2) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(29)
If saiShare(3) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(28)
If saiShare(4) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(27)
If saiShare(5) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(26)
If saiShare(6) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(25)
If saiShare(7) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(24)
If saiShare(8) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(23)
If saiShare(9) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(22)
If saiShare(10) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(21)
If saiShare(11) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(20)
If saiShare(12) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(19)
If saiShare(13) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(18)
If saiShare(14) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(17)
If saiShare(15) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(16)
If saiShare(16) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(15)
If saiShare(17) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(14)
If saiShare(18) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(13)
If saiShare(19) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(12)
If saiShare(20) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(11)
If saiShare(21) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(10)
If saiShare(22) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(9)
If saiShare(23) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(8)
If saiShare(24) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(7)
If saiShare(25) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(6)
If saiShare(26) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(5)
If saiShare(27) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(4)
If saiShare(28) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(3)
If saiShare(29) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(2)
If saiShare(30) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(1)
If saiShare(31) And &H1 Then BinToDecV6 = BinToDecV6 Or salDate1(0)
'//3.清理工作
.pvData = 0& '断开联接
End With
End Function

复制代码

速度对比
比德国人的快了14.23%

wang1999 · 发表于 2015-8-10 20:55:01

又简化了一个
速度更快, 这个应该是VB下的极限版本了. 即使用C写估计也就这样了

Function BinToDecV62(BinString As String) As Long
Static saiShare() As Integer, sudtShare As UDT_SafeArray1D
'//1.初始化
If LenB(BinString) <> 64& Then Exit Function
With sudtShare
If .cDims Then '为了速度, 不采用【If .cDims = 0 Then】, 因为条件判定式为 boolean = short int.
Else
'初始化数组
.cDims = 1
.cbElements = 2
.fFeatures = FADF_AUTO Or FADF_FIXEDSIZE
.clocks = 1 '防止 VB 在卸载或中止时销毁, 因为描述符为手动栈区分配
.cElements = 32 '元素数量
PtrArr(saiShare) = VarPtr(sudtShare) '数组变量赋值(描述符的首地址)
End If
.pvData = StrPtr(BinString) '联结字符串数据
'//2.转换数据
If saiShare(0) And &H1 Then BinToDecV62 = &H80000000
If saiShare(1) And &H1 Then BinToDecV62 = BinToDecV62 Or &H40000000
If saiShare(2) And &H1 Then BinToDecV62 = BinToDecV62 Or &H20000000
If saiShare(3) And &H1 Then BinToDecV62 = BinToDecV62 Or &H10000000
If saiShare(4) And &H1 Then BinToDecV62 = BinToDecV62 Or &H8000000
If saiShare(5) And &H1 Then BinToDecV62 = BinToDecV62 Or &H4000000
If saiShare(6) And &H1 Then BinToDecV62 = BinToDecV62 Or &H2000000
If saiShare(7) And &H1 Then BinToDecV62 = BinToDecV62 Or &H1000000
If saiShare(8) And &H1 Then BinToDecV62 = BinToDecV62 Or &H800000
If saiShare(9) And &H1 Then BinToDecV62 = BinToDecV62 Or &H400000
If saiShare(10) And &H1 Then BinToDecV62 = BinToDecV62 Or &H200000
If saiShare(11) And &H1 Then BinToDecV62 = BinToDecV62 Or &H100000
If saiShare(12) And &H1 Then BinToDecV62 = BinToDecV62 Or &H80000
If saiShare(13) And &H1 Then BinToDecV62 = BinToDecV62 Or &H40000
If saiShare(14) And &H1 Then BinToDecV62 = BinToDecV62 Or &H20000
If saiShare(15) And &H1 Then BinToDecV62 = BinToDecV62 Or &H10000
If saiShare(16) And &H1 Then BinToDecV62 = BinToDecV62 Or &H8000&
If saiShare(17) And &H1 Then BinToDecV62 = BinToDecV62 Or &H4000&
If saiShare(18) And &H1 Then BinToDecV62 = BinToDecV62 Or &H2000&
If saiShare(19) And &H1 Then BinToDecV62 = BinToDecV62 Or &H1000&
If saiShare(20) And &H1 Then BinToDecV62 = BinToDecV62 Or &H800&
If saiShare(21) And &H1 Then BinToDecV62 = BinToDecV62 Or &H400&
If saiShare(22) And &H1 Then BinToDecV62 = BinToDecV62 Or &H200&
If saiShare(23) And &H1 Then BinToDecV62 = BinToDecV62 Or &H100&
If saiShare(24) And &H1 Then BinToDecV62 = BinToDecV62 Or &H80&
If saiShare(25) And &H1 Then BinToDecV62 = BinToDecV62 Or &H40&
If saiShare(26) And &H1 Then BinToDecV62 = BinToDecV62 Or &H20&
If saiShare(27) And &H1 Then BinToDecV62 = BinToDecV62 Or &H10&
If saiShare(28) And &H1 Then BinToDecV62 = BinToDecV62 Or &H8&
If saiShare(29) And &H1 Then BinToDecV62 = BinToDecV62 Or &H4&
If saiShare(30) And &H1 Then BinToDecV62 = BinToDecV62 Or &H2&
If saiShare(31) And &H1 Then BinToDecV62 = BinToDecV62 Or &H1&
'//3.清理工作
.pvData = 0& '断开联结
End With
End Function

复制代码

测试结果如下, 与2楼的BitToLong04 相比, 速度竟然提升了33.87%.

PS:把自己以前写的二进制转换十进制代码作了一下对比. 速度是之前的25倍之多

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] HackVBASpeed 之进制转换,之二进制转十进制.极限挑战

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)