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