拷贝字符串速度之对比: CopyMemory 与 动态字节数组

wang1999

好久没写代码了, 前几天有看到说VBA调用API很慢(CopyMemory), 我听了很费解, 也不好说明, 只好用数据说话.
所以做了个有趣的的测试.主要代码如下:
Public ShareInt16(7) As Integer     '整形, 128位, 2*08=16个字节
Private Function TestSink_TestFun2() As Long
    Dim varRet As Long, i As Long, strTmp As String, bytData() As Byte
    If mblnSkipRun = False Then
        '测试函数与代码放入此
        strTmp = "&H7FFFABCD"
        bytData = strTmp
    End If
End Function


Private Function TestSink_TestFun1() As Long
    Dim varRet As Long, i As Long, strTmp As String
    If mblnSkipRun = False Then
        '测试函数与代码放入此
        strTmp = "7FFFABCD"
        CopyMemory ShareInt16(0), ByVal StrPtr(strTmp), 16&
    End If
End Function



图片如下:




结论:
CopyMemory比 VBA的动态字节数组, 整整快了2倍多
调用CopyMemory真的很快(后台调用指令很少)

wang1999

风中漫步 发表于 2015-6-9 16:44
少了"&h"当然更快

呵呵,多了一个32位, CPU多跑了一次.
16字节对比20字节差25%, 算一下一次还是 CopyMemory 快1.5倍

其实重点不在此, 我只是说明调用API得当, 速度照样杠杠的

wang1999

再深入一点, 两个问题?
1, 为什么 abytData = strTmp 字节数组赋值要慢? 它慢在哪?
2, 为什么 CopyMemory 要快呢? 它快在哪?
再深入要把这个问题弄懂, 就要对COM有所了解. 我也是忘记得差不多了.

1.1 它慢在, VB要多创建一个数组:SafeArray(动态数组的创建, 这个过程比较麻烦, 申请内存,指令要多) 然后再是数据复制.

2.1, 虽然CopyMemory是API,在"kernel32.dll"库中, 但这个库, 从系统启动时, 已经加载在内存中, 你VB中引用时, 已经VB无需再次加载, windows不过内存中调用罢了.
2.2 当然 ShareInt16 是公共申明的静态数组, 也有这点原因

wang1999

今天又进行一个比较
MID语句 对 CopyMemory 哪个快
    If mblnSkipRun = False Then
        Mid(msTmp1, 1&, 4&) = msTmp2   
    End If

CopyMemory 要多一句
    If mblnSkipRun = False Then
        mlTmp = StrPtr(msTmp2)
        CopyMemory ByVal StrPtr(mlTmp), ByVal msTmp2, 8&
    End If
注意: 是 MID语句 不是 MID函数

为了更公平, 这次全是公共申明

wang1999

代码改了一下:
Mid(msTmp1, 1&, 4&) = msTmp2

CopyMemory ByVal StrPtr(msTmp1), ByVal StrPtr(msTmp2), 8&

'初始化数据
Private Sub cmdInitialize_Click()
    msTmp1 = String(16, vbNullChar)
    msTmp2 = "abcdef12345"
End Sub


结果如下:



思考:
两者竟然一不分仲伯. 虽然两次取指针并复制 StrPtr
1.说明  StrPtr 只是一条简单LONG赋值, 速度是相当快
2.少两条指令复制, MID 应该要快呀?  原来 Variant (String) 这个是输入值, MID慢在这里了.
3. copymemory 则慢在 两条  StrPtr 复制, 所以综合2,3点 两者速度基本一致
所以:
在MID语句不方便使用的情况下, copymemory 与指针结合 可以作为VBA的一个操作语句, 在代码中随意使用, 有更多的灵活性, 且不仅不会牺牲性能.

wang1999

tmtony 发表于 2015-6-9 17:47
是的，用系统内置的 有时速度会快不少，不过，对有些用户，可能 对API有恐惧

另对你那个测试结果报告是 ...

其实我只是作了一个简单EXCEL模板, 还是只是手动把测试数据复制到EXCEL.

wang1999

至于VBA调用API的整个来龙去脉, 是怎么回事, 我还真不怎么清楚. 不知道老大们, 有没有文章 推荐看一下.

(应该是先检查DLL是否加载, 如果已经加载则通过函数指针直接调用,这个是我的想像,没有事实的依据){:soso_e144:}

wang1999

比memcpy更快的内存拷贝, 这个也不错
http://www.cnblogs.com/GoodGoodW ... /10/15/1852251.html

总结编译后的复制有两种
小数据逐步赋值
大数据循环赋值

wang1999

ganlinlao 发表于 2015-6-11 22:08
又看到一个开始在vb里涉及指针。毫不夸张地说，越深入，痛苦指数与日俱增。
有三篇具有里程碑意义的文章， ...

里程碑意义?有点夸张了吧, 这几篇实用性也不大.

我觉得老大推荐的不错, 主要是分类总结得不错.
http://www.office-cn.net/thread-120040-1-1.html


不过谢谢你的推荐,

wang1999

zpy2 发表于 2015-6-13 04:51
有链接吗？特别那个大学生的类，很想了解下。

在vb里实现类的继承, 其实这个很简单:基本用Implements来实现, 如果你装有VB6的MSDN, 里面就有详细的示例(可惜我现在没装), 只不用得很少, 给人感觉很神秘

我几年前弄过,可惜实用性真不是很强, 除非你用VBA开发的类有父子关系, 如创建类似ado中recordset与field之间的关系