Array 函数
返回包含数组的Variant。
Array(arglist)
参数：arglist是赋给包含在Variant中的数组元素的值的列表（用逗号分隔）。如果没有指定此参数，则将会创建零长度的数组。
说明：用于引用数组元素的表示符，由跟随有括号的变量名组成，括号中包含指示所需元素的索引号。
在下面的示例中，第一条语句创建名为 A 的变量。第二条语句将一个数组赋值给变量 A。最后一条语句将包含在第二个数组元素中的值赋值给另一个变量。

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

复制代码

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

返回 Boolean 值指明某变量是否为数组。
IsArray(varname)
参数：varname可以是任意变量。
说明：如果变量是数组，IsArray函数返回True；否则，函数返回False。当变量中包含有数组时，使用IsArray函数很有效。
下面的示例利用IsArray函数验证 MyVariable 是否为一数组：

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

复制代码

UBound 函数
返回指定数组维数的最大可用下标。
UBound(arrayname[, dimension])
参数：arrayname 必选项。数组变量名，遵循标准变量命名规则。
     Dimension 可选项。指定返回哪一维上界的整数。1 表示第一维，2 表示第二维，以此类推。如果省略dimension参数，则默认值为 1。
说明：UBound函数与LBound函数一起使用，用于确定数组的大小。使用LBound函数可以确定数组某一维的下界。
     所有维的下界均为 0。对于有这样维数的数组，UBound函数返回以下结果：

1. Dim A(100,3,4)
   
2. 语句 返回值
   
3. UBound(A, 1) 100
   
4. UBound(A, 2) 3
   
5. UBound(A, 3) 4

复制代码

LBound 函数
返回指定数组维的最小可用下标。
LBound(arrayname[, dimension])
参数：arrayname 数组变量名，遵循标准变量命名规则。
     Dimension 指明要返回哪一维下界的整数。
     使用 1 表示第一维，2 表示第二维，以此类推。如果省略dimension参数，默认值为 1。
说明：LBound函数与UBound函数共同使用以确定数组的大小。使用UBound函数可以找到数组某一维的上界。任一维的下界都是 0。

1. arr = array("t1","t2","t3")
   
2. For i=0 To UBound(arr)-LBound(arr)
   
3. MsgBox arr(i)
   
4. Next

复制代码

Split 函数
返回基于 0 的一维数组，其中包含指定数目的子字符串。
Split(expression[, delimiter[, count[, start]]])
参数：expression 必选项。字符串表达式，包含子字符串和分隔符。如果expression为零长度字符串，Split返回空数组，即不包含元素和数据的数组。
     delimiter  可选项。用于标识子字符串界限的字符。如果省略，使用空格 ("") 作为分隔符。
                如果delimiter为零长度字符串，则返回包含整个expression字符串的单元素数组。
     count 可选项。被返回的子字符串数目，-1 指示返回所有子字符串。
     Compare 可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。
设置
compare参数可以有以下值：
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。
下面的示例利用Split函数从字符串中返回数组。函数对分界符进行文本比较，返回所有的子字符串。

1. Dim MyString, MyArray, Msg
   
2. MyString = "VBScriptXisXfun!"
   
3. MyArray = Split(MyString, "x", -1, 1)
   
4. ' MyArray(0) 包含 "VBScript"。
   
5. ' MyArray(1) 包含 "is"。
   
6. ' MyArray(2) 包含 "fun!"。
   
7. Msg = MyArray(0) & " " & MyArray(1)
   
8. Msg = Msg & " " & MyArray(2)
   
9. MsgBox Msg

复制代码

再如：

1. stng = "t1,t2,t3"
   
2. arr = Split(stng,",")
   
3. MsgBox arr(0)
   
4. MsgBox arr(1)
   
5. MsgBox arr(2)

复制代码

Join 函数
返回一个字符串，此字符串由包含在数组中的许多子字符串连接创建。
Join(list[，delimiter])
参数：list 必选项。包含要连接的子字符串一维数组。
     Delimiter 可选项。在返回字符串中用于分隔子字符串的字符。如果省略，将使用空字符 ("")。
     如果delimiter是零长度字符串，则在同一列表中列出全部项，没有分界符。
      
下面的示例利用Join函数联合 MyArray 的子字符串：

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

复制代码

再如：

1. arr = array("t1","t2","t3")
   
2. MsgBox Join(arr,",")

复制代码

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

1. Dim a
   
2. Dim b
   
3. a=Array(10,15,30)
   
4. b=Array(10,20,30)   
   
5. flag=1
   
6. For i=0 To UBound(a)-LBound(a)
   
7. If a(i)=b(i) Then
   
8.   flag=1
   
9. Else
   
10.   flag=0
    
11.   n=UBound(a)
    
12.   msgbox "数组a"&n&":="&a(i)&","&"数组b"&n&":="&b(i)
    
13. End If
    
14. Next

复制代码

例2：二维数组的比较

1. Dim array1(1,1)
   
2. array1(0,0)=1
   
3. array1(0,1)=2
   
4. array1(1,0)=3
   
5. array1(1,1)=4
   
6. Dim array2(1,1)
   
7. array2(0,0)=1
   
8. array2(0,1)=2
   
9. array2(1,0)=4
   
10. array2(1,1)=4
    
11.    
    
12. flag=1
    
13. For i=0 To 1
    
14. For j=0 To 1
    
15. If array1(i,j)=array2(i,j) Then
    
16.   flag=1
    
17.   Exit for
    
18. Else
    
19.   flag=0
    
20.   msgbox "array1"&"("&i&","&j&")"&"="&array1(i,j)&","&"array2"&"("&i&","&j&")"&"="&array2(i,j)
    
21. End If
    
22. Next
    
23. Next

复制代码

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

1. Dim arr, i, str
   
2. arr = array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "a", "b", "c", "d", "f", "g")
   
3. str = "a"
   
4. For i = 0 To UBound(arr)
   
5. If arr(i) = str Then
   
6. Exit For
   
7. end if
   
8. Next
   
9. If i <= UBound(arr) Then
   
10. msgbox "arr中包含str的值！"
    
11. Else
    
12. msgbox "arr中不包含str的值！"
    
13. End If

复制代码

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

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

复制代码

灵活应用各种函数命令，可以节约大量的多余代码，不仅精简代码结构，提供执行效率。
例5：VBS中数组作为函数的返回值

1. Function GenerateRandom()
   
2. 
   
3. Dim myarray(2)
   
4. Dim aa, bb, cc
   
5. Dim myvalue, bbbase, ccbase
   
6. bbbase=array("Beijing", "NewYork", "Copenhagen", "Paris", "London", "Gothenborg")
   
7. ccbase=array("China", "America", "Denmark", "Franch", "England", "Sweden")
   
8. 'Get a number contains 8 characters
   
9. aa= Int((99999999 - 11111111+ 1) * Rnd + 11111111)
   
10. ' Get a number between 1 to 6
    
11. myvalue=Int((6 * Rnd) + 1)
    
12. bb=bbbase(myvalue)
    
13. cc=ccbase(myvalue)
    
14. myarray(0)=CStr(aa)
    
15. myarray(1)=bb
    
16. myarray(2)=cc
    
17. GenerateRandom=myarray
    
18. End Function
    
19. '****************************************************
    
20. ' Call the function
    
21. Dim testarr
    
22. testarr=GenerateRandom
    
23. msgbox testarr(0)
    
24. msgbox testarr(1)
    
25. msgbox testarr(2)

复制代码

例6：数组排序

1. Function fSortArray(aSortThisArray)
   
2. Dim oArrayList, iElement
   
3. Set oArrayList = CreateObject( "System.Collections.ArrayList" )
   
4. For iElement = 0 To UBound(aSortThisArray)
   
5. oArrayList.Add aSortThisArray(iElement)
   
6. Next
   
7. oArrayList.Sort
   
8. set fSortArray = oArrayList
   
9. End Function
   
10. 
    
11. myarray=Array(50,20,30)
    
12. MsgBox myarray(0)
    
13. MsgBox fSortArray(myarray)(0)

复制代码

'CreateObject( "System.Collections.ArrayList" )调用了mscoree.dll,是.NET Framework相关组件。

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！