RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

Tip of the Day
Language: VB4,VB6,VBS
Expertise: beginner
Apr 27, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

BinarySearch - Fast search in a sorted array

' Binary search in an array of any type
' Returns the index of the matching item, or -1 if the search fails
' The arrays *must* be sorted, in ascending or descending
' order (the routines finds out the sort direction).
' LASTEL is the index of the last item to be searched, and is
' useful if the array is only partially filled.
' Works with any kind of array, including objects if your are searching 
' for their default property, and excluding UDTs and fixed-length strings.
' String are compared in case-sensitive mode.
' You can write faster procedures if you modify the first line
' to account for a specific data type, eg.
'   Function BinarySearchL (arr() As Long, search As Long,
'  Optional lastEl As Variant) As Long

Function BinarySearch(arr As Variant, search As Variant, _
    Optional lastEl As Variant) As Long
    Dim index As Long
    Dim first As Long
    Dim last As Long
    Dim middle As Long
    Dim inverseOrder As Boolean
    ' account for optional arguments
    If IsMissing(lastEl) Then lastEl = UBound(arr)
    first = LBound(arr)
    last = lastEl

    ' deduct direction of sorting
    inverseOrder = (arr(first) > arr(last))

    ' assume searches failed
    BinarySearch = first - 1
        middle = (first + last) \ 2
        If arr(middle) = search Then
            BinarySearch = middle
            Exit Do
        ElseIf ((arr(middle) < search) Xor inverseOrder) Then
            first = middle + 1
            last = middle - 1
        End If
    Loop Until first > last
End Function
Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date