VBScript to perform ArrayList operations

kw.vbs

Set ArrayList = CreateObject("System.Collections.ArrayList")
ArrayList.Add 1000
ArrayList.Add 900
ArrayList.Add 800
ArrayList.Add 700
ArrayList.Add 600
ArrayList.Add 500
ArrayList.Add 400
ArrayList.Add 300
ArrayList.Add 200
ArrayList.Add 100

print Join(ArrayList.ToArray, ", ")
ArrayList.Sort
print Join(ArrayList.ToArray, ", ")
ArrayList.Remove 1000
print Join(ArrayList.ToArray, ", ")
ArrayList.RemoveAt 0
print Join(ArrayList.ToArray, ", ")
If ArrayList.Contains(500) Then
    print "Element Present"
Else
    print "Element Not Present"
End If
ArrayList.Clear

Output

1000, 900, 800, 700, 600, 500, 400, 300, 200, 100
100, 200, 300, 400, 500, 600, 700, 800, 900, 1000
100, 200, 300, 400, 500, 600, 700, 800, 900
200, 300, 400, 500, 600, 700, 800, 900
Element Present

Example 2

kw.vbs

Set ArrayList = CreateObject("System.Collections.ArrayList")
ArrayList.Add "Apple"
ArrayList.Add "Banana"
ArrayList.Add "Cherry"
ArrayList.Add "Durian"
ArrayList.Add "Apple"
print Join(ArrayList.ToArray, ", ")
ArrayList.Sort
print Join(ArrayList.ToArray, ", ")

Output

Apple, Banana, Cherry, Durian, Apple
Apple, Apple, Banana, Cherry, Durian

Comments and Reactions

What Next?

VBScript to perform SortedList operation VBScript to perform Stack operations VBScript to perform Queue operations

KodingWindow

VBScript