VBS數組深入淺出

原文地址：VBS數組深入淺出作者：qingqing

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) Then
            flag=1
        Else
            flag=0
            n=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)=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

例三：使用循環來比較數組裏是否包含某值

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

例四：使用函數組合來比較數組裏是否包含某值（優化邏輯）

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

     靈活應用各種函數命令，可以節約大量的多餘代碼，不僅精簡代碼結構，提供執行效率。

例五：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=GenerateRandom
msgbox 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 = oArrayList
End Function
 
myarray=Array(50,20,30)
MsgBox myarray(0)
MsgBox fSortArray(myarray)(0)
 
'CreateObject( "System.Collections.ArrayList" )調用了mscoree.dll,是.NET Framework相關組件。