Sub Globals
'Declare the global variables here.
Dim a(0)
Dim b(0)
End Sub
Sub App_Start
'Form1.Show
ArraysEx.New1
AddArrayList("ArrayList1")
ArrayListsEx.New1("ArrayList1", B4PObject(1))
AlAddArray
AlBinarySearch
AlCopyTo
AlRemoveRange
AlReverse
AlSort
AlToArray
BinarySearch
Clear
Clone
IndexOf
LastIndexOf
Rank
Reverse
Sort
SortKeysAndItems
End Sub
Sub AlAddArray
ArrayList1.Clear
len = 10
Dim a(len)
For i = 0 To len - 1
a(i) = i
msg = msg & i & " "
Next
msg = msg & CRLF
ArrayListsEx.AddArray(a())
For i = 0 To len - 1
msg = msg & ArrayList1.Item(i) & " "
Next
Msgbox(msg, "ArrayListsEx.AddArray")
End Sub
Sub AlBinarySearch
ArrayList1.Clear
len = 10
For i = 0 To len - 1
ArrayList1.add(i * 10 + i)
msg = msg & ArrayList1.Item(i) & " "
Next
msg = msg & CRLF
val = 66
i = ArrayListsEx.BinarySearch(0, len, val, cNumbers)
Msgbox(msg & "Index of " & val & " is " & i, "ArrayListsEx.BinarySearch")
End Sub
Sub AlCopyTo
ArrayList1.Clear
len = 10
Dim a(len)
For i = 0 To len - 1
ArrayList1.add(i)
msg = msg & ArrayList1.Item(i) & " "
Next
msg = msg & CRLF
ArrayListsEx.CopyTo(0, a(), 0, len)
For i = 0 To len - 1
msg = msg & a(i) & " "
Next
Msgbox(msg, "ArrayListsEx.CopyTo")
End Sub
Sub AlRemoveRange
ArrayList1.Clear
len = 10
Dim a(len)
For i = 0 To len - 1
ArrayList1.add(i)
msg = msg & ArrayList1.Item(i) & " "
Next
msg = msg & CRLF
ArrayListsEx.RemoveRange(3, 5)
For i = 0 To ArrayList1.Count - 1
msg = msg & ArrayList1.Item(i) & " "
Next
Msgbox(msg, "ArrayListsEx.RemoveRange")
End Sub
Sub AlReverse
ArrayList1.Clear
len = 10
For i = 0 To len - 1
ArrayList1.Add(i)
msg = msg & ArrayList1.Item(i) & " "
Next
msg = msg & CRLF
ArrayListsEx.Reverse(5, 5)
For i = 0 To len - 1
msg = msg & ArrayList1.Item(i) & " "
Next
Msgbox(msg, "ArrayListsEx.Reverse")
End Sub
Sub AlSort
ArrayList1.Clear
len = 10
Dim a(0)
a() = Array ( "a", "x", "G", "c", "X", "A", "g", "C", "u", "U" )
For i = 0 To len - 1
ArrayList1.Add(a(i))
Next
msg = msg & CRLF
ArrayListsEx.Sort(0, len, cCaseSensitive)
'ArraysEx.Sort(a(),0, len, cCaseUnsensitive)
For i = 0 To len - 1
msg = msg & ArrayList1.Item(i) & " "
Next
Msgbox(msg, "ArrayListsEx.Sort")
End Sub
Sub AlToArray
ArrayList1.Clear
len = 10
Dim a(len)
Dim b(0)
For i = 0 To len - 1
ArrayList1.add(i)
msg = msg & ArrayList1.Item(i) & " "
Next
msg = msg & CRLF
b() = ArrayListsEx.ToArray
For i = 0 To len - 1
msg = msg & b(i) & " "
Next
Msgbox(msg, "ArrayListsEx.ToArray")
End Sub
Sub BinarySearch
Dim a(10)
len = ArrayLen(a())
For i = 0 To len - 1
a(i) = i * 10 + i
msg = msg & a(i) & " "
Next
msg = msg & CRLF
val = 66
i = ArraysEx.BinarySearch(a(), 0, len, val, cNumbers)
Msgbox(msg & "Index of " & val & " is " & i, "ArraysEx.BinarySearch")
End Sub
Sub Clear
Dim a(10)
len = ArrayLen(a())
For i = 0 To len - 1
a(i) = i
msg = msg & a(i) & " "
Next
msg = msg & CRLF
ArraysEx.Clear(a(),3,6)
For i = 0 To len - 1
If a(i) = "" Then
msg = msg & "0 "
Else
msg = msg & a(i) & " "
End If
Next
Msgbox(msg, "ArraysEx.Clear")
End Sub
Sub Clone
Dim a(10)
Dim b(10)
len = ArrayLen(a())
For i = 0 To len - 1
a(i) = i
msg = msg & a(i) & " "
Next
msg = msg & CRLF
b() = ArraysEx.Clone(a())
For i = 0 To len - 1
msg = msg & b(i) & " "
Next
Msgbox(msg, "ArraysEx.Clone")
End Sub
Sub IndexOf
Dim a(10)
For i = 0 To ArrayLen(a()) - 1
a(i) = i Mod 5
msg = msg & a(i) & " "
Next
val = 3
ix = ArraysEx.IndexOf(a(), val, 0, ArrayLen(a()))
msg = msg & CRLF & "Index of " & val & " is " & ix
Msgbox(msg, "ArraysEx.IndexOf")
End Sub
Sub LastIndexOf
Dim a(10)
For i = 0 To ArrayLen(a()) - 1
a(i) = i Mod 5
msg = msg & a(i) & " "
Next
val = 3
ix = ArraysEx.LastIndexOf(a(), 3, ArrayLen(a())-1, ArrayLen(a()))
msg = msg & CRLF & "Last index of " & val & " is " & ix
Msgbox(msg, "ArraysEx.LastIndexOf")
End Sub
Sub Rank
Dim a(3,4,5)
For i = 1 To ArraysEx.Rank(a())
msg = msg & "Rank " & i & " length " & ArrayLen(a(),i) & CRLF
Next
msg = msg & "Total length " & ArraysEx.TotalLength(a())
Msgbox(msg, "ArraysEx.Rank")
End Sub
Sub Reverse
Dim a(10)
len = ArrayLen(a())
For i = 0 To len - 1
a(i) = i
msg = msg & a(i) & " "
Next
msg = msg & CRLF
ArraysEx.Reverse(a(),5, 5)
For i = 0 To len - 1
msg = msg & a(i) & " "
Next
Msgbox(msg, "ArraysEx.Reverse")
End Sub
Sub Sort
Dim a(10)
len = ArrayLen(a())
a() = Array ( "a", "x", "G", "c", "X", "A", "g", "C", "u", "U" )
msg = msg & CRLF
ArraysEx.Sort(a(),0, len, cCaseSensitive)
'ArraysEx.Sort(a(),0, len, cCaseUnsensitive)
For i = 0 To len - 1
msg = msg & a(i) & " "
Next
Msgbox(msg, "ArraysEx.Sort")
End Sub
Sub SortKeysAndItems
Dim a(10)
Dim b(10)
len = ArrayLen(a())
Dim b(10)
For i = 0 To len - 1
a(i) = Rnd(33,128)
j = a(i)
b(i) = Chr(a(i))
msg = msg & a(i)& ":" & b(i) & " "
Next
msg = msg & CRLF
ArraysEx.SortKeysAndItems(a(), b(), 0, len, cNumbers)
For i = 0 To len - 1
msg = msg & a(i)& ":" & b(i) & " "
Next
Msgbox(msg, "ArraysEx.SortKeysAndItems")
End Sub