时间:2021-05-22
记录一个小方法,关于 VBScript 中,动态 Array 的实现,也适用于 VBA,
在很久以前,写 VBA 的时候,就觉得使用 Array 和不方便,因为大小固定,
当时想的是,要是 Array 可以像 Python 里的 list 一样好用该多好啊,
那么下面,就记录一个方法,能让 Array 变得动态,并且好用!
实现方法:
在下面的实例中,先设定一个空的 Array 出来,
然后用,下面的方法实现动态 Array,
并且,把数字 1 到 10,一个加到 Array 中去。
'动态 Array 实现
myArray = Array()For i = 1 To 10 ReDim Preserve myArray(UBound(myArray) + 1) myArray(UBound(myArray)) = iNext那么动态 Array 就这么开心的实现啦,(^_−)☆
对比下和 Python list 的代码吧,感觉是不是很像呢。
# Python 中 list 的使用myList = list()for i in range(10): myList.append(i)print(myList)数据输出:
然后,思考下一个问题,也是我之前写 VBA 时候考虑的问题,
就是,怎么一下子,看到 Array 中所有的数据,
之前的本方法,是使用 For Loop,把 Array 中的数据一个个 Print 出来,
但是现在发现了简单的方法,代码如下:
'最简单的方法:
MsgBox Join (myArray, vblf)'之前使用的笨方法:For Each i In myArray Debug.Print iNext结束语:
上面的动态 Array 方法,在 VBScript 和 VBA 中都可用!
总结
到此这篇关于VBScript 动态 Array 的实现代码的文章就介绍到这了,更多相关VBScript 动态 Array内容请搜索以前的文章或继续浏览下面的相关文章希望大家以后多多支持!
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
下面是实现代码:/****关于参数的说明**$key键值相同的键名**$array代表原数组**$start代表$array[0][$key]**$newkey
本文实例讲述了PHP实现深度优先搜索算法。分享给大家供大家参考,具体如下:深度优先搜索的实现原理:实现代码:dfs_save=array(array(0,1,1
复制代码代码如下:显示结果:Array([0]=>155::vbscript::https://www.jb51.net/list/list_114_1.htm
本文实例讲述了php递归json类的实现方法。分享给大家供大家参考。具体实现代码如下:复制代码代码如下:Arr=$array;}//解析主函数publicfun
实现代码:复制代码代码如下:打印结果:当前get_magic_quotes_gpc为0array(1){["STR"]=>string(30)"\'fanglo