Here are some examples of how the following array functions are used:
Array function
Returns a Variantthat contains an array.
Array (arglist)
The arglist parameter is a comma-delimited list of values assigned to the array elements contained in the Variant . If this parameter is not specified, an array of 0 lengths is created.
Description
A representation that references an array element, consisting of a variable name followed by parentheses that contains the index number indicating the desired element. In the following example, the first statement creates a variable named a. The second statement assigns an array to variable a. The last statement assigns the value contained in the second array element to another variable.
arr = Array ("T1", "T2")
MsgBox arr (0)
MsgBox arr (1)
Note A variable that is not declared as an array can still contain an array. Although the variant variable that contains the array is conceptually different from the array variable that contains the variant element, the method to access the array elements is the same.
IsArray function
Returns a Boolean value that indicates whether a variable is an array.
IsArray (varname)
The varname parameter can be any variable.
Description
If the variable is an array, theIsArray function returns True, otherwise the function returns False. Using the IsArray function works well when a variable contains an array.
The following example uses the IsArray function to verify that the myvariable is an array:
Dim myvariable
Dim MyArray (3)
myarray (0) = "Sunday"
myarray (1) = "Monday"
myarray (2) = "Tuesday"
myvariable = IsArray (myarray) ' myvariable contains ' True '.
UBound function
Returns the maximum number of available subscripts for the specified array dimension.
UBound (arrayname[, Dimension])
Parameters
Arrayname
Required option. An array variable name followed by a standard variable naming convention.
Dimension
Options available. An integer that specifies which dimension upper bound is returned. 1 represents the first dimension, 2 represents the second dimension, and so on. If the dimension argument is omitted, the default value is 1.
Description
The UBound function is used in conjunction with the LBound function to determine the size of the array. You can use the LBound function to determine the lower bound of one dimension of an array.
The lower bounds of all dimensions are 0. For arrays with such dimensions, theUBound function returns the following result:
Dim A (100,3,4)
Statement return value
UBound (A, 1) 100
UBound (A, 2) 3
UBound (A, 3) 4
LBound function
Returns the lowest available subscript for the specified array dimension.
LBound (arrayname[, Dimension])
Parameters
Arrayname
An array variable name followed by a standard variable naming convention.
Dimension
An integer that indicates which dimension lower bound to return. Using 1 means the first dimension, 2 represents the second dimension, and so on. If the dimension argument is omitted, the default value is 1.
Description
The LBound function is used in conjunction with the UBound function to determine the size of the array. You can use the UBound function to find an upper bound of one dimension of an array. The lower bound of the Zing Ivi is 0.
arr = Array ("T1", "T2", "T3") for
i=0 to UBound (arr)-lbound (arr) MsgBox arr
(i)
Next
Split function
Returns a one-dimensional array based on 0 that contains the specified number of substrings.
Split (expression[, delimiter[, count[, start]])
Parameters
Expression
Required option. A string expression that contains substrings and delimiters. If expression is a zero-length string,Split returns an empty array, which is an array that contains no elements and data.
Delimiter
Options available. The character used to identify the bounds of the substring. If omitted, use a space ("") as the separator. If delimiter is a zero-length string, returns the set of cell numbers that contain the entire expression string.
Count
Options available. The number of substrings returned,-1 indicates that all substrings are returned.
Compare
Options available. Indicates the numeric value of the comparison type to use when calculating the substring. For numeric values, see the "Settings" section.
Set up
The compare parameter can have the following values:
Constant numerical description
Vbbinarycompare 0 performs binary comparisons.
vbTextCompare 1 performs a text comparison.
The following example uses the Split function to return an array from a string. function to make a textual comparison of the delimiters, returning all substrings. Description
Dim MyString, MyArray, MSG
MyString = "vbscriptxisxfun!"
MyArray = Split (MyString, "X",-1, 1)
' myarray (0) contains "VBScript".
' MyArray (1) contains ' is '.
' MyArray (2) contains "fun!".
MSG = myarray (0) & "" & MyArray (1)
msg = msg & "" & MyArray (2)
MsgBox Msg
again:
stng = "T1,t2,t3"
arr = Split (stng, ",")
MsgBox ar R (0)
MsgBox arr (1)
MsgBox arr (2)
Join function
Returns a string that is created by the concatenation of many substrings contained in the array.
Join (list[,delimiter])
Parameters
List
Required option. Contains a one-dimensional array of substrings to concatenate.
Delimiter
Options available. The character used to delimit substrings in the return string. If omitted, the null character ("") is used. If delimiter is a 0-length string, all items are listed in the same list without a delimiter.
The following example uses the join function to combine a myarray substring:
Dim MyString
Dim myarray (3)
myarray (0) = "Mr."
myarray (1) = "John"
myarray (2) = "Doe"
myarray (3) = "III"
Mystrin g = Join (myarray) ' MyString contains ' Mr John Doe III '.
again:
arr = Array ("T1", "T2", "T3")
MsgBox Join (arr, ",")
The above mainly on the VBS related functions are introduced, in the actual work will often encounter some special treatment, and are very practical, the following examples to illustrate:
Example one: comparison of one-dimensional arrays
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 "Array A" &n& ": =" &a (i) & "," & "Array B" &n& ": =" &b (i) End
If
Next
Example two: comparison of two dimensional arrays
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
Example three: use loops to compare whether a value is contained in an array
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" contains the value of STR! The '
Else
MsgBox ' Arr does not contain the value of STR! "End
If
Example four: use a combination of functions to compare whether an array contains a value (optimization logic)
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) &G T 0 Then
MsgBox "Arr contains the value of STR! The '
Else
MsgBox ' Arr does not contain the value of STR! "End
If
Flexible application of a variety of function commands, you can save a lot of redundant code, not only to streamline the code structure, provide execution efficiency.
Example five: Thearray as the return value of a function in VBS
Function Generaterandom ()
Dim myarray (2)
Dim aa, Bb, cc
Dim myvalue, Bbbase, ccbase
bbbase=array ("Beijing", "NewYork", "Copenhagen", " Paris, "London", "gothenborg") Ccbase=array ("The", "
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 ' function
Dim testarr
testarr=generaterandom
MsgBox Testarr (0)
MsgBox Testarr (1)
MsgBox Testarr (2)
Example six: array ordering
Function Fsortarray (Asortthisarray)
Dim oarraylist, ielement Set oarraylist = CreateObject ("System.Collections.ArrayList") for ielement = 0 to Uboun D (Asortthisarray) Oarraylist.add Asortthisarray (ielement) Next oarraylist.sort Set fsortarray = OArrayList End Functi On Myarray=array (50,20,30) MsgBox myarray (0) MsgBox Fsortarray (myarray) (0) ' CreateObject ("System.Collections.ArrayLi St ") called Mscoree.dll, A. NET framework-related component.