Опять строки...

[Gmp]

Имею такое:

ddd|d|34
ddd|d
ddd|d
ddd|d|67
ddd|d|67
aaa|a|45
aaa|a|45
aaa|d
aaa|d
aaa|d
aaa|d|43

сделать нужно такое:
ddd|d|34
ddd|d|67
ddd|d|67
ddd|d|67
ddd|d|67
aaa|a|45
aaa|a|45
aaa|d|43
aaa|d|43
aaa|d|43
aaa|d|43

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

Dim s As String
Dim ss As String
Dim so As String
Dim a() As String
Dim i As Integer
Dim ii As Integer

s = "ddd|d|34 ddd|d ddd|d ddd|d|67 ddd|d|67 aaa|a|45 aaa|a|45 aaa|d aaa|d aaa|d aaa|d|43"
a = Split(s, " ")

For i = 0 To UBound(a)

If Len(a(i)) - Len(Replace$(a(i), "|", "")) = 1 Then
'Здесь я пытася сделать это, но получался бред
End If

so = so & a(i) & vbCr
Next i

msgbox so

[alibek]

Можешь словами объяснить, что тебе надо?

[DirectXManiac]

ИМХО он хочет убрать строки у корорых окончание не на цифру и "|"

[Gmp]

Там где нет 3 элемента после разделителя добавить из первого полного следующего где есть.

[alibek]

Поднимайся снизу вверх, запоминай окончание каждой строки, если в очередной строке окончания нет, добавляй сохраненное.

[Gmp]

alibek
Пытался, неполучилось, можно примерчик?

[DirectXManiac]

Ты что не можешь взять последние 3 символа и запомнить их?

[Gmp]

DirectXManiac
Да тут не все так просто как кажется.

[alibek]

Пытался, неполучилось, можно примерчик?

Пожешь показать, что ты пытался и что не получилось?
Потому что мне непонятно, что в моих четырех фразах можно понять неправильно.

[Gmp]

alibek
Я не знаю как это реализуется поэтому попросил пример.

[XPAHuTEJIb]

Gmp
для данного случая, я думаю так:

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

For i = UBound(a) To 0 Step -1
If Len(a(i)) > 5 Then x = Right$(a(i), 3)
If Len(a(i)) = 5 Then a(i) = a(i) & x
Next i

[alibek]

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

For I = UBound(S) To LBound(S) Step -1
  If Len(S(I)) = 5 Then
    If P1 = S(I) And Len(P2) > 0 Then S(I) = S(I) + P2
  Else
    P1 = Left$(S(I), 5)
    P2 = Right$(S(I), 3)
  End If
Next I

З.Ы. Надеюсь, ты копипастить не будешь, т.к. этот пример в практическом применении почти бесполезен.

[alibek]

XPAHuTEJIb, у тебя в коде минимум два бага.

[XPAHuTEJIb]

alibek
Код практически такой же. К чему лишние проверки? Можно было одной строкой обойтись...тормознул.
У меня прекрасно работает. Хотя, спорить бесполезно

[alibek]

Подумай, что будет для ddd|d, aaa|a|34. Подсказываю. Будет ddd|a|34.

[XPAHuTEJIb]

как так?
в х записываются последние 3 символа следующего элемента, если его длина больше 5 т.е. "|34"
а потом прибавляются к текущей строке, если ее длина равна 5, т.е. будет "ddd|d" + "|34"
одной строкой красивее:

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

For i = UBound(a) To 0 Step -1
If Len(a(i)) > 5 Then x = Right$(a(i), 3)  else a(i) = a(i) & x
Next i

[alibek]

Ты не понял.