_ArraySort2D

#include-once
#include <Array.au3>

Func _ArraySort2D(ByRef $a2D, $iDescending=0, $iStart=0, $iEnd=0)
    If (UBound($a2D, 0) <> 2) Then Return SetError(1, 0, False)
    Local $a1D[UBound($a2D)], $i, $j, $s
    For $i = 0 To UBound($a2D, 1)-1
        $a1D[$i] = $a2D[$i][0]
        For $j = 1 To UBound($a2D, 2)-1
            $a1D[$i] &= Chr(7) & $a2D[$i][$j]
        Next
    Next
    _ArraySort($a1D, $iDescending, $iStart, $iEnd)
    If @error Then Return SetError(2, @error, False)
    For $i = 0 To UBound($a2D, 1)-1
        $s = StringSplit($a1D[$i], Chr(7), 2)
        For $j = 0 To UBound($a2D, 2)-1
            $a2D[$i][$j] = $s[$j]
        Next
    Next
EndFunc