通过一维数组的方式访问/修改其他数组的数据

leolee82

参照C++中的StringView，写了一个clsArrayView1D。可以在不复制数组数据的前提下，通过一维数组的方式访问/修改其他数组的数据，可以在某些情况下提高程序运行速度。应用场景：
1. 通过一维数组的方式访问二维数组的列
2. 一维数组的子数组
3. 通过SafeArrayCopyData 将一维数组赋值给二维数组的某列/一维数组的子数组

实际上一个成员函数就可以搞定，拆成几个成员函数的目的是，在循环中可以避免重复执行一些代码。如有未考虑到的地方，欢迎大家指正。
clsArrayView2D的代码类似，就不放上来了。


使用场景示例如下：

1. Private Declare Function SafeArrayCopyData Lib "oleaut32.dll" (ByVal psaSource As Long, ByVal psaTarget As Long) As Long
   
2. 
   
3. Sub TestclsArrayView1D()
   
4. Dim arrView1, arrView2, o1 As New clsArrayView1D, o2 As New clsArrayView1D
   
5. Dim p1 As Long, p2 As Long
   
6. 
   
7. '访问二维数组的列，二维数组数据是按列存储的
   
8. arr1 = [a1:b3]
   
9. With o1
   
10. 'With CreateObject("EXDIY.clsArrayView1D")
    
11.     .Initial arr1
    
12.     .SetArrayViewVariant arrView1
    
13.     p1 = .CreateArrayView(1, 2, 3, 0) '使用arrView访问arr的第二列
    
14.    
    
15.     arr3 = arrView '复制arr的第二列为一个一维数组
    
16. 
    
17.     '以一维数组方式访问arr的第二列
    
18.     Debug.Print arrView1(0), arrView1(1), arrView1(2) '4,5,6
    
19.    
    
20.     '修改arr第二列数据
    
21.     arrView1(0) = "A"
    
22.     arrView1(1) = "A"
    
23.     arrView1(2) = "A"
    
24.    
    
25.     Debug.Print arr1(1, 2), arr1(2, 2), arr1(2, 2) 'A,A,A
    
26. End With
    
27. 
    
28. '一维数组子数组
    
29. arr2 = Array(0, 1, 2, 3, 4)
    
30. With o2
    
31. 'With CreateObject("EXDIY.clsArrayView1D")
    
32.     .Initial arr2
    
33.     .SetArrayViewVariant arrView2
    
34.     p2 = .CreateArrayView(2, 0, 3, 0) '使用arrView访问arr(2)和arr(3)
    
35.    
    
36.     Debug.Print arrView2(0), arrView2(1), arrView2(2) '2,3,4
    
37.    
    
38.     '复制arr1第二列数据到arr2,前提是ArrayView的数据类型相同，数组大小相同
    
39.     SafeArrayCopyData p1, p2
    
40.    
    
41.     Debug.Print arr2(2), arr2(3), arr2(4)  'A,A,A
    
42.    
    
43.     arrView2(0) = "C"
    
44.     arrView2(1) = "C"
    
45.     arrView2(2) = "C"
    
46.    
    
47.     '将一维数组赋值给二维数组的某列
    
48.     SafeArrayCopyData p2, p1
    
49.     Debug.Print arr1(1, 2), arr1(2, 2), arr1(2, 2) 'C,C,C
    
50. End With
    
51. End Sub

复制代码

工作簿3421.rar (22.96 KB, 下载次数: 6)

2024-11-5 15:21 上传

点击文件名下载附件

ykcbf1100

这个只能用在32位系统中。

leolee82

ykcbf1100 发表于 2024-11-5 19:44
这个只能用在32位系统中。

只装了WPS，32位的OFFICE应该也没问题，平常也用不到大文件，习惯了。这些基础类和函数都是封装在VB6里，代码估计有3万行了，没精力升级到VB.NET。
64位的话需要改改API声明，指针相关的数据类型，并注意SAFEARRAY和VARIANT结构的变化

大灰狼1976

用CopyMemory也可以吧，就是有时候会崩掉，不太稳定。

1. Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
   
2. 
   
3. Sub test()
   
4. Dim arr, brr(2)
   
5. arr = [a1:b3]
   
6. '取第2列的数据给brr数组
   
7. CopyMemory brr(0), arr(1, 2), 3 * 24 '64位variant数组每个元素占24个字节,32位占16个字节
   
8. Debug.Print brr(0), brr(1), brr(2)
   
9. brr(0) = "x": brr(1) = "x": brr(2) = "x"
   
10. CopyMemory arr(1, 2), brr(0), 3 * 24
    
11. Debug.Print arr(1, 2), arr(2, 2), arr(3, 2)
    
12. End Sub

复制代码

leolee82

大灰狼1976 发表于 2024-11-6 09:45
用CopyMemory也可以吧，就是有时候会崩掉，不太稳定。

数值类型或数值类型Variant的可以用CopyMemory，数组元素是字符串、自定义、数组之类需要另外分配内存的就不行了，就会造成两个变量指向同一份内存数据，源数组变量先释放内存就会有问题了。这就是CopyMemory不稳定的原因。对于简单数据类型SafeArrayCopyData内部应该也是这样实现的，可参考
http://www.yfvb.com/help/cwin/in ... ng_a_safe_array.htm

通过数组描述符创建个假数组访问数据，用完后类的析构函数会自动解除对数据的引用，就比较安全了