文章摘要
这篇文章介绍了在VBScript和VBA中实现动态数组的方法。传统的Array大小固定,但作者希望像Python的列表一样灵活,因此设计了动态扩展的方法。通过使用`ReDim Preserve`动态扩展数组,并将1到10的数字依次添加到数组中。文章还对比了Python列表的实现,并展示了将数组数据高效地输出到消息框的方法,避免了繁琐的For循环。这种方法适用于需要灵活数组大小的应用。
记录一个小方法,关于 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))=i
Next
For i=1 To 10
ReDim Preserve myArray(UBound(myArray) + 1)
myArray(UBound(myArray))=i
Next
那么动态 Array 就这么开心的实现啦,(^_−)☆
对比下和 Python list 的代码吧,感觉是不是很像呢。
# Python 中 list 的使用
myList=list()
for i in range(10):
myList.append(i)
print(myList)
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 i
Next
结束语:
上面的动态 Array 方法,在 VBScript 和 VBA 中都可用!
总结
到此这篇关于VBScript 动态 Array 的实现代码的文章就介绍到这了,更多相关VBScript 动态 Array内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家!
您可能感兴趣的文章:vbscript基础篇 – vbs数组Array的定义与使用方法
© 版权声明
文章版权归作者所有,未经允许请勿转载。
![[翻译] JW Media Player 中文文档第1/4页(screen your view翻译)越早知道越好](http://cdn.iowen.cn/gh/owen0o0/ioStaticResources@master/screenshots/4.jpg)

