title image


Smiley Re: binäre Suche im sortierten Array
Hi



Hier, von meiner Webseite ...





Option Explicit



' AData ist das Array, das die Daten hält.

'

Private Function QuickFind(ByVal Begriff As String) As Boolean



    Dim i&, mi&, le&, ri&

    

    QuickFind = False

    le = 0

    ri = UBound(AData)

    

    Do

        

        mi = (le + ri) \ 2

        

        If Begriff < AData(mi) Then

            ri = mi - 1

        Else

            le = mi + 1

        End If

        

    Loop Until (AData(mi) = Begriff) Or (le > ri)

    

    If AData(mi) = Begriff Then

        QuickFind = True

    End If

    

End Function





Code eingefügt mit Syntaxhighlighter 2.5




Gruß
Thomas


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: