Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
Diese Funktion führt eine binäre Suche in einem (sortierten) Array durch. Der Rückgabewert ist entweder True (gefunden) oder False (nicht gefunden).
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
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||