Добрый день! Есть вопрос по регулярным выражениям с использованием VBA
Кто подскажет?
Есть строка: "ВВГНГ(А) 3x2,5x10 * CFD "
Необходимо из строки, выделить сечения - 3x2,5x10
Правило 1 - "([\d,\,]+[\x|\х][\d,\,]+)"
Находит - 3x2,5
Правило 2 - "([\x|\х]([\d,\,]+)
Находит - 2,5x10
Пытался объединить два правила, но не работает. ([\d,\,]+)[\x|\х]([\d,\,]+)[\x|\х]([\d,\,]+)
Ниже подпрограмма VBA:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Sub Search_Reg()
Dim Str1 As String
Dim Str2 As String
Dim L As Integer
Set objRegExp = CreateObject("VBScript.RegExp")
'objRegExp.Pattern = "([\d,\,]+[\x|\х][\d,\,]+)" ' ищет 3x2,5
objRegExp.Pattern = "([\d,\,]+)[\x|\х]([\d,\,]+)[\x|\х]([\d,\,]+)" ' ищет 2,5x10
Str1 = "ВВГНГ(А) 3x2,5 *"
Str2 = "ВВГНГ(А) 3x2,5x10 * CFD "
Res = objRegExp.Test(Str2)
Set objMatches = objRegExp.Execute(Str2)
L = objMatches.Count
For i = 0 To objMatches.Count - 1
Set objMatch = objMatches.Item(i)
' MsgBox objMatch.Value
Next i
MsgBox "В строке""" & Str & """" & Chr(13) & "Найдено " & "[" & objMatches.Count & "]" & _
Chr(13) & "Вхождений по шаблону """ & objRegExp.Pattern & "''" & Chr(13) & "Найдено сечение: " & objMatch & ""
End Sub
Учимся использовать тэги оформления кода -
FAQ
