Паттерн: вытянуть значение из 4 цифр сразу после слова "хор" - VBA

Узнай цену своей работы

Формулировка задачи:

подскажите пожалуйста, правильный паттерн, который бы вытягивал значение из 4 цифр сразу после слова хор (наглядно прилагаю табличку, у меня ненужная последняя буква слова вышла и пробел)
  правильный результат то что сейчас выводит
хор 123456    
хор 123456 ьтьи 1235    
хор 12345678 1234    
123 хор 2586 2586 р 2586
тор 12568    
хор 4444 4444 р 4444
хорт 5555    
хорп 5556 хор 3333 1111 3333 р 3333

Решение задачи: «Паттерн: вытянуть значение из 4 цифр сразу после слова "хор"»

textual
Листинг программы
Sub pr5()
    Dim x As Range
    With CreateObject("vbscript.regexp")
        .Pattern = "(хор )\d{4}(\D|$)"
        For Each x In Selection
            If .test(x) Then x.Offset(, 1) = Split(.Execute(x)(0))(1)
        Next
    End With
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.615 из 5
Похожие ответы