VBS数组函数学习实例分析
VBS数组处理函数包括Array创建数组、IsArray判断是否是数组、UBound/LBound获取上下界、Split拆分字符串到数组、Join合并数组为字符串，结合常见的循环遍历、元素比较、包含判断及排序等多种实战技巧，可以高效地完成日常数组操作任务。
Array 函数
VBS 中处理数组，首先得学会怎么“造”一个数组出来。Array 函数就是干这个的——它返回一个包含数组的 Variant 变量。说白了，你给它一串值，它帮你打包成一个数组。
Array(arglist)
参数 arglist 就是你要放进数组里的值列表，用逗号隔开。如果什么都不写，那就创建了一个零长度的空数组。怎么用？变量名后面跟括号，括号里写索引号，就能拿到对应的元素——跟其他语言差不多。
看个最直观的例子：
arr = array("t1","t2")
MsgBox arr(0)
MsgBox arr(1)
注意：变量即使没被声明为数组，也能通过 Array 函数让它“变成”数组。这种包含数组的 Variant 变量，和正式声明过的数组变量，在访问元素的方式上其实是完全一样的。
IsArray 函数
有时候你得确认某个变量到底是不是数组，这时候 IsArray 就派上用场了。它返回一个 Boolean 值——True 表示是数组，False 表示不是。
语法：IsArray(varname)，varname 可以是任意变量。当变量里装的是数组时，用它一测便知。
举个例子：
Dim MyVariable Dim MyArray(3) MyArray(0) = "Sunday" MyArray(1) = "Monday" MyArray(2) = "Tuesday" MyVariable = IsArray(MyArray) ' MyVariable 包含 "True"。
UBound 函数
知道了一个数组，还得知道它有多大。UBound 返回指定维数的最大可用下标——也就是上界。
语法：UBound(arrayname[, dimension])
- arrayname：数组变量名，必填。
- dimension：可选，指定要返回哪一维的上界。1 表示第一维，2 表示第二维，以此类推。省略则默认为 1。
注意：VBS 中所有维的下界都是 0，所以 UBound 返回的就是该维的元素数减 1。比如：
Dim A(100,3,4) ' UBound(A, 1) 返回 100 ' UBound(A, 2) 返回 3 ' UBound(A, 3) 返回 4
LBound 函数
与 UBound 对应，LBound 返回指定数组维的最小可用下标——也就是下界。因为 VBS 里下界固定是 0，所以这个函数大多数时候返回 0，但它跟 UBound 配合起来，能让你写出更通用的遍历代码。
语法：LBound(arrayname[, dimension])，参数逻辑跟 UBound 完全一样。
实用例子：
arr = array("t1","t2","t3")
For i=0 To UBound(arr)-LBound(arr)
MsgBox arr(i)
Next
Split 函数
如果说 Array 是把一堆值“捏”成数组，那 Split 就是反着来——它把一个字符串按分隔符“撕”成数组，返回一个从 0 开始的一维数组。
语法：Split(expression[, delimiter[, count[, start]]])
- expression：必填，要拆的字符串。
- delimiter：可选，分隔符，默认是空格。
- count：可选，返回子串的个数，-1 表示返回所有。
- compare：可选，比较类型：0 二进制比较，1 文本比较。
看个例子：
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 函数
有 Split 就有 Join——它把数组里的所有子串拼成一个字符串，中间可以加分隔符。
语法：Join(list[, delimiter])
- list：必填，一维数组。
- delimiter：可选，分隔符，默认是空字符。
示例：
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,",")
实用场景：数组的比较与查找
光知道函数怎么用还不够，实际工作中经常要处理数组的比较、查找、排序等问题。下面几个例子都来自真实开发场景，非常实用。
例1：一维数组的元素级比较
判断两个数组对应位置的值是否相等：
Dim a, 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) Then flag = 1 Else flag = 0 n = UBound(a) msgbox "数组a" & n & ":=" & a(i) & "," & "数组b" & n & ":=" & b(i) End If Next
例2：二维数组的比较
两层循环嵌套，逐元素对比：
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)=4
flag=1
For i=0 To 1
For j=0 To 1
If array1(i,j)=array2(i,j) Then
flag=1
Exit for
Else
flag=0
msgbox "array1"&"("&i&","&j&")"&"="&array1(i,j)&","&"array2"&"("&i&","&j&")"&"="&array2(i,j)
End If
Next
Next
例3：用循环判断数组是否包含某个值
经典做法，从头遍历到尾：
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 Then Exit For end if Next If i <= UBound(arr) Then msgbox "arr中包含str的值！" Else msgbox "arr中不包含str的值！" End If
例4：用函数组合优化查找逻辑
把数组用 Join 拼成字符串，再用 InStr 判断，代码瞬间精简：
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 Then msgbox "arr中包含str的值！" Else msgbox "arr中不包含str的值！" End If
这儿用到了 Join 和 InStr 的配合，不仅代码量少了很多，执行效率也不错。灵活组合这些函数，能帮你写出更干净、更高效的程序。
例5：让函数返回数组
有时候需要从一个函数里返回多个值，用数组最方便：
Function GenerateRandom()
Dim myarray(2)
Dim aa, bb, cc
Dim myvalue, bbbase, ccbase
bbbase=array("Beijing", "NewYork", "Copenhagen", "Paris", "London", "Gothenborg")
ccbase=array("China", "America", "Denmark", "Franch", "England", "Sweden")
aa= Int((99999999 - 11111111+ 1) * Rnd + 11111111)
myvalue=Int((6 * Rnd) + 1)
bb=bbbase(myvalue)
cc=ccbase(myvalue)
myarray(0)=CStr(aa)
myarray(1)=bb
myarray(2)=cc
GenerateRandom=myarray
End Function
' 调用函数
Dim testarr
testarr = GenerateRandom
msgbox testarr(0)
msgbox testarr(1)
msgbox testarr(2)
例6：数组排序
VBS 原生不提供数组排序函数，但可以借助 .NET Framework 的 System.Collections.ArrayList 来实现：
Function fSortArray(aSortThisArray) Dim oArrayList, iElement Set oArrayList = CreateObject( "System.Collections.ArrayList" ) For iElement = 0 To UBound(aSortThisArray) oArrayList.Add aSortThisArray(iElement) Next oArrayList.Sort set fSortArray = oArrayList End Function myarray = Array(50,20,30) MsgBox myarray(0) MsgBox fSortArray(myarray)(0)
这里调用了 mscoree.dll（.NET Framework 相关组件），所以需要系统中安装了 .NET 环境才能运行。如果不需要那么重的依赖，也可以自己写个冒泡排序来实现。
总的来说，VBS 的数组处理函数虽然不多，但组合起来能覆盖绝大多数日常开发需求。把 Array、Split、Join、UBound 这些基础函数用熟了，再配合本文提到的一些实战技巧，处理数组时就能游刃有余了。
正软商城本月促销专区，汇集办公、设计、安全、影音、系统工具及AI软件等正版软件优惠活动，提供限时折扣、特价授权和优惠购买信息，活动库存及价格以页面实时展示为准。
正软商城装机必备专区，精选办公、浏览器、安全防护、影音播放、压缩解压、设计创作和系统工具等电脑常用正版软件，帮助用户快速完成新电脑软件配置。
正软商城Windows软件专区，汇集适用于Windows电脑的办公、设计、安全防护、影音播放、开发工具和系统优化软件，提供软件介绍、系统要求、正版授权及购买下载服务。
正软商城macOS软件专区，精选适用于Mac电脑的办公、设计、影音、效率、开发和系统工具，提供软件功能介绍、macOS兼容版本、正版授权及购买下载服务。
正软商城iOS软件专区，精选适用于iPhone和iPad的办公、学习、影音、设计、效率及AI应用，提供功能介绍、适用设备、系统要求和正版获取方式等信息。
正软商城AI软件专区，汇集AI写作、AI绘画、AI视频、AI办公、AI编程、AI翻译、智能客服和数据分析等人工智能工具，提供功能介绍、适用平台、收费方式及正版购买信息。
正软商城PDF教程频道提供PDF编辑、转换、合并、拆分、压缩及格式处理方法，同时介绍常用PDF软件和工具的使用技巧。
赤友清理大师是一款为 Mac 设计的智能清理优化工具，可精准扫描垃圾、大文件、重复文件等，释放磁盘空间。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
Wise Folder Hider Pro 是一款专业级文件和文件夹隐藏加密软件，为私密数据添加多重保护。高频操作更强调就近处理，浏览、整理和跨目录移动文件时，来回切换和重复点击都会少很多。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
