拷贝字符串速度之对比: 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

最近自己将自己常用的VB函数，准备将其一部分用C重写为API（方便于excel或access调用，这样不用重写或复制代码了）
在深入编写API过程中发现很多VB的技术内幕，可以说VB就是COM技术的集合。

现在也完全明白了调用DLL的API的本质：分为动态调用及静态调用

动态调用：使用 Declare 申明（VB后台实则调用LoadLibrary进行加载）
静态调用：使用MIDL编写的TLB静态引用（直接二进制）

两者速度经过测试（环境有严格要求）
1，函数：1千万次*2行代码＝（16（函数初始）+6（代码）＝22条汇编指令），单位：毫秒，文件已编译
2. CPU全开，断网，清空后台，CUP空闲100%
结果如下：
动态调用 94
静态调用 62。得出每条指令2.818181818（1千万次）(共22条汇编指令)
两者相差了32毫秒，这应该就是动态调用，多用的时间，LoadLibrary 应该约12条汇编指令（前提是DLL已经加载到当前进程）

wang1999

再补充 "=" VS  "LSET":
哪家强

结论如下:
'等号赋值
Private Sub CopyStringEqual()
    Dim s1 As String, s2 As String
    s1 = "123456"
    Debug.Print StrPtr(s1)
    s2 = "654321"
    s1 = s2
    Debug.Print StrPtr(s1)
End Sub
'Lset 赋值
Private Sub CopyStringLet()
    Dim s1 As String, s2 As String
    s1 = "123456"
    Debug.Print StrPtr(s1)
    s2 = "654321"
    LSet s1 = s2
    Debug.Print StrPtr(s1)
End Sub
还是说明一下
LSET的用法注意了,两边要相等,否则你试试 :0)

ganlinlao

我前面说的继承，当然不是指implements。如果是implements接口继承，那就谈不上是什么汇集了大部分vb难点了。
我说的继承是指父子继承。当然也能够实现vb函数重载。不过还是算了，不谈这话题，扯远了。

zpy2

wang1999 发表于 2015-6-13 15:04
在vb里实现类的继承, 其实这个很简单:基本用Implements来实现, 如果你装有VB6的MSDN, 里面就有详细的示例 ...

implements 我用过，用抽象类 ，实现接口，同一个接口，可以派生不同的类，应该叫多态。在vb中一般用后期绑定，用抽象类后，可以，前期绑定抽象类。
implements在vba中没有。
vb中对父对象的属性，全部要重新封装的，.net的可以。

t小宝

不错，学习了

wang1999

今天给出VB中拷贝字符串速度之对比.
1表示倍数, 代表时间基数条件:2字节数
语句:MID$, 1
语句:MID, API:copymemory,  2
运算符:=, 4(需要清除原字符内存,然后再创建字符)
字节数组:byte(), 6(需要创建动态数组SAFEARRAY,然后再创建数据)
2015-06-25, 补充

条件:52字节数,28个字符
语句set, copymemory 1 (copymemory 还比Lset稍快)
运算符:=, 1.5
语句:MID$, 3

wang1999

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

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

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

zpy2

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

有链接吗？特别那个大学生的类，很想了解下。

wang1999

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

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

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


不过谢谢你的推荐,