VBA数据类型Array
1、VBA数组底层结构:
VBA的数组在底层是SafeArray:
'https://docs.microsoft.com/zh-cn/windows/win32/api/oaidl/ns-oaidl-safearraybound?redirectedfrom=MSDN
Type SafeArrayBound
cElements As Long '// 该维的长度
lLbound As Long ' // 该维的数组存取的下限,一般为0
End Type
'https://docs.microsoft.com/zh-cn/windows/win32/api/oaidl/ns-oaidl-safearray?redirectedfrom=MSDN
Type SafeArray
cDims As Integer ' // 数组的维度
fFeatures As Integer '
cbElements As Long ' // 数组元素的字节大小
cLocksas As Long '
pvDataas As Long ' // 数组的数据指针
rgsabound(0) As SafeArrayBound
End Type
如果要取数组的地址,需要用到API函数:
Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (ByRef Var() As Any) As Long
VarPtrArray 返回的并不是SafeArray的地址,我们可以进行测试:
Sub TestArray()
Dim Arr() As Byte
ReDim Arr(3) As Byte
Dim sa As SafeArray
CopyMemory VarPtr(sa), VarPtrArray(Arr), Len(sa)
Printf "sa.cDims = %d, sa.cbElements = %d", sa.cDims, sa.cbElements
End Sub
输出:
sa.cDims = -27936, sa.cbElements = 3994212
从输出可以看出,我们预计的sa.cDims应该=1和sa.cbElements=1并没有出现,显然VarPtrArray(Arr)获取到的还不是Arr的地址。
像c语言这样的语言,是有指针的,VBA数组的底层实现应该是使用了一个指针来引用SafeArray结构,而VarPtrArray(Arr)获取到的应该是指针的地址。
Sub TestArray()
Dim Arr() As Byte
ReDim Arr(3) As Byte
Dim ptr As Long '保存[Arr指针]的地址
CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4
Dim sa As SafeArray
CopyMemory VarPtr(sa), ptr, Len(sa)
Printf "sa.cDims = %d, sa.cbElements = %d", sa.cDims, sa.cbElements
End Sub
输出
sa.cDims = 1, sa.cbElements = 1
从输出可以看出,预计的sa.cDims应该=1和sa.cbElements=1出现了。
进一步测试,从pvDataas 中提取数据,看看获取的数据是否能正确:
Sub TestArray2()
Dim Arr() As Byte
ReDim Arr(3) As Byte
Dim ptr As Long '保存[Arr指针]的地址
Arr(0) = &H88
Arr(1) = &H21
Arr(2) = &H27
Arr(3) = &H99
CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4
Dim sa As SafeArray
CopyMemory VarPtr(sa), ptr, Len(sa)
Dim b(3) As Byte
Dim i As Long
For i = 0 To 3
CopyMemory VarPtr(b(i)), sa.pvDataas + sa.cbElements * i, sa.cbElements
Printf "b(%d) = 0x%x ", i, b(i)
Next
End Sub
输出:
b(0) = 0x88
b(1) = 0x21
b(2) = 0x27
b(3) = 0x99
完全正确。
2、改变SafeArray的pvDataas地址会有什么情况:
既然知道了数组的内存结构,那我们就尝试把pvDataas改变看看会怎么样:
Sub TestArray2()
Dim Arr() As Byte
ReDim Arr(0) As Byte
Dim ptr As Long '保存[Arr指针]的地址
CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4
Dim lValue As Long
lValue = &HABCDEF99
Dim plValue As Long
plValue = VarPtr(lValue)
'修改pvDataas指向lValue
CopyMemory ptr + 12, VarPtr(plValue), 4
'修改Arr的SafeArrayBound为4
Dim cElements As Long
cElements = 4
CopyMemory ptr + 16, VarPtr(cElements), 4
Dim sa As SafeArray
CopyMemory VarPtr(sa), ptr, Len(sa)
Printf "sa.pvDataas = 0x%x, plValue = 0x%x", sa.pvDataas, plValue
Dim i As Long
For i = 0 To 3
Printf "Arr(%d) = 0x%x ", i, Arr(i)
Next
End Sub
输出:
sa.pvDataas = 0x36ecbc, plValue = 0x36ecbc
Arr(0) = 0x99
Arr(1) = 0xef
Arr(2) = 0xcd
Arr(3) = 0xab
定义了一个容量为1的byte数组,但是我把pvDataas的值修改成了1个Long变量的地址,同时也改变了他的SafeArrayBound为4,从输出可以看到,这个数组已经变成了一个容量为4的byte数组。
但是End Sub后,我的电脑测试Excel崩溃,这个和前面讲到的String类型里的情况差不多,到底是什么原因?
3、ReDim Preserve做了什么
我们经常会用ReDim Preserve来改变数组的容量,当然一般都是扩大。扩大的话要更多的内存空间来保存数据,所以应该是要重新分配内存,测试:
Sub TestArray()
Dim Arr() As Byte
ReDim Arr(3) As Byte
Dim ptr As Long '保存[Arr指针]的地址
Dim sa As SafeArray
CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4
CopyMemory VarPtr(sa), ptr, Len(sa)
Printf "ptr = 0x%x, sa.pvDataas= 0x%x, sa.cDims = %d, sa.cbElements = %d, sa.rgsabound(0).cElements = %d", ptr, sa.pvDataas, sa.cDims, sa.cbElements, sa.rgsabound(0).cElements
ReDim Preserve Arr(4) As Byte
CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4
CopyMemory VarPtr(sa), ptr, Len(sa)
Printf "ptr = 0x%x, sa.pvDataas= 0x%x, sa.cDims = %d, sa.cbElements = %d, sa.rgsabound(0).cElements = %d", ptr, sa.pvDataas, sa.cDims, sa.cbElements, sa.rgsabound(0).cElements
End Sub
输出:
ptr = 0x16597108, sa.pvDataas= 0x167c3a40, sa.cDims = 1, sa.cbElements = 1, sa.rgsabound(0).cElements = 4
ptr = 0x16597108, sa.pvDataas= 0x167c3790, sa.cDims = 1, sa.cbElements = 1, sa.rgsabound(0).cElements = 5
pvDataas已经改变,重新分配了内存空间。
但是,如果是减小呢?
我本来猜测只要修改sa.rgsabound(0).cElements的值就可以达到减小容量的目的,可测试却同样重新分配了内存:
Sub TestArray()
Dim Arr() As Byte
ReDim Arr(3) As Byte
Dim ptr As Long '保存[Arr指针]的地址
Dim sa As SafeArray
CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4
CopyMemory VarPtr(sa), ptr, Len(sa)
Printf "ptr = 0x%x, sa.pvDataas= 0x%x, sa.cDims = %d, sa.cbElements = %d, sa.rgsabound(0).cElements = %d", ptr, sa.pvDataas, sa.cDims, sa.cbElements, sa.rgsabound(0).cElements
ReDim Preserve Arr(1) As Byte
CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4
CopyMemory VarPtr(sa), ptr, Len(sa)
Printf "ptr = 0x%x, sa.pvDataas= 0x%x, sa.cDims = %d, sa.cbElements = %d, sa.rgsabound(0).cElements = %d", ptr, sa.pvDataas, sa.cDims, sa.cbElements, sa.rgsabound(0).cElements
End Sub
输出:
ptr = 0x167d5068, sa.pvDataas= 0x167c3a50, sa.cDims = 1, sa.cbElements = 1, sa.rgsabound(0).cElements = 4
ptr = 0x167d5068, sa.pvDataas= 0x167c37f0, sa.cDims = 1, sa.cbElements = 1, sa.rgsabound(0).cElements = 2
- Windows2012搭建我的世界(Minecraft)服务器超简单
- 高效程序员的MacBook工作环境配置
- vsftpd搭建自己的ftp服务器
- Linux一键安装Transmission电影下载到服务器
- centos安装ab工具给网站进行压力测试
- ubuntu16.04安装mongodb教程
- linux压缩解压命令使用
- linux使用wc命令查看文件行数、字母、字节数命令
- 程序员偷偷深爱的 9 个不良编程习惯
- 低级程序员和高级程序员的区别
- Silverlight学习(二)
- Silverlight学习(三)
- ArcGIS for Android学习(一)
- Arcgis for Silverlight学习(一)
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- 学习 | Node.js 之定时任务
- HTML标记语言学习笔记
- 明知 | TypeScript 结合 egg.js 基本使用
- 入门 | egg.js 入门之egg-jwt
- 3大利器推荐,帮你写出规范漂亮的python代码
- 【Docker】修改docker镜像存储的路径
- conda报错
- docker安装和使用
- JAVA-常量及常量池
- 解决哈希冲突的常用方法分析
- 03 Confluent_Kafka权威指南 第三章: Kafka 生产者:向kafka写消息
- kafka生产者和消费者的基本操作
- 05 Confluent_Kafka权威指南 第五章: kafka内部实现原理
- 关于leetcode第718题求长度最长的公共子数组的解析
- JAVA类加载过程&主动引用和被动引用