GetIndexInMultiArray

Function GetIndexInMultiArray(SearchList(), SearchValue, SearchIndex as Integer) as Integer
 
Sucht einen String in einem mehrdimensionalen Array, wobei die Suchdimension mit Searchindex angeben und eingeschränkt wird.
Das ist eine etwas komische Funktion, die man eigentlich mehrfach für alle Dimensionen durchlaufen muß, um dann das letzte Auftreten als Array zu erhalten.
Das geht mit der Funktion GetFirstIndex2DimMultiArray, die ein Array mit dem Wertpaar zurück gibt.
 
function GetFirstIndex2DimMultiArray(Searchlist(),SearchValue)
GlobalScope.BasicLibraries.LoadLibrary("Tools")
Dim Dummy(1) 
for i=lbound(Searchlist(),2) to ubound(Searchlist(),2)
   fall=GetIndexInMultiArray(Searchlist(),Searchvalue,i)
   if fall<>-1 then 
      Dummy(0)=fall
      Dummy(1)=i
      GetFirstIndex2DimMultiArray()=Dummy()
    exit function
   end if
  next
    Dummy(0)=-1
    Dummy(1)=-1
    GetFirstIndex2DimMultiArray()=Dummy()
      
end function