Добавление текста от начала "слово" до "друго

[Gmp]

Вобщем не соображу.

Есть текстовые данные:

ммм
Слово
ааиаи
пркртпа
патапт
и т.д
Слово1
патап
Слово
вав
ууаа
ууу
Слово2
ааву
...

как мне от слово до словоX собрать данные

пусть будет
strQ = "ссм ссмм Слово ааиаи пркртпа патапт Слово1 смсм смсм Слово вав ууаа ууу Слово2 ааву"

strA = Split(strQ, " ")

получить strOut = "Слово ааиаи пркртпа патапт Слово1 vbCrLf Слово вав ууаа ууу Слово2"

Извиняйте, как со строками работать у меня завал.

[uhm]

результат=строка1 & " " & строка2 & " " & ...

[Gmp]

uhm
Непонял что ты этим хотел показать?

[Matew]

Gmp, strA - это же у тебя массив. Вот и работай с массивом или заполни из него коллекцию...(Найди первое слово, запомни индекс1, найди второе слово, запомни индекс2, собери нужную строку, как сказал uhm от индекса1 до индекса2)

[Gmp]

Matew
Спасибо коллекции то что нужно.

Но есть проблемка когда идет
слово1
слово1
текст
текст
слово2

нужно добавлять все с 1 слово1 до слово2

Я пытаюсь это так сделать:

For iii = 1 To colS.Count - 1
If colS.Item(iii + 1) - colS.Item(iii) = 1 Then
colS.Remove (iii + 1)
End If
Next iii

В ответ "Out of Range"

[GB826]

Удаляй с конца коллекции

[Gmp]

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

Dim colS As Collection
Dim strQ As String
Dim strA() As String
Dim strOut As String
Dim i As Integer

strQ = "End ddf Slovo ffg dfd ere fdf Konec Slovo drt mjkjj ere dddgg End"
strA = Split(strQ, " ")

Set colS = New Collection

For i = 0 To UBound(strA)
If strA(i) = "Slovo" Then
colS.Add i, "start" & i
ElseIf strA(i) = "Konec" Or strA(i) = "End" Then
colS.Add i, "finish" & i
End If
Next i

'??? Что здесь сделать чтобы получить strOut = "Slovo ffg dfd ere fdf Konec" vbCrLf "Slovo drt mjkjj ere dddgg End"?

Set colS = Nothing

[Matew]

Gmp, я имел в виду что-нибудь, типо:

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

Dim strQ As String
Dim strA() As String
Dim strOut As String
Dim i As Integer, index() As Integer, j As Integer, index2() As Integer

strQ = "End ddf Slovo ffg dfd ere fdf Konec Slovo drt mjkjj ere dddgg End"
strA = Split(strQ, " ")
ReDim index(0)
index(0) = 0

For i = 0 To UBound(strA)
If strA(i) = "Slovo" Then
' тут еще можно
' IF ubound(index2) = j then
j = j + 1
ReDim Preserve index(j)
index(j) = i
' end if
ElseIf strA(i) = "Konec" Or strA(i) = "End" Then
'j = j + 1
ReDim Preserve index2(j)
index2(j) = i
End If
Next i
For j = 0 To UBound(index)
    If index2(j) > index(j) Then
        For i = index(j) To index2(j)
            strOut = strOut & " " & strA(i)
        Next i
        strOut = strOut & vbCrLf
    End If
Next j
MsgBox strOut


[Gmp]

Matew
Теперь понятно ReDim Preserve запоминает позицию, а я использовал Collection для этого. (Програмлю 3-ю неделю поэтому много чего не знаю ) Спасибо.

[Matew]

Redim переобъявляет массив, Preserve сохраняет старые значения.

[alibek]

Redim переобъявляет массив, Preserve сохраняет старые значения.

Только последнее измерение.