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 这些基础函数用熟了，再配合本文提到的一些实战技巧，处理数组时就能游刃有余了。
VBS脚本实现文件批量处理：一脚本从配置文件读取关键字，遍历文件夹内容，匹配后重命名添加.bak后缀并记日志；另一脚本根据文件路径列表，对衍生文件批量重命名添加.tmp后缀。
VBS调用Shell.Application的ShellExecute方法时需先创建对象。参数包括文件名、附加参数、目录、操作和窗口类型。操作包括编辑、查找、打开、打印、属性、以管理员身份运行六种，窗口类型用0至10数值控制。实战示例以管理员权限运行cmd.exe添加用户。
利用ADODB.Stream对象，VBScript可实现字符串编码转换。核心思路是先将字符串按源编码转为二进制字节流，再按目标编码还原。提供StringToBytes、BytesToString和AlterCharset三个函数，支持GB2312与ISO-8859-1等单字节编码间的转换，适用于旧系统或硬件交互场景。
通过WMI调用Win32_PingStatus实现批量Ping检测，支持循环监测与断线计数。连续失败10次自动发送邮件告警，日志和控制台同步输出。需CScript环境运行，脚本已自动处理切换，适用于多IP持续监控场景。
利用VBS脚本制作循环表白弹窗，点击“否”时依次显示“女友最大”“工资上交”等六个承诺，点击“是”则展现字符爱心与浪漫告白。操作需新建文本文档，粘贴代码后另存为ANSI编码的.vbs文件，双击运行即可。
利用VBS脚本通过InternetExplorer.Application对象操控网页，自动填写账号密码并提交，实现开机自动登录网站。需根据实际页面修改网址、表单及输入框的name属性。将脚本放入系统启动文件夹即可开机自启。
VBS是Windows内置脚本语言，无需安装环境，用记事本即可编写。通过Msgbox和Inputbox函数实现弹窗输出与交互。编写时需注意：文件后缀为.vbs，符号使用英文半角，编码格式改为ANSI，否则中文可能乱码。
VBS脚本基础语法涵盖变量定义、输入输出、判断与循环语句。变量可用“dim”声明，支持自动类型推断；输入输出分别通过inputbox和msgbox实现；判断语句以if...then...else...endif结构为主；循环包括do-loop（支持until、while条件及exitdo控制）和for-next结构。
使用VBS脚本可收集域内远程或本地计算机的软件及Windows版本信息，结果保存为以计算机名命名的txt文件，支持网络路径或脚本目录。脚本内置过滤规则，自动剔除补丁包、Office组件及NVIDIA、Intel驱动等系统组件，兼容32位和64位系统。
VBS脚本在64位系统中因默认调用64位WScript.exe导致32位ActiveX组件无法创建，出现800A01AD错误。可通过修改注册表将解释器切换为32位版本，或直接更改脚本打开方式为SysWOW64下的wscript.exe解决。若在ASP环境中，可重新注册ADODB.Stream组件或启用IIS应用程序池的32位模式。
火山引擎是字节跳动旗下企业级云与AI服务平台。聚焦大模型核心能力，依托字节自研豆包多模态大模型，凭借火山方舟一站式平台，提供模型精调、推理部署、智能应用搭建等全链路服务，结合高性能AI算力，助力各行业快速落地大模型数字化与智能化应用。
