正则匹配题干，求句代码。（自我解决）

weiyingde

要求匹配题干并把题干写入数组。
sub  把题干写入数组()
With CreateObject("vbscript.regexp")
    .Global = True
    .MultiLine = True
    .Pattern = "(?=^13])[0-9][\.．、].*(?=[0-9][\.．、])"
    Set mth = .Execute(ActiveDocument.Content)
End With
For Each mt In mth
    k = k + 1
    ReDim Preserve zrr(1 To k)
    zrr(k) = mt
Next
   For x = LBound(zrr) To UBound(zrr)
       MsgBox zrr(x)
   Next
End Sub

weiyingde

.Pattern = "^[0-9]*[\.．、].*(?=[0-9\.．、])"
这样却匹配了多余的内容。

weiyingde

写成这样，仍然没有理想结果。
.Pattern = "^[0-9]*[\.．、].*\r([A-Z]*[\.．、].*\r)*(?=\d+[.．、])"

weiyingde

写成这样也不行，到底如何？请大侠指路。
.Pattern = "^[0-9]*[\.．、][^\r]*\r([A-Z]*[\.．、][^\r]*\r)*(?=\d+[.．、])"

weiyingde

自我解决，代码如下：
    .Pattern = "^\d+[\.．、][^\r]*\r([A-Z][\.．、][^\r]*\r)*"

201228

高太深，这得专业的来

duquancai

weiyingde 发表于 2018-6-4 16:22
自我解决，代码如下：
    .Pattern = "^\d+[\.．、][^\r]*\r([A-Z][\.．、][^\r]*\r)*"

.Pattern = "^\d+[.．、](?:(?!^\d+[.．、]).)*"

weiyingde

duquancai 发表于 2018-6-6 23:42
.Pattern = "^\d+[.．、](?:(?!^\d+[.．、]).)*"

谢谢指教，杜先生。