Сортировка двумерного массива - VB
Формулировка задачи:
Добрый день!
искала-искала, про двумерные массивы не нашла
может есть какой-то стандартный метод (типа sort) чтобы отсортировать двумерный массив, а ещё желательно сразу по двум столбцам???
очень надо, подскажите пожалуйста, кто знает!!!
Решение задачи: «Сортировка двумерного массива»
textual
Листинг программы
Sub SortMultArr(ByRef mas(,) As String)
Dim d() As String = Nothing
Dim tmp() As String
Dim L As ULong, M As ULong
Dim i As ULong, j As ULong
M = UBound(mas, 2)
L = UBound(mas, 1)
ReDim d(M)
For j = 0 To M 'Склеиваем строки в промежуточный массив
d(j) = mas(0, j)
For i = 1 To L
d(j) = d(j) & tmpDelimiter & mas(i, j)
Next i
Next j
System.Array.Sort(d)
For i = 0 To M 'Расщепляем строки обратно на записи
tmp = Split(d(i), tmpDelimiter)
If UBound(tmp) <> L Then 'немножко перестраховки на случай случайной встречи разделителя в тексте
MsgBox("Ошибка сортировки. Несовпадение границ", vbCritical)
Exit Sub
End If
For j = 0 To L
mas(j, i) = tmp(j)
Next
Next i
End Sub