Rubrik: Variablen/Strings · Array/ArrayList | VB-Versionen: VB2005, VB2008, VB2010, VB2012 | 30.09.13 |
Kopieren eines multidimensionalen Arrays Ein multidimensionales Feld wird kopiert. | ||
Autor: Dietrich Herrmann | Bewertung: | Views: 5.617 |
ohne Homepage | System: WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Es ist eine einfache Funktion, die das Kopieren eines multidimensionalen Feldes realisiert.
Quell- und Zielfeld sind vom Typ Object.
Die Funktion:
''' <summary> ''' Kopieren eines multidimensionalen Arrays ''' </summary> ''' <param name="theSrcArr">das zu kopierende Array </param> ''' <returns>die Kopie</returns> Public Function copyMultiDimArray(theSrcArr(,) As Object) As Object(,) Dim l As Short = (theSrcArr.Length - 1) / (theSrcArr.Rank + 1) Dim temp(theSrcArr.Rank, l - 1) As Object For i As Short = 0 To l - 1 For j As Short = 0 To theSrcArr.Rank temp(j, i) = theSrcArr(j, i) Next Next Return temp End Function
Der Aufruf:
Dim srcFeld(,) As Object ' (sollte mit Elementen gefüllt sein.) Dim destFeld(,) As Object destFeld = copyMultiDimArray(srcFeld)