Rubrik: Variablen/Strings · Array/ArrayList | VB-Versionen: VB.NET | 01.05.06 |
Array um 90° drehen (VB.NET 2005) Dreht ein Object-Array (2-Dimensional) um 90° nach rechts | ||
Autor: Stefan Such | Bewertung: | Views: 11.902 |
www.such-webdesign.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Hier der Code vom vb@rchiv-Tipp "Array um 90° drehen" entsprechend für VB.NET 2005 abgewandelt.
Dies funktioniert jetzt auch, wenn die beiden Dimensionen unterschiedlicher Größe sind.
Public Function RotateArray(ByVal oArray As Object(,)) As Object(,) ' Neues Array Dim oNew(oCur.GetUpperBound(1), oArray.GetUpperBound(0)) As Object ' Alle Werte durchlaufen Dim X As Integer, Y As Integer, X2 As Integer, Y2 As Integer For X = 0 To oArray.GetUpperBound(0) For Y = 0 To oArray.GetUpperBound(1) ' X- und Y-Werte aus der Dimension des ersten in die Dimensionen ' des neuen Array umrechnen X2 = oArray.GetUpperBound(1) - Y Y2 = X ' Wert übertragen oNew(X2, Y2) = oArray(X, Y) Next Y Next X ' Ok Return oNew End Function