Tipp 0123 Binäre Suche in einem Array
Autor/Einsender:
Datum:
  Michael Werner
10.06.2006
Entwicklungsumgebung:   VB.Net 2003
Framework:   1.1
Die Array.BinarySearch-Methode macht mit der implentierten IComparable-Schnittstelle eine schnelle Suche in einem Array möglich. BinarySearch durchsucht ein sortiertes  eindimensionales Array mit Hilfe eines binären Suchalgorithmus nach einem Wert, setzt allerdings ein sortiertes Array voraus. Dieses Sortieren erledigt die Funktion Array.Sort.
Eine Suche nach Teilstrings ist mit dieser Methode leider nicht möglich, jedoch ist die Suche textsensitiv, d.h. die Groß-/Kleinschreibung wird berücksichtigt.
 
Private Function SearchBinaryInArray(ByVal arr() As String, ByVal _
    search As String) As String
  Dim i As Integer
   'Array sortieren, bevor BinarySearch angewendet werden kann.
  Array.Sort(arr)

   'Nur zur Demo das sortierte Array anzeigen in der Listbox
  ShowArray(arr)

  i = Array.BinarySearch(arr, search)
  If i >= 0 Then
    ListBox1.SelectedIndex = i
    Return search & vbNewLine & "Gefunden an Position: " & _
        i.ToString
  Else
    Return search & " wurde nicht gefunden." & vbNewLine & _
        vbNewLine & "Hinweis: Denken Sie daran, die Groß- " _
        & "bzw. Kleinschreibung zu berücksichtigen!"
  End If
End Function
 
Weitere Links zum Thema
Collection serialisieren
Dictionary als kleine Datenbank

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (7,2 kB) Downloads bisher: [ 371 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 27. Dezember 2011