![]() |
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
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (7,2
kB)
|
Downloads bisher: [ 451 ]
|
|
|