首页 > VBS数组深入浅出

VBS数组深入浅出

     VBS数组在应用中没有像其他语句那么广泛，VBS数组存在不少功能上的局限性（如二维数组的定义、赋值），在使用上也没有java等语言那么便捷。下面来具体讲解下几个数组函数的使用方式：

     Array 函数

     返回包含数组的 Variant。

     Array(arglist)

     arglist 参数是赋给包含在 Variant 中的数组元素的值的列表（用逗号分隔）。如果没有指定此参数，则将会创建零长度的数组。

    说明

     用于引用数组元素的表示符，由跟随有括号的变量名组成，括号中包含指示所需元素的索引号。在下面的示例中，第一条语句创建名为 A 的变量。第二条语句将一个数组赋值给变量 A。最后一条语句将包含在第二个数组元素中的值赋值给另一个变量。

arr = array("t1","t2")
MsgBox arr(0)
MsgBox arr(1)

     注意 未作为数组声明的变量仍可以包含数组。虽然包含数组的 Variant 变量与包含 Variant 元素的数组变量有概念上的不同，但访问数组元素的方法是相同的。

 

     IsArray 函数

     返回 Boolean 值指明某变量是否为数组。

  IsArray(varname)

      varname 参数可以是任意变量。

      说明

       如果变量是数组，IsArray 函数返回 True；否则，函数返回 False。当变量中包含有数组时，使用 IsArray 函数很有效。

下面的示例利用 IsArray 函数验证 MyVariable 是否为一数组：

Dim MyVariable
Dim MyArray(3)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"
MyVariable = IsArray(MyArray) ' MyVariable 包含 "True"。

 

      UBound 函数

      返回指定数组维数的最大可用下标。

  UBound(arrayname[, dimension])

     参数

      arrayname

      必选项。数组变量名，遵循标准变量命名规则。

      Dimension

      可选项。指定返回哪一维上界的整数。1 表示第一维，2 表示第二维，以此类推。如果省略 dimension 参数，则默认值为 1。

     说明

       UBound 函数与 LBound 函数一起使用，用于确定数组的大小。使用 LBound 函数可以确定数组某一维的下界。

       所有维的下界均为 0。对于有这样维数的数组，UBound 函数返回以下结果：

   Dim A(100,3,4)

语句

返回值

UBound(A, 1)

100

UBound(A, 2)

3

UBound(A, 3)

4

 

 

 

 

 

 

 

     LBound 函数

     返回指定数组维的最小可用下标。

  LBound(arrayname[, dimension])

     参数

      arrayname

        数组变量名，遵循标准变量命名规则。

      Dimension

       指明要返回哪一维下界的整数。使用 1 表示第一维，2 表示第二维，以此类推。如果省略 dimension 参数，默认值为 1。

     说明

       LBound 函数与 UBound 函数共同使用以确定数组的大小。使用 UBound 函数可以找到数组某一维的上界。任一维的下界都是 0。

arr = array("t1","t2","t3")
For i=0 To UBound(arr)-LBound(arr)MsgBox arr(i)
Next

 

Split 函数

      返回基于 0 的一维数组，其中包含指定数目的子字符串。

   Split(expression[, delimiter[, count[, start]]])

      参数

        expression

          必选项。字符串表达式，包含子字符串和分隔符。如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。

       delimiter

          可选项。用于标识子字符串界限的字符。如果省略，使用空格 ("") 作为分隔符。如果 delimiter 为零长度字符串，则返回包含整个 expression 字符串的单元素数组。

       count

          可选项。被返回的子字符串数目，-1 指示返回所有子字符串。

       Compare

          可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。

       设置

       compare 参数可以有以下值：

常数

值

描述

vbBinaryCompare

0

执行二进制比较。

vbTextCompare

1

执行文本比较。

 

 

 

 

      说明

      下面的示例利用 Split 函数从字符串中返回数组。函数对分界符进行文本比较，返回所有的子字符串。

Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x", -1, 1)
' MyArray(0) 包含 "VBScript"。
' MyArray(1) 包含 "is"。
' MyArray(2) 包含 "fun!"。
Msg = MyArray(0) & " " & MyArray(1)
Msg = Msg   & " " & MyArray(2)
MsgBox Msg再如：
stng = "t1,t2,t3"
arr = Split(stng,",")
MsgBox arr(0)
MsgBox arr(1)
MsgBox arr(2)

 

     Join 函数

     返回一个字符串，此字符串由包含在数组中的许多子字符串连接创建。

  Join(list[，delimiter])

     参数

        list

     必选项。包含要连接的子字符串一维数组。

     Delimiter

     可选项。在返回字符串中用于分隔子字符串的字符。如果省略，将使用空字符 ("")。如果 delimiter 是零长度字符串，则在同一列表中列出全部项，没有分界符。

      下面的示例利用 Join 函数联合 MyArray 的子字符串：

Dim MyString
Dim MyArray(3)
MyArray(0) = "Mr."
MyArray(1) = "John "
MyArray(2) = "Doe "
MyArray(3) = "III"
MyString = Join(MyArray) 'MyString 包含 "Mr. John Doe III"。

再如：
arr = array("t1","t2","t3")
MsgBox Join(arr,",")

     上面主要对VBS中的相关函数进行了介绍，在实际工作中还经常会遇到一些特殊的处理，并且都十分的实用，下面一一进行举例说明：

例一：一维数组的比较

Dim a
Dim b
a=Array(10,15,30)
b=Array(10,20,30)                     
flag=1
For i=0 To UBound(a)-LBound(a)If a(i)=b(i) Thenflag=1Elseflag=0n=UBound(a)msgbox "数组a"&n&":="&a(i)&","&"数组b"&n&":="&b(i)End If
Next

例二：二维数组的比较

Dim array1(1,1)
array1(0,0)=1
array1(0,1)=2
array1(1,0)=3
array1(1,1)=4
Dim array2(1,1)
array2(0,0)=1
array2(0,1)=2
array2(1,0)=4
array2(1,1)=4flag=1
For i=0 To 1For j=0 To 1If array1(i,j)=array2(i,j) Thenflag=1Exit forElseflag=0msgbox "array1"&"("&i&","&j&")"&"="&array1(i,j)&","&"array2"&"("&i&","&j&")"&"="&array2(i,j)End IfNext
Next

例三：使用循环来比较数组里是否包含某值

Dim arr, i, str
arr = array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "a", "b", "c", "d", "f", "g")
str = "a"
For i = 0 To UBound(arr)If arr(i) = str ThenExit Forend if
Next
If i <= UBound(arr) Thenmsgbox  "arr中包含str的值！"Elsemsgbox  "arr中不包含str的值！"
End If

例四：使用函数组合来比较数组里是否包含某值（优化逻辑）

Dim arr, i, str
arr = array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "a", "b", "c", "d", "f", "g")
str = "a"
If InStr(Join(arr, "|"), str) > 0 Thenmsgbox  "arr中包含str的值！"Elsemsgbox  "arr中不包含str的值！"
End If

     灵活应用各种函数命令，可以节约大量的多余代码，不仅精简代码结构，提供执行效率。

例五：VBS中数组作为函数的返回值

Function GenerateRandom()Dim myarray(2)Dim aa, bb, ccDim myvalue, bbbase, ccbase bbbase=array("Beijing", "NewYork", "Copenhagen", "Paris", "London", "Gothenborg")ccbase=array("China", "America", "Denmark", "Franch", "England", "Sweden")'Get a number contains 8 charactersaa= Int((99999999 - 11111111+ 1) * Rnd + 11111111)' Get a number between 1 to 6myvalue=Int((6 * Rnd) + 1)bb=bbbase(myvalue)cc=ccbase(myvalue)myarray(0)=CStr(aa)myarray(1)=bbmyarray(2)=cc GenerateRandom=myarray  End Function
'****************************************************
' Call the function 
Dim testarr 
testarr=GenerateRandom
msgbox testarr(0)
msgbox testarr(1) 
msgbox testarr(2)

例六：数组排序

Function fSortArray(aSortThisArray)Dim oArrayList, iElementSet oArrayList = CreateObject( "System.Collections.ArrayList" )For iElement = 0 To UBound(aSortThisArray)oArrayList.Add aSortThisArray(iElement)NextoArrayList.Sortset fSortArray = oArrayList
End Functionmyarray=Array(50,20,30)
MsgBox myarray(0)
MsgBox fSortArray(myarray)(0)'CreateObject( "System.Collections.ArrayList" )调用了mscoree.dll,是.NET Framework相关组件。

 

转载于:https://www.cnblogs.com/Automation_software/archive/2013/04/10/3011877.html

更多相关：

  • js array 删除指定元素_数组--学习笔记（数据结构数组 /js数组）

    学习目标：了解什么是数组；数组如何访问内存地址（一维，二维）；什么是数组是由相同类型的元素的集合所组成的数据结构，分配一块连续的内存来存储。利用元素的索引可以计算出该元素对应的存储地址。 最简单的数据结构类型是一维数组。数组如何实现随机访问？数组是一种线性表数据结构，用一直连续的内存空间来储存一组具有相同类型的数据。根据数组的特性（连...

  • C++中关于[]静态数组和new分配的动态数组的区别分析

    一、静态数据及动态数组的创建     静态数据：               int a[10]；             int a[]={1,2,3};             数组的长度必须为常量。     动态数组：             int len;             int *a=new int...

  • 【力扣网练习题】移除元素

    给定一个数组 nums 和一个值 val，你需要原地移除所有数值等于 val 的元素，返回移除后数组的新长度。 不要使用额外的数组空间，你必须在原地修改输入数组并在使用 O(1) 额外空间的条件下完成。 元素的顺序可以改变。你不需要考虑数组中超出新长度后面的元素。 示例 1: 给定 nums = [3,2,2,3], val...

  • 【力扣网练习题】删除排序数组中的重复项

    给定一个排序数组，你需要在原地删除重复出现的元素，使得每个元素只出现一次，返回移除后数组的新长度。 不要使用额外的数组空间，你必须在原地修改输入数组并在使用 O(1) 额外空间的条件下完成。 示例 1: 给定数组 nums = [1,1,2],  函数应该返回新的长度 2, 并且原数组 nums 的前两个元素被修改为 1, 2...

  • Go 分布式学习利器（5）-- 数组和切片

    文章目录1. 数组的声明2. 数组元素的遍历3. 数组的截取4. Go 语言的切片5. 数组 和 切片的共同点...

  • 剑指offer: 面试题40. 最小的k个数

    题目：最小的k个数 入整数数组 arr ，找出其中最小的 k 个数。例如，输入4、5、1、6、2、7、3、8这8个数字，则最小的4个数字是1、2、3、4。 示例 1： 输入：arr = [3,2,1], k = 2 输出：[1,2] 或者 [2,1] 示例 2： 输入：arr = [0,1,2,1], k = 1 输出：[0...

  • JS如何深度复制对象和数组，避免指针变量引用修改值

    //自定义深度复制对象or数组的递归方法---------------------------------------- let copyObjOrArr = o => {let isArray = o instanceof Array;let isObject = o instanceof Object;if (!isObject)...

  • 【数组方法大合集】原生js数组array常用工具方法大合集

    var array = {/* 数组求和*/sum: arr => eval(arr.join("+")),/* 判断一个数组(支持一个字符串)里面的是否有任何一个元素被包含在了某个字符串里面 */isStringContain(str, arr) {Array.isArray(arr) || (arr = [arr]);for (v...

  • 快速排序的两种实现方法(c语言版本)

    经过调研发现，对任意无序整数数组，快速排序有两种实现方法，这里简单阐述下思路： 思路一：随意选择一个基准元，一般选择数组的起始元或末尾元，Weiss这本书上特意搞了个算法来选择基准元，……，总之就是基准元的选择要尽量随机。选定基准元之后，比如选择数组起始元为基准元，从数组右边开始，向左边遍历，遇到比基准元大的跳过，直至遇到比基准元小...

  • 十种经典排序算法精粹(c语言版本)

    下面给出这段时间我苦心研究验证过的十种经典排序算法的C语言版本，即下面的排序算法： 插入排序，shell排序，冒泡排序，快速排序，选择排序，堆排序，归并排序，桶排序，基数排序和计数排序。整理出来以作备忘，不足之处，欢迎大家批评指正！其中计数排序分别给出了不稳定和稳定两种排序算法，测试时，使用随机生成大数组和随机手动输入的方法来测试。...

  • excel高级函数_PowerQuery 进阶之 M 函数学习

    草色新雨中， 松声晚窗里。之前我们学习 Power Query 都是用鼠标就完成了很多复杂的操作。虽然 PowerQuery 已经将大部分常用功能内置成到功能区。基本能完成我们大部分的报表自动化功能。但是总有些复杂的或者个性化的问题是开发团队没有预先想到的，这时我们就需要学习 M 语言。一、M 语言在哪里？M语言的函数公式有三个地...

  • python从0开始学编程课件_小白从零开始学编程(三)--python基本概念

    前言从2020年3月份开始，计划写一系列文档--《小白从零开始学编程》，记录自己从0开始学习的一些东西。第一个系列：python，计划从安装、环境搭建、基本语法、到利用Django和Flask两个当前最热的web框架完成一个小的项目第二个系列：可能会选择Go语言，也可能会选择Vue.js。具体情况待定，拭目以待吧。。。基本概念表达式表...

  • python 函数递归一次增加一次变量_python3--函数(函数，全局变量和局部变量，递归函数)...

    1.1函数1.1.1什么是函数函数就是程序实现模块化的基本单元，一般实现某一功能的集合。函数名：就相当于是程序代码集合的名称参数：就是函数运算时需要参与运算的值被称作为参数函数体：程序的某个功能，进行一系列的逻辑运算return 返回值：函数的返回值能表示函数的运行结果或运行状态。1.1.2函数的作用函数是组织好的，可重复使用的，用来...

  • python深度神经网络量化_基于Python建立深度神经网络！你学会了嘛？

    原标题：基于Python建立深度神经网络！你学会了嘛？图1 神经网络构造的例子(符号说明：上标[l]表示与第l层；上标(i)表示第i个例子；下标i表示矢量第i项)单层神经网络图2 单层神经网络示例神经元模型是先计算一个线性函数(z=Wx+b)，接着再计算一个激活函数。一般来说，神经元模型的输出值是a=g(Wx+b)，其中g是激活函数(...

  • mysql 字段加减_MySQL中你必须了解的函数

    在学习MySQL的时候你会发现，它有非常多的函数，在学习的时候没有侧重。小编刚开始学习的时候也会有这个感觉。不过，经过一段时间的学习之后，小编发现尽管函数有很多，但是常用的却只有那几个。今天小编就把常用的函数汇总一下，为大家能够能好的学习MySQL中的函数。MySQL常使用的函数大概有四类。时间函数、数学函数、字符函数、控制函数。让我...

©2024 11GX.COM