广告位联系
返回顶部
分享到

VBScript动态Array的实现代码

vbs 来源:互联网搜集 作者:秩名 发布时间:2020-04-03 21:39:51 人浏览
摘要

记录一个小方法,关于 VBScript 中,动态 Array 的实现,也适用于 VBA, 在很久以前,写 VBA 的时候,就觉得使用 Array 和不方便,因为大小固定, 当时想的是,要是 Array 可以像 Python 里的 list 一样好用该多好啊, 那么下面,就记录一个方法,能让 Array

记录一个小方法,关于 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
 
 

那么动态 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 i
Next
 

结束语:

上面的动态 Array 方法,在 VBScript 和 VBA 中都可用!


版权声明 : 本文内容来源于互联网或用户自行发布贡献,该文观点仅代表原作者本人。本站仅提供信息存储空间服务和不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权, 违法违规的内容, 请发送邮件至2530232025#qq.cn(#换@)举报,一经查实,本站将立刻删除。
原文链接 : https://www.cnblogs.com/bitssea/archive/2020/04/03/12625080.html
相关文章
  • 图卷积神经网络分类的pytorch实现 - 爱码网
    图神经网络(GNN)目前的主流实现方式就是节点之间的信息汇聚,也就是类似于卷积网络的邻域加权和,比如图卷积网络(GCN)、图注意力
  • VBScript动态Array的实现代码
    记录一个小方法,关于 VBScript 中,动态 Array 的实现,也适用于 VBA, 在很久以前,写 VBA 的时候,就觉得使用 Array 和不方便,因为大小固定
  • VBS遍历Excel工作表的实现代码
    核心代码 ******************************************拖拽文件,获取文件路径******************************************If wscript.Arguments.count=0 then msgbox 拖拽文件
  • 拖拽文件显示文件路径的vbs代码
    面两段原理都是一样的,大家可以看下 代码一 If wscript.Arguments.count=0 then msgbox 拖拽文件到本vbs文件,0,提示End if for jb=0 to wscript.Arguments.count
  • VBS进程判断的代码
    vbs核心代码 Option ExplicitDim objWMIService,colProcessList,strComputerstrComputer = .Set objWMIService = GetObject(winmgmts:{impersonationLevel=impersonate}!\\ strComputer \roo
  • 运行vbs脚本报错无效字符、中文乱码的解决方法

    运行vbs脚本报错无效字符、中文乱码的解决方法
    代码没有问题,总是报这样的错误。 测试代码 msgbox 脚本之家 很简单的代码,但如果编码不对问题就很多 中文乱码问题 运行图 因为使用了
  • VBS怎么获取指定目录下的文件列表
    VBS肿么获取某目录下的文件列表 dim FileName,fs,foldernamefoldername = InputBox(请输入想要在哪个文件夹查找, VBS查找文件)If foldername = Thenwscript.quitE
  • 抖音vbs表白代码 抖音vbscript表白代码使用教程

    抖音vbs表白代码 抖音vbscript表白代码使用教程
    今天小编给大家分享抖音vbs表白代码 抖音vbscript表白代码使用教程。 先上个效果图 步骤一: 在电脑上新建一个txt文件。 步骤二: 打开tx
  • 本站所有内容来源于互联网或用户自行发布,本站仅提供信息存储空间服务,不拥有版权,不承担法律责任。如有侵犯您的权益,请您联系站长处理!
  • Copyright © 2017-2022 F11.CN All Rights Reserved. F11站长开发者网 版权所有 | 苏ICP备2022031554号-1 | 51LA统计