VBScript 动态 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 中都可用！

总结

到此这篇关于VBScript 动态 Array 的实现代码的文章就介绍到这了,更多相关VBScript 动态 Array内容请搜索我们以前的文章或继续浏览下面的相关文章希望大家以后多多支持我们！

赞 (0)

相关推荐

  • vbscript基础篇 - vbs数组Array的定义与使用方法

    vbs数组定义和用法 Array 可返回一个包含数组的变量. 注释:数组中的第一个元素是零. 语法 Array(arglist) 参数 描述 arglist 必需的.数组中元素值的列表(由逗号分割). 实例 例子 1 dim a a=Array(5,10,15,20) document.write(a(3)) 输出: 20 例子 2 dim a a=Array(5,10,15,20) document.write(a(0)) 输出: 5 数组变量:有时需要向一个单一的变量赋于多个值,那么您可以创

  • VBScript 动态 Array 的实现代码

    记录一个小方法,关于 VBScript 中,动态 Array 的实现,也适用于 VBA, 在很久以前,写 VBA 的时候,就觉得使用 Array 和不方便,因为大小固定, 当时想的是,要是 Array 可以像 Python 里的 list 一样好用该多好啊, 那么下面,就记录一个方法,能让 Array 变得动态,并且好用! 实现方法: 在下面的实例中,先设定一个空的 Array 出来, 然后用,下面的方法实现动态 Array, 并且,把数字 1 到 10,一个加到 Array 中去. '动态 A

  • Google的跟踪代码 动态加载js代码方法应用

    复制代码 代码如下: <script type="text/javascript"> var _gaq = _gaq || []; //如果变量 _gaq 存在,就等于他自己,否则为一个空数组 _gaq.push(['_setAccount', 'UA-24479793-2']); //是个2维数组 _gaq[0] = array(0=>'_setAccount', 1=>'UA-24479793-2');(设置本跟踪代码所对应的Google帐户) _gaq.p

  • Element实现动态表格的示例代码

    Element实现动态表格的示例代码

    目录 [代码背景] [代码实现] #1# -> 代码复用的基础是你需要一个可复用的组件 #2# -> 在展示页面使用动态表格组件 #3# -> 如何给动态表格根据需求动态添加序号列/索引列 [代码背景] 有这样一个业务需求场景,有大概十几张表归属于某个类别,用户希望在同一个页面,通过选择不同的查询指标展示不同的表格,这些表的表头样式类似但是又不完全相同,怎么做呢? 到目前为止所有基于Element UI的表格样式都是直接在页面写死的,像官方这样: <el-table :data=&

  • React Native中实现动态导入的示例代码

    React Native中实现动态导入的示例代码

    目录 背景 多业务包 动态导入 Metro 打包原理 打包过程 bundle 分析 __d函数 __r函数 方案设计 分 识别入口 树拆分 bundle 生成 合 总结 背景 随着业务的发展,每一个 React Native 应用的代码数量都在不断增加,bundle 体积不断膨胀,对应用性能的负面影响愈发明显.虽然我们可以通过 React Native 官方工具 Metro 进行拆包处理,拆分为一个基础包和一个业务包进行一定程度上的优化,但对日益增长的业务代码也无能为力,我们迫切地需要一套方案来

  • Bootstrap jquery.twbsPagination.js动态页码分页实例代码

    Bootstrap jquery.twbsPagination.js动态页码分页实例代码

    Bootstrap风格的分页控件自适应的: 参考网址:分页参考文档 1.风格样式: 2.首先引入js文件jQuery.twbsPagination.js <span style="font-size:14px;"><script type="text/javascript" src="plugins/page/jquery.twbsPagination.js"></script></span> 3.

  • jquery实现的动态回到顶部特效代码

    jquery实现的动态回到顶部特效代码

    本文实例讲述了jquery实现的动态回到顶部特效代码.分享给大家供大家参考,具体如下: 这款jquery动态回到顶部特效,不是一下子就回到了网页顶部,而是带点缓冲的效果,有动画效果,使用了jQuery插件,这是个非常常用的网页特效,希望大家喜欢哦. 运行效果截图如下: 在线演示地址如下: http://demo.jb51.net/js/2015/jquery-back-top-dh-style-codes/ 具体代码如下: <!DOCTYPE html PUBLIC "-//W3C//DT

  • 史上最简单的MyBatis动态SQL入门示例代码

    假如有如下的关于书籍基本信息的表: DROP DATABASE IF EXISTS `books`; CREATE DATABASE `books`; USE books; DROP TABLE IF EXISTS `book`; CREATE TABLE `book` ( `id` int(11) NOT NULL AUTO_INCREMENT, `name` varchar(128) DEFAULT NULL, `author` varchar(64) DEFAULT NULL, `pres

  • 用javascript动态注释掉HTML代码

    用javascript动态注释掉HTML代码 - 51windows.Net 1 2 3 4 alert("34") 5 6 alert("56") 7 8 你没有看到34单元格吧,因为他用javascript注释掉了,怎么做的?看源文件!源文件怎么看?点右键,选择"查看源文件(V)"... 注意:动态注释的html中不能再有html注释代码"<!-- -->",<script>与</ scrip

  • C#使用ILGenerator动态生成函数的简单代码

    游戏服务器里面总是有一大堆的配置文件需要读取, 而且这些配置文件的读取: * 要不然做成弱类型的, 就是一堆字符串或者数字, 不能看出来错误(需要重新检测一次) * 要不然做成强类型的, 每种类型都需要自己Parse一下 我个人比较喜欢后者, 因为前者LoadConfig的代码简单, 但是写逻辑的时候代码不简单. class Config1 : public IConfig { public void Fill(EntryLine& line); int32_t param1; string p

  • 使用JavaScript动态设置样式实现代码(2)

    你可以参考到前一版本 http://www.jb51.net/article/33555.htm 这个有点不好的地方,就是如果想改变样式,也许得使用查找替换才行. 因此,Insus.NET写出另外一个方法来实现,这样可以改一应用百. 先写一个样式Style: 复制代码 代码如下: <style type="text/css"> .overStyle { border-color:#3599ff; } .outStyle { border-color: #fff; } <

随机推荐