VBScript Array Functions

'Array Functions
'LBound This function will return an integer for the smallest subscript of the given arrays.
'UBound This function will return an integer for the Largest subscript of the given arrays.
'Split This function will return an array that contains a specified number of values. Splitted based on a Delimiter.
'Join This function will return a String that contains a specified number of substrings in an array. This is an exact opposite function of Split Method.
'Filter This function will return a zero based array that contains a subset of a string array based on a specific filter criteria.
'IsArray This function will return a boolean value that indicates whether or not the input variable is an array.
'Erase This function will recover the allocated memory for the array variables.

Dim x
Dim arr01(5)
arr01(0) = "231"           'String
arr01(1) = "Adam"          'String
arr01(2) = 13000   'Number
arr01(3) = 5.45   'Decimal Number
arr01(4) = #11/07/1982#    'Date
arr01(5) = #11.05 AM#      'Time

Result = " Aray = arr01(5) " & vbcrlf
Do

Result= Result & "arr01("& x &") :- "& arr01(x) & vbcrlf
x=x+1
Loop While (x <= UBound(arr01))

Result = Result & "The smallest Subscript value array is : " & LBound(arr01)& vbcrlf
Result = Result & "The Biggest Subscript value array is : " & UBound(arr01)& vbcrlf

Result = Result & "Join of Array arr01 : " & join(arr01)& vbcrlf

MsgBox Result

'---------------------------------------------------------------------



Str="Adam,Jay,Robert,Juliana,Ajay"

Dim arr3
Result = " Result of Arr3 which made by split function on string : ''Adam,Jay,Robert,Juliana,Ajay''" & vbcrlf
arr3=Split(str,",")

x=0
Result= Result & "arr3 IsArray :- " & IsArray(arr3) & vbcrlf
Do

Result= Result & "arr3("& x &") :- "& arr3(x) & vbcrlf
x=x+1
Loop While (x <= UBound(arr3))



MsgBox Result

----------------------------------------------------


' For MultiDimension Arrays :
Dim arr02(3,2)
Result = " Aray = arr02(3,2) " & vbcrlf
Result = Result &  "The smallest Subscript of arr02 is : " & LBound(arr02,1) & vbcrlf
Result = Result &"The smallest Subscript of arr02 is : " & LBound(arr02,2)

MsgBox Result

'-----------------------------------------------------------

Str="Adam*Jay*Robert*Juliana*Ajay"
arr3=Split(str,"*")


fresult1 = Filter (arr3,"A") 'Adam,Ajay
fresult2 = Filter (arr3,"A",0) '0 means exclude so result will be Jay,Robert,Juliana
fresult3 = Filter (arr3,"A",1) '1 means include so result will Adam,Ajay
fresult4 = Filter (arr3,"ja",1,0) '1,0 means include and search based on Binary (case sensitive) so result will be only Ajay
fresult5 = Filter (arr3,"ja",1,1) '1,0 means include and search based on Text (case insensitive) so result will be Jay,Ajay

Result = " Filter Result on Array items Adam,Jay,Robert,Juliana,Ajay  " & vbcrlf


Result= Result & "Filter (arr3,''A'')"& vbcrlf

For Each x in fresult1

Result= Result & x  & vbcrlf

Next

Result= Result & vbcrlf

Result= Result & "Filter (arr3,''A'',0)"& vbcrlf
For Each x in fresult2

Result= Result & x  & vbcrlf

Next

Result= Result & vbcrlf
Result=  Result & "Filter (arr3,''A'',1)"& vbcrlf
For Each x in fresult3

Result= Result & x  & vbcrlf

Next

Result= Result & vbcrlf
Result= Result & "Filter (arr3,''ja'',1,0)"& vbcrlf
For Each x in fresult4

Result= Result & x  & vbcrlf

Next

Result= Result & vbcrlf
Result=  Result & "Filter (arr3,''ja'',1,1)"& vbcrlf

For Each x in fresult5

Result= Result & x  & vbcrlf

Next

MsgBox result

Erase arr3        ' Each element is reinitialized.