[vb.net] einen Array umdrehen

Gepostet am: Mar 29, 2011 12:36:5 PM

Es gibt Fälle, in denen man einen Array umdrehen möchte. Also beispielsweise ist gegeben A={1,2,3,4,5,6} und man bräuchte stattdessen A={6,5,4,3,2,1}. Mit folgender Funktion kann man das recht einfach bewerkstelligen:

ReverseArray

Public Sub ReverseArray(ByRef myArray() As String)         Dim i As Integer = LBound(myArray)         Dim j As Integer = UBound(myArray)         While i < j             Dim tmpvar As String = myArray(i)             myArray(i) = myArray(j)             myArray(j) = tmpvar             i = i + 1             j = j - 1         End WhileEnd Sub

Benötigt man anstelle einen String-Arrays müsste man das in der Funktion ändern.