vbs教程《數組使用》
rem 定義 dim arr(5) rem 賦值 arr(0) = 20 arr(1) = 2 arr(2) = 5 arr(3) = 3 arr(4) = 1 arr(5) = 100 rem 訪問 msgbox(arr(2)) rem 遍歷 for each v in arr msgbox(v) next
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 MyVariableDim 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)NextSplit 函數
返回基于 0 的一維數組，其中包含指定數目的子字符串。
Split(expression[, delimiter[, count[, start]]])
參數
expression
必選項。字符串表達式，包含子字符串和分隔符。如果 expression 為零長度字符串，Split 返回空數組，即不包含元素和數據的數組。
delimiter
可選項。用于標識子字符串界限的字符。如果省略，使用空格 ("") 作為分隔符。如果 delimiter 為零長度字符串，則返回包含整個 expression 字符串的單元素數組。
count
可選項。被返回的子字符串數目，-1 指示返回所有子字符串。
Compare
可選項。指示在計算子字符串時使用的比較類型的數值。有關數值，請參閱“設置”部分。
設置
compare 參數可以有以下值：
| 常數 | 值 | 描述 |
| vbBinaryCompare | 0 | 執行二進制比較。 |
| vbTextCompare | 1 | 執行文本比較。 |
說明
下面的示例利用 Split 函數從字符串中返回數組。函數對分界符進行文本比較，返回所有的子字符串。
Dim MyString, MyArray, MsgMyString = "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 MyStringDim 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 aDim ba=Array(10,15,30)b=Array(10,20,30) flag=1For 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 IfNext
例二：二維數組的比較
Dim array1(1,1)array1(0,0)=1array1(0,1)=2array1(1,0)=3array1(1,1)=4Dim array2(1,1)array2(0,0)=1array2(0,1)=2array2(1,0)=4array2(1,1)=4 flag=1For 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 NextNext例三：使用循環來比較數組里是否包含某值
Dim arr, i, strarr = 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 ifNextIf i <= UBound(arr) Then msgbox "arr中包含str的值！" Else msgbox "arr中不包含str的值！"End If
例四：使用函數組合來比較數組里是否包含某值（優化邏輯）
Dim arr, i, strarr = 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
靈活應用各種函數命令，可以節約大量的多余代碼，不僅精簡代碼結構，提供執行效率。
例五：VBS中數組作為函數的返回值
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") 'Get a number contains 8 characters aa= Int((99999999 - 11111111+ 1) * Rnd + 11111111) ' Get a number between 1 to 6 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'****************************************************' Call the function Dim testarr testarr=GenerateRandommsgbox testarr(0)msgbox testarr(1) msgbox testarr(2)例六：數組排序
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 = oArrayListEnd Function myarray=Array(50,20,30)MsgBox myarray(0)MsgBox fSortArray(myarray)(0) 'CreateObject( "System.Collections.ArrayList" )調用了mscoree.dll,是.NET Framework相關組件。
專注于自動化、性能研究，博客為原創，轉載請注明文章來源
新聞熱點
疑難解答
