Использование "VBScript.RegExp"

[Vadim39]

Скрипт, большое спасибо. Как всегда - исчерпывающе.

[Скрипт]

Vadim39: 2. Возможно ли в строке замены вернуть весь найденный текст (то, что в Word делается с помощью "^&").

Вот такой вариант можно попробовать для замены:

Sub Procedure_1()
    
    'Код работает с подключением библиотеки:
        'Tools - References... - Microsoft VBScript Regular Expressions 5.5.
    
    Dim myRegExp As VBScript_RegExp_55.RegExp
    Dim myMatchCollection As VBScript_RegExp_55.MatchCollection
    Dim myArray() As String
    Dim myString As String
    Dim i As Long
    
    
    '1. помещаем в переменную текст, который нужно анализировать.
    myString = "текст текст"
    
    '2. Создаём объект "RegExp" и даём ему VBA-имя "myRegExp".
        'Через это имя можно обращаться к этому объекту.
    Set myRegExp = CreateObject(Class:="VBScript.RegExp")
    
    '3. Поиск по всему тексту, а не до первого найденного фрагмента
    myRegExp.Global = True
    
    '4. Что ищем.
    myRegExp.Pattern = "текст"
    
    '5. Выполняем поиск. Результатом поиска будет
        'объект "MatchCollection".
    Set myMatchCollection = myRegExp.Execute(myString)
    
    '6. Если ничего не найдено, то переходим в нужную часть кода.
    If myMatchCollection.Count = 0 Then
        GoTo metka
    End If
    
    '7. Перемещаем данные в массив.
    ReDim myArray(0 To myMatchCollection.Count - 1)
    For i = 0 To myMatchCollection.Count - 1 Step 1
        myArray(i) = myMatchCollection.Item(i)
    Next i
    
    '8. Делаем поиск только до первого вхождения.
    myRegExp.Global = False
    
    '9. Замена. При замене текст должен изменяться,
        'чтобы при следующем витке цикла этот же текст уже не находился.
    For i = 0 To UBound(myArray) Step 1
        'Ищется то, что указано в п. 4.
        'Ищется в переменной "myString".
        'Искомый текст - это текст из массива, который был раньше найден.
        myRegExp.Replace myString, myArray(i)
    Next i
    
    '10. Смотрим, что в переменной в View - Immediate Window.
    Debug.Print myString
    
metka:
    
End Sub

[Vadim39]

Спасибо, это работает. Правда, из-за использования метода .Execute, довольно медленно, особенно, если вхождений много.
А что вы скажете о таком "паллиативе": поскольку символ "$" в строке замены объекта "RegExp" все же предусмотрен, можно в паттерне взять искомое выражение в одни большие скобки, после чего "$1" в строке замены вернет его целиком. Верно?

[Вождь]

Сообщение от Скрипт

...нужно подключить библиотеку...

Можно и не подключать, но если уж, то правильно так:

Dim RE As RegExp ' Variant
Dim COL As MatchCollection ' Variant
Dim S As String
    
    S = "текст текст"
    Set RE = New RegExp ' CreateObject("VBScript.RegExp")
    RE.Global = True
    RE.Pattern = "((т)(е)(к)(с)(т))"
    Set COL = RE.Execute(S)
    MsgBox COL.Count

В комментариях версия, когда библиотека не подключена.

[Скрипт]

Вождь: Можно и не подключать

я подключаю, чтобы было удобно писать код: когда ставишь точку, то появляется список, из которого можно выбирать. После написания кода можно отключить библиотеку, чтобы не было проблем при передаче макроса другому человеку, т.к. в некоторых случаях нужно на каждом компьютере подключать библиотеку.

Вождь: то правильно так:

ошибки то в моём случае нет. Просто это какие-то мелочи.

[Вождь]

Сообщение от Скрипт

...подключаю, чтобы было удобно...

Полностью поддерживам и одобрям

По поводу метасимволов в строке замены читаем здесь:
http://msdn.microsoft.com/en-us/libr...(v=vs.84).aspx
И, судя по официальной доке, ничего кроме $ нет.
Кстати, там же все родная дока по RegExp.