VBScript.RegExp: замена в несколько проходов

[Aaron20]

Добрый день.

Есть код
objRegExp.Global = True
objRegExp.Pattern = "^([\.\d ]*)(.+)\r([\.\d ]*)\2\r"
Res = objRegExp.Replace(Str, "$1$3$2" + vbCrLf)

Как сделать так, чтобы поиск-замена производились до тех пор, пока количество замен не станет равной нулю?

Я решил попробовать так

objRegExp.Global = True
For i = 1 To 5
objRegExp.Pattern = "^([\.\d ]*)(.+)\r([\.\d ]*)\2\r"
Res = objRegExp.Replace(Str, "$1$3$2" + vbCrLf)
Next

но не получилось.

[Sasha_Smirnov]

А обычной заменой в Word?

[Aaron20]

Сообщение от Sasha_Smirnov

А обычной заменой в Word?

Это только фрагмент макроса, который хочу написать.

Если бы речь шла просто о разовой замене, то я бы заменил, естественно, обычными средствами ворда.

[Казанский]

Сообщение от Aaron20

Как сделать так, чтобы поиск-замена производились до тех пор, пока количество замен не станет равной нулю?

То есть замену нужно применять к результату предыдущей замены?
В простейшем случае так

While objRegExp.test(Str)
  Str = objRegExp.Replace(Str, "$1$3$2" + vbCrLf)
Wend

Но поскольку тут происходит перемена местами частей строки, есть шанс, что всегда будет что заменить, и программа зациклится. Поэтому следует ограничить число замен, например так

For i = 1 To 10 'макс. 10 замен
  If objRegExp.test(Str) Then
    Str = objRegExp.Replace(Str, "$1$3$2" + vbCrLf)
  Else: GoTo allReplaced
  End If
Next
MsgBox "проведено 10 замен, результат не достигнут!", vbExclamation
allReplaced: 'продолжение программы

[Aaron20]

Сообщение от Казанский

есть шанс, что всегда будет что заменить, и программа зациклится
[/CODE]

В моем случае не зациклится. Там фактически максимум нужно будет 5-7 проходов.

[Aaron20]

Не получается, увы (

[Aaron20]

В общем, кода такой пока что.

Sub Regularka()
'Объявляем переменные и классы
Set objRegExp = CreateObject("VBScript.RegExp")
Dim Str, Result As String

'Копируем выделенный текст в строковую переменную и удаляем из текста.
Str = Selection.text
Selection.Delete
'Проверять по всему тексту (если бы False, то было бы до первого соответствия).
objRegExp.Global = True
'Регулярное выражение, ищущее строку (время + название передачи)
objRegExp.Pattern = "^([\.\d ]*)(.+)\r([\.\d ]*)\2\r"
For i = 1 To 5
Result = objRegExp.Replace(Str, "$1$3$2" + vbCrLf)
Str = Result
Next
Selection.TypeText text:=Str
End Sub
==============
А текст в документе ворда такой (просто пример):

17.23 Новости
12.22 Новости
22.00 Новости
12.12 Новости

[Казанский]

Выложите документ с реальными данными (расширенный режим - скрепка), и что надо получить. Похоже, тут лучше использовать коллекцию или словарь, а не регэксп.

[Aaron20]

Сообщение от Казанский

Выложите документ с реальными данными (расширенный режим - скрепка), и что надо получить. Похоже, тут лучше использовать коллекцию или словарь, а не регэксп.

Так это пока и есть весь макрос.
И текст в будущем будет такой же ("Новости" и т.п.)
Там еще непонятность есть -- если например первая строчка будет немного другая, то макрос вообще ничего не заменяет:

17.23 Новоооости
12.22 Новости
22.00 Новости
12.12 Новости

Хотя регулярное выражение должно находить в этом случае вторую и третью строки.

[Aaron20]

Что такое коллекция? )