版权声明:本文为博主原创文章,转载请注明出处。 https://blog.csdn.net/taller_2000/article/details/81586167
西游记中孙悟空最神奇的本领之一就是拔根毫毛,瞬间变出无数个孙猴子。代码中的数组可谓神通广大,如何实现瞬间变身呢?其实也很简单。
Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" ( _
Destination As Any, _
Source As Any, _
ByVal Length As Long)
Sub CopyArray()
Dim i As Integer
Dim avntData As Variant
Dim avntNew(1 To 4)
Dim avntCopy As Variant
avntData = Array(0, 1, 2, 3, 4, 5, 6, 7, 8)
Debug.Print "avntData:" & Join(avntData, ",")
avntCopy = avntData
Debug.Print "avntCopy:" & Join(avntCopy, ",")
CopyMemory ByVal VarPtr(avntNew(1)), _
ByVal VarPtr(avntData(3)), _
4 * 16
Debug.Print "avntNew:"; Join(avntNew, ",")
End Sub
- 照葫芦画瓢 – 全复制
新数组名 = 原数组名
,第13行代码克隆产生一个完全相同的数组。示例代码中的avntCopy = avntData
将avntData数组内容全部复制到数组avntCopy中,也就是说两个数组完全相同。 - 断章取义 – 部分复制
使用API函数CopyMemory可以复制指定位置开始的指定数量的数组元素到一个新数组。参数Destination指定目标数组在内存中的起始地址,参数 Source指定源数组中需要复制的元素在内存中的起始地址, 参数Length指定复制的内存空间尺寸(单位是字节)。
VarPtr(avntNew(1))获取目标数组中第一个元素的内存地址,与此类似VarPtr(avntData(3))获取源数组中第2个元素(下标下届为0)的内存地址,avntData是Variant型数组,每个元素需占用16个字节内存空间,4为所要的单元个数,即复制4个数组元素。
【立即窗口】中的输出结果:
avntData:0,1,2,3,4,5,6,7,8
avntCopy:0,1,2,3,4,5,6,7,8
avntNew:3,4,5,6