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

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

подскажите пожалуйста, правильный паттерн, который бы вытягивал значение из 4 цифр сразу после слова хор (наглядно прилагаю табличку, у меня ненужная последняя буква слова вышла и пробел)

                    Листинг программы
                
.Pattern = "[хор]\s\d{4}(\D|$)"

	правильный результат	то что сейчас выводит
хор 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы