Как отсортировать одномерный массив по алфавиту?

[Vladlex]

Извините, я, наверное, туплю к ночи, но что-то не доходит..
Вот есть массив, допустим mass1. Как отсортировать его элементы в алфавитном порядке?

Я так понимаю, легче всего отсортированные значения вносить в новый массив? Как вообще выглядит алгоритм сортировки по алфавиту на VB?

[Хакер]

Vladlex
Алгоритмов сортировки - тьма. Каждый из них на VB как-то выглядит. Какой из них тебя интересует?

[Vladlex]

Работающий... )
Шучу.
Мне, в общем, все равно, пузырьковый там будет или какой-то иной.

Желательно, какой-нибудь попроще, мне еще разбираться с ним, а я пока только начинающий.

В идеале задача стоит так (если не вдаваться в подробности)
Есть два массива, со значениями, соответствующими друг другу.
Т.е. если после сортировки в массиве1 меняются местами третий и первый элемент, то в массиве2 должно произойти то же самое.

[Vladlex]

Вот, допустим, механизм сортировки, отдельным модулем:

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


Sub SortString(vArray() As String, vArray2() As String)
  Dim TempVal As String
  Dim i&, GapSize&, CurPos&, FirstRow&, LastRow&, NumRows&
  FirstRow = LBound(vArray)
  LastRow = UBound(vArray)
  NumRows = LastRow - FirstRow + 1
    Do
        GapSize = GapSize * 3 + 1
    Loop Until GapSize > NumRows
    Do
        GapSize = GapSize \ 3
        For i = GapSize + FirstRow To LastRow
            CurPos = i
            TempVal = vArray(i)
            Do While vArray(CurPos - GapSize) > TempVal
                vArray(CurPos) = vArray(CurPos - GapSize)
               '''Возможно, сюда?
                CurPos = CurPos - GapSize
                If (CurPos - GapSize) < FirstRow Then Exit Do
            Loop
            vArray(CurPos) = TempVal
        Next
    Loop Until GapSize = 1
   End Sub

где vArray() - сортируемый массив, а vArray2(), тот, чьи значения должны быть перемещены аналогично перемещениям в vArray()
Где и как в модуль включить изменения второго массива вслед за изменениями первого? Я понимаю, что в месте, которое я отметил, но не понимаю как. Если вписать в это место
vArray2(CurPos) = vArray2(CurPos - GapSize), то сортировка получается неправильно. Мда.. надеюсь, простите меня за такие вопросы )

[Хакер]

Мне, в общем, все равно, пузырьковый там будет или какой-то иной.

http://bbs.vbstreets.ru/viewtopic.php?t=35396

[Vladlex]

Значит, применительно к моему случаю конкретно это будет вот так:

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

Public Sub Swap(ByRef a As String, ByRef b As String)
    Dim c As String
    c = a
    a = b
    b = c
End Sub

Sub SortString(ByRef vArray() As String, varray2() As String)
  Dim willSwap As Boolean
  Dim i As Integer
    Do
        willSwap = False
        For i = LBound(vArray) To UBound(vArray) - 1
            If vArray(i) > vArray(i + 1) Then
                willSwap = True
                Swap vArray(i), vArray(i + 1)
                Swap varray2(i), varray2(i + 1)
            End If
        Next i
    Loop While willSwap

   End Sub

Спасибо, работает )))