[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.