отсортировать элементы массива

[wolf05632]

Народ, не могу победить, помогите, пожалуйста:
есть четыре строки, которые надо вывести в строго определенном порядке:
строка 1
строка 2
строка 3
строка 4
Но! если строка начинается с определенного слова (пусть "если"), то эту строку нужно поставить в конец, а остальные передвинуть вверх, причем,если слово "если" встречается в двух или трех строках, то перенести их в конец тоже надо в хронологическом порядке. ПРИМЕР:
если строка 1
если строка 2
строка 3
строка 4
ВЫВОД:
строка 3
строка 4
если строка 1
если строка 2

пробовал через одномерный массив и метод пузырька, но в случае вышеуказанного примера выводит так:
строка 3
строка 4
если строка 2
если строка 1

КОД:

Dim Array(3) As String
    Array(0) = "если строка1"
    Array(1) = "если строка2"
    Array(2) = "строка3"
    Array(3) = "строка4"
     For i = 0 To 2
        For j = 1 - i To 0 Step -1
            If Array(j) Like ("если*") Then
               
' можно задать условие так:
' if left(Array(j),4)= "если" then
            
tmp = Array(j)
                
                Array(j) = Array(j + 1)
                Array(j + 1) = tmp
                End If
        Next j
    Next i
    With Word.Selection
    
    .TypeText (Array(0))
    .TypeParagraph
    .TypeText (Array(1))
    .TypeParagraph
    .TypeText (Array(2))
    .TypeParagraph
    .TypeText (Array(3))
    .TypeParagraph
    End With

Естесственно, я условно присвоил текст элементам массива. В реале там текстовые переменные.
ХЕЛП! СПАСИБО!

[shanemac51]

Dim Array(3) As String
    Array(0) = "если строка1"
    Array(1) = "если строка2"
    Array(2) = "строка3"
    Array(3) = "строка4"
'''''''''''''''''''''''''''''''''''''''''''''''
 For i = 0 To 3
             If Array(i) Like ("если*") Then
               Array(i)="2" & Array(i)
             else
               Array(i)="1" & Array(i)
             endif
      Next i
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


     For i = 0 To 2
        For j = 1 - i To 0 Step -1
            If Array(j) Like ("если*") Then
               
' можно задать условие так:
' if left(Array(j),4)= "если" then
            
tmp = Array(j)
                
                Array(j) = Array(j + 1)
                Array(j + 1) = tmp
                End If
        Next j
    Next i
    With Word.Selection
    
    .TypeText (mid(Array(0),2))
    .TypeParagraph
    .TypeText (mid(Array(1),2))
    .TypeParagraph
    .TypeText (mid(Array(2),2))
    .TypeParagraph
    .TypeText (mid(Array(3),2))
    .TypeParagraph
    End With

[wolf05632]

shanemac51
Чета бред какой-то выводит...(((

[Ципихович Эндрю]

может поможет
Упорядочить записи вмассиве согласно алфавита

' ---------------------------------------------- Пример 1
N = 5                              ' Число элементов массива
ReDim Mass(1 To N)

Mass(1) = "Варкалось"
Mass(2) = "Хливкие шорьки"
Mass(3) = "Пырялись по наве"
Mass(4) = "И хрюкотали зелюки"
Mass(5) = "Как мюмзики в мове"

' --------------------------------- Сортировка
For i = 1 To N
    For j = i To N
        If Mass(i) > Mass(j) Then
            sss = Mass(j)
            Mass(j) = Mass(i)
            Mass(i) = sss
        End If
    Next
Next

' --------------------------------- Выдача в MsgBox

sss = ""
For i = 1 To N
    sss = sss + Mass(i) + vbCrLf
Next
MsgBox sss

'Строка_массива_0 не существует, так как For i = 1 To N, то есть от одного
Строка_массива_1 = Mass(1)
Строка_массива_2 = Mass(2)
Строка_массива_3 = Mass(3)


' ---------------------------------------------- Пример 2
N = 5
ReDim Mass(1 To N)

Mass(1) = "ав"
Mass(2) = "адбмбвг"
Mass(3) = "адбахххх"
Mass(4) = "абвгд"
Mass(5) = "абв"

' --------------------------------- Сортировка
For i = 1 To N
    For j = i To N
        If Mass(i) > Mass(j) Then
            sss = Mass(j)
            Mass(j) = Mass(i)
            Mass(i) = sss
        End If
    Next
Next

' --------------------------------- Выдача в MsgBox

sss = ""
For i = 1 To N
    sss = sss + Mass(i) + vbCrLf
Next
MsgBox sss

[wolf05632]

Ну, что ж . Как всегда, сам задал вопрос, сам отвечаю(не знаю насколько алгоритм правильный с точки зрения оптимизации, но работает!!!): слово "если" ставим в любые строки:

Dim Array_Noch(3) As String
    Array_Noch(0) = "если строка1"
    Array_Noch(1) = "строка2"
    Array_Noch(2) = "строка3"
    Array_Noch(3) = "строка4"
For j = 0 To 3
On Error GoTo q
  If Array_Noch(k) Like ("если*") Then
    
    For i = 0 + k To 2
    On Error GoTo 0

            tmp = Array_Noch(i)
            Array_Noch(i) = Array_Noch(i + 1)
            Array_Noch(i + 1) = tmp
            
                Debug.Print ("j="); j
                Debug.Print ("i="); i
               Debug.Print ("k="); k
                Debug.Print Array_Noch(0)
                Debug.Print Array_Noch(1)
                Debug.Print Array_Noch(2)
                Debug.Print Array_Noch(3)
        Next
        Else
        k = k + 1
        End If
        Next
q:
 With Word.Selection
    
    .TypeText (Array(0))
    .TypeParagraph
    .TypeText (Array(1))
    .TypeParagraph
    .TypeText (Array(2))
    .TypeParagraph
    .TypeText (Array(3))
    .TypeParagraph
    End With

[Ципихович Эндрю]

не въехал в строке

If Array_Noch(k) Like ("если*") Then

откуда значение К возмётся??

[wolf05632]

Ципихович Эндрю
вба язык - тупой язык. можно поставить 0+к. компилятор интерпритирует его как "типа ничто=типа ноль"
так что при первой итерации там "типа ноль"

[wolf05632]

В итоге так:

Dim Array_Noch(3) As String
    Array_Noch(0) = "если строка1"
    Array_Noch(1) = "строка2"
    Array_Noch(2) = "строка3"
    Array_Noch(3) = "строка4"
For j = 0 To 3
  If Array_Noch(0 + k) Like ("если*") Then
    For i = 0 + k To 2
            tmp = Array_Noch(i)
            Array_Noch(i) = Array_Noch(i + 1)
            Array_Noch(i + 1) = tmp
            Next
        Else
        k = k + 1
        End If
        Next
 With Word.Selection
        .TypeText (Array(0))
    .TypeParagraph
    .TypeText (Array(1))
    .TypeParagraph
    .TypeText (Array(2))
    .TypeParagraph
    .TypeText (Array(3))
    .TypeParagraph
    End With