IndexOf-Funktion für 2-dimensionales Array Die Funktion sucht in einem 2-dimensionalen Feld einen vorgegebnen Wert und stellt die Indizes bereit, wenn er gefunden wurde.
Autor:   Dietrich Herrmann	Bewertung:     [ Jetzt bewerten ]	Views:  11.510
ohne Homepage	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 9 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die folgende Funktion prüft, ob sich ein vorgegebener Wert in einem 2-dimensionalen Array existiert oder nicht. Wird der Wert nicht gefunden, wird Nothing zurückgegeben. Anderenfalls werden in einem 2-dim. Feld die beiden Indizes zurück gegeben.

' Suchen eines Wertes im 2-dimensionalen Array
' theArray- das zu durchsuchende Feld
' theValue- der zu suchende Wert
' Rückgabe: wenn Wert nicht gefunden-> Nothing
'           wenn Wert gefunden-> 2-dim. Feld mit 
'           den Indizes des Wertes
Public Function IndexofMultiDim(ByVal theArray As Array, _
  ByVal theValue As Object) As Object
 
  Dim w As Boolean = False
  Dim i, j As Integer
  Dim u1 As Integer = UBound(theArray, 1)
  Dim u2 As Integer = UBound(theArray, 2)
  Dim tmp() As Object = Nothing
 
  For i = 0 To u1 - 1
    For j = 0 To u2 - 1
      w = theArray(i, j).Equals(theValue)
      If w Then Exit For
    Next j
    If w Then Exit For
  Next i
 
  If w Then
    ReDim tmp(theArray.Rank - 1)
    tmp(0) = i : tmp(1) = j
  End If
  IndexofMultiDim = tmp
End Function