Peder Borg Borup

Dim arl As New ArrayList

arl.Add(“jpg”)
arl.Add(“gif”)
arl.Add(“png”)
arl.Add(“psd”)
arl.Add(“tif”)
arl.Add(“tga”)
arl.Add(“pct”)
arl.Add(“dko”)

‘Sorting the array
arl.Sort()

‘Do a case Insensitive search
Dim idx As Integer = arl.BinarySearch(“psd”, New CaseInsensitiveComparer)

If idx >= 0 Then
    Trace.WriteLine(“Found searchstring at ” & idx & “. The lenght of the arraylist is: ” & arl.Count)
Else
    Trace.WriteLine(“Searchstring not found. The length of the arraylist is: ” & arl.Count)
End If