已完本玄幻小说排行榜,将夜猫腻小说,怎样写网络小说

VBS數(shù)組深入淺出

vbs教程《數(shù)組使用》

rem 定義 
dim arr(5) 
 
rem 賦值 
arr(0) = 20 
arr(1) = 2 
arr(2) = 5 
arr(3) = 3 
arr(4) = 1 
arr(5) = 100 
 
rem 訪問(wèn) 
msgbox(arr(2)) 
 
rem 遍歷 
for each v in arr 
  msgbox(v) 
next

VBS數(shù)組在應(yīng)用中沒(méi)有像其他語(yǔ)句那么廣泛，VBS數(shù)組存在不少功能上的局限性（如二維數(shù)組的定義、賦值），在使用上也沒(méi)有java等語(yǔ)言那么便捷。下面來(lái)具體講解下幾個(gè)數(shù)組函數(shù)的使用方式：

Array 函數(shù)

返回包含數(shù)組的 Variant。

Array(arglist)

arglist 參數(shù)是賦給包含在 Variant 中的數(shù)組元素的值的列表（用逗號(hào)分隔）。如果沒(méi)有指定此參數(shù)，則將會(huì)創(chuàng)建零長(zhǎng)度的數(shù)組。

說(shuō)明

用于引用數(shù)組元素的表示符，由跟隨有括號(hào)的變量名組成，括號(hào)中包含指示所需元素的索引號(hào)。在下面的示例中，第一條語(yǔ)句創(chuàng)建名為 A 的變量。第二條語(yǔ)句將一個(gè)數(shù)組賦值給變量 A。最后一條語(yǔ)句將包含在第二個(gè)數(shù)組元素中的值賦值給另一個(gè)變量。

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

注意未作為數(shù)組聲明的變量仍可以包含數(shù)組。雖然包含數(shù)組的 Variant 變量與包含 Variant 元素的數(shù)組變量有概念上的不同，但訪問(wèn)數(shù)組元素的方法是相同的。

IsArray 函數(shù)

返回 Boolean 值指明某變量是否為數(shù)組。

IsArray(varname)
varname 參數(shù)可以是任意變量。

說(shuō)明

如果變量是數(shù)組，IsArray 函數(shù)返回 True；否則，函數(shù)返回 False。當(dāng)變量中包含有數(shù)組時(shí)，使用 IsArray 函數(shù)很有效。

下面的示例利用 IsArray 函數(shù)驗(yàn)證 MyVariable 是否為一數(shù)組：

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

UBound 函數(shù)
返回指定數(shù)組維數(shù)的最大可用下標(biāo)。

UBound(arrayname[, dimension])
參數(shù)

arrayname

必選項(xiàng)。數(shù)組變量名，遵循標(biāo)準(zhǔn)變量命名規(guī)則。

Dimension

可選項(xiàng)。指定返回哪一維上界的整數(shù)。1 表示第一維，2 表示第二維，以此類(lèi)推。如果省略 dimension 參數(shù)，則默認(rèn)值為 1。

說(shuō)明

UBound 函數(shù)與 LBound 函數(shù)一起使用，用于確定數(shù)組的大小。使用 LBound 函數(shù)可以確定數(shù)組某一維的下界。

所有維的下界均為 0。對(duì)于有這樣維數(shù)的數(shù)組，UBound 函數(shù)返回以下結(jié)果：

Dim A(100,3,4)

語(yǔ)句	返回值
UBound(A, 1)	100
UBound(A, 2)	3
UBound(A, 3)	4

LBound 函數(shù)
返回指定數(shù)組維的最小可用下標(biāo)。

LBound(arrayname[, dimension])
參數(shù)

arrayname

數(shù)組變量名，遵循標(biāo)準(zhǔn)變量命名規(guī)則。

Dimension

指明要返回哪一維下界的整數(shù)。使用 1 表示第一維，2 表示第二維，以此類(lèi)推。如果省略 dimension 參數(shù)，默認(rèn)值為 1。

說(shuō)明

LBound 函數(shù)與 UBound 函數(shù)共同使用以確定數(shù)組的大小。使用 UBound 函數(shù)可以找到數(shù)組某一維的上界。任一維的下界都是 0。

arr = array("t1","t2","t3")
For i=0 To UBound(arr)-LBound(arr)
 MsgBox arr(i)
Next

Split 函數(shù)
返回基于 0 的一維數(shù)組，其中包含指定數(shù)目的子字符串。

Split(expression[, delimiter[, count[, start]]])
參數(shù)

expression

必選項(xiàng)。字符串表達(dá)式，包含子字符串和分隔符。如果 expression 為零長(zhǎng)度字符串，Split 返回空數(shù)組，即不包含元素和數(shù)據(jù)的數(shù)組。

delimiter

可選項(xiàng)。用于標(biāo)識(shí)子字符串界限的字符。如果省略，使用空格 ("") 作為分隔符。如果 delimiter 為零長(zhǎng)度字符串，則返回包含整個(gè) expression 字符串的單元素?cái)?shù)組。

count

可選項(xiàng)。被返回的子字符串?dāng)?shù)目，-1 指示返回所有子字符串。

Compare

可選項(xiàng)。指示在計(jì)算子字符串時(shí)使用的比較類(lèi)型的數(shù)值。有關(guān)數(shù)值，請(qǐng)參閱“設(shè)置”部分。

設(shè)置

compare 參數(shù)可以有以下值：

常數(shù)	值	描述
vbBinaryCompare	0	執(zhí)行二進(jìn)制比較。
vbTextCompare	1	執(zhí)行文本比較。

說(shuō)明

下面的示例利用 Split 函數(shù)從字符串中返回?cái)?shù)組。函數(shù)對(duì)分界符進(jìn)行文本比較，返回所有的子字符串。

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 函數(shù)
返回一個(gè)字符串，此字符串由包含在數(shù)組中的許多子字符串連接創(chuàng)建。

Join(list[，delimiter])
參數(shù)

list

必選項(xiàng)。包含要連接的子字符串一維數(shù)組。

Delimiter

可選項(xiàng)。在返回字符串中用于分隔子字符串的字符。如果省略，將使用空字符 ("")。如果 delimiter 是零長(zhǎng)度字符串，則在同一列表中列出全部項(xiàng)，沒(méi)有分界符。

下面的示例利用 Join 函數(shù)聯(lián)合 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,",")

上面主要對(duì)VBS中的相關(guān)函數(shù)進(jìn)行了介紹，在實(shí)際工作中還經(jīng)常會(huì)遇到一些特殊的處理，并且都十分的實(shí)用，下面一一進(jìn)行舉例說(shuō)明：

例一：一維數(shù)組的比較

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 "數(shù)組a"n":="a(i)",""數(shù)組b"n":="b(i)
  End If
Next

例二：二維數(shù)組的比較

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

例三：使用循環(huán)來(lái)比較數(shù)組里是否包含某值

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

例四：使用函數(shù)組合來(lái)比較數(shù)組里是否包含某值（優(yōu)化邏輯）

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

靈活應(yīng)用各種函數(shù)命令，可以節(jié)約大量的多余代碼，不僅精簡(jiǎn)代碼結(jié)構(gòu)，提供執(zhí)行效率。

例五：VBS中數(shù)組作為函數(shù)的返回值

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)

例六：數(shù)組排序

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" )調(diào)用了mscoree.dll,是.NET Framework相關(guān)組件。

專(zhuān)注于自動(dòng)化、性能研究，博客為原創(chuàng)，轉(zhuǎn)載請(qǐng)注明文章來(lái)源

標(biāo)簽：文山四平邢臺(tái) 西安湖州銅川鶴壁

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《VBS數(shù)組深入淺出》，本文關(guān)鍵詞 VBS,數(shù)組,深入淺出,VBS,數(shù)組,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。