正则捕获不达目的，分组有误？

weiyingde

ww87725244 发表于 2024-8-24 13:58
.Pattern = "(^解析)|((\s+|)[A-D]项\W+(\；|\。$))"

一楼的问题，我还是米汤盆洗澡，疑惑重重，希望继续得到高人指点。
先谢了

ww87725244

还不对？

ww87725244

1. Sub 要求匹配解析捕获四个()
   
2.     Dim mt, mk, oRng As Range, n&, m&, str$, tt$, arr(), k 'arr()不申明也没关系
   
3.     Dim rg As Range, x%, dic As Object, a
   
4.     Set dic = CreateObject("Scripting.Dictionary")
   
5.     osr = ActiveDocument.Content
   
6.     str = Replace(Replace(osr, Chr(7), 0), Chr(1), 0)
   
7.     With CreateObject("vbscript.regexp")
   
8.         .Global = True: .Ignorecase = False: .MultiLine = True
   
9.        .Pattern = "(^解析)|((\s+|)[A-D]项\W+(\；|\。$))"
   
10.         For Each mt In .Execute(str)
    
11.          MsgBox mt
    
12.         Next
    
13.     End With
    
14. End Sub

复制代码

weiyingde

ww87725244 发表于 2024-8-24 13:58
.Pattern = "(^解析)|((\s+|)[A-D]项\W+(\；|\。$))"

谢谢帮助，代码中的“项”，分号和句号，只在本附件中齐全，其他文档中未必都有。用他们做标记，对于有些文档可能不能准确匹配。

ww87725244

weiyingde 发表于 2024-8-24 14:09
谢谢帮助，代码中的“项”，分号和句号，只在本附件中齐全，其他文档中未必都有。用他们做标记，对于有些 ...

实际问题实际分析吧，不可能写一个正则，所有文档通用？？

xjl565135022

Sub test()
Dim reg As New RegExp
With reg
    .Global = True
    .Pattern = ".*(解析.*)(.项.*)(.项.*)(.项.*).*"
End With
s = [A1]
Set Match = reg.Execute(s)
For Each mt In Match
    For Each result In mt.submatches
        Debug.Print result
    Next
Next
End Sub

weiyingde

quqiyuan 发表于 2024-8-24 13:26
硬凑一下，仅供参考。。。
解析\s+([A-D].+?)([A-D].+?)([A-D].+?)$

你这代码通俗易懂，好理解，方便套用，可能通用性要差点。如果解析项目多一项，譬如有A……；B……；C……；D……，也就是说，超过三项的就不会匹配了

quqiyuan

weiyingde 发表于 2024-8-24 14:14
你这代码通俗易懂，好理解，方便套用，可能通用性要差点。如果解析项目多一项，譬如有A……；B……；C… ...

所以我写了硬凑一个嘛，我看你都是ABCD中的三个，所以简单的写了这个供你参考，就是想不出多少个都匹配的，见谅

weiyingde

quqiyuan 发表于 2024-8-24 14:25
所以我写了硬凑一个嘛，我看你都是ABCD中的三个，所以简单的写了这个供你参考，就是想不出多少个都匹配的 ...

好的，谢谢你，我正在学习正则断言，我用断言写的练练手，想搞清楚问题除了哪里。并不是可求于你，总之还是感谢你你的帮助。

weiyingde

ww87725244 发表于 2024-8-24 14:05
第4题最后一个选项，查了很久，不知道啥原因，提取不到，其他没有问题

是的，正则很复杂，表达式有一点不到位就没有结果。总之，感谢你的帮助。