Сортировка

[navov]

Есть ли в VB какие-нибудь стандартные функции для сортировки массива?

[RayShade]

К чему они, если можно написать такую функцию самому? Некоторые ленивые индивидуумы используют для сортировки невидимый listbox

[Ruslan Demidow]

У меня есть примеры сортировки массивов, но они для значений чисел, а вот для строк я что-то не видел примеров сортировки. Может плохо искал?

[navov]

Если не в лом подскажите как это делать в ListBox(под рукой VB нет)

[hCORe]

Код: Выделить всё

'поставь на форме ListBox с именем lstSort
'Visible = False, Sorted = True
'и кнопку Command1
Private Sub Command1_Click()
    'создать массив
    Dim array1(9) As String, array2(9) As String
    'очистить экран
    Cls
    'заполнить его
    array1(0) = "Главпочтамт"
    array1(1) = "Телеграф"
    array1(2) = "Русская рулетка"
    array1(3) = "Мясо РУЛЕЗЗ"
    array1(4) = "hCORe <hCORe@mail.ru>"
    array1(5) = "VBStreets.RU"
    array1(6) = "VB Cool"
    array1(7) = "Win32 API"
    array1(8) = "Поиск людей"
    array1(9) = "Регистрация"
   
    'отсортировать
    EnterArr array1, array2
    'поставить автоперерисовку
    Me.AutoRedraw = True
    For i = 0 To 9
        Me.Print "#" + Trim(Str(i + 1)) + " " + array2(i)
    Next i
End Sub

Public Sub EnterArr(arrStrings() As String, arrOutput() As String)
On Error Resume Next
    'очистить список
    lstSort.Clear
    Dim arrTmp() As String
    For i = 0 To UBound(arrStrings)
        'добавить новую строку
        DoEvents
        lstSort.AddItem arrStrings(i)
    Next i
   
    'переопределим массив
    ReDim arrOutput(lstSort.ListCount - 1)
    For i = 0 To lstSort.ListCount - 1
        DoEvents
        arrOutput(i) = lstSort.List(i)
    Next i
End Sub

[Alexanbar]

Теория методов сортировки см. на http://www.structur.h1.ru/

[navov]

Спасибо за помощь