正则问题

okeyman

Sub test()

     Dim sr, x, mat, m, regx
Set regx = CreateObject("vbscript.regexp")
     sr = "电话13611558921联系方式4353776A"
     With regx
      .Global = True
      .Pattern = "(?<=\D)\d{7}(?=\D)"

       Cells(7, 3) = .Execute(sr)(0)
      End With

End Sub
为什么这段在excel2016中运行错误，而在http://tool.oschina.net/regex/，做测试正常呢？

Kaohsing

去掉(?<=\D)就可以啦

vbee

.Pattern = "\d+"

duquancai

Pyshon正则对象 支持这种写法》》》》》

1. import re
   
2. 
   
3. sr = "电话13611558921联系方式4355377A"
   
4. pattern = re.compile(r"(?<=\D)\d{7}(?=\D)")
   
5. m = pattern.search(sr)
   
6. print(m[0] if m else None)

复制代码

duquancai

Sub test()
    Dim sr, x, mat, m, regx
    Set regx = CreateObject("VBScript.Regexp")
    sr = "电话13611558921联系方式4353776A"
    With regx
        .Global = True
        .Pattern = "(?:^|\D)(\d{7})(?=\D)"
        MsgBox .Execute(sr)(0).submatches(0)
    End With
End Sub

xd3210

vba不支持零宽度正后发断言

活在理想的世界

提取电话号码？至于这么麻烦？还是只截取联系方式后面的数字？也不至于这么麻烦啊！

ggmmlol

'一般来说，用正则的Replace方法，更加简单
Sub test()
Dim sr, x, mat, m, regx
Set regx = CreateObject("vbscript.regexp")
sr = "电话13611558921联系方式一4353776联系方式二4353779"
With regx
    .Global = True
    .Pattern = ".*?\D(\d{7})(?=\D|$)|.+"
    Cells(7, 3) = Mid(.Replace(sr, "、$1"), 2)
End With
End Sub

okeyman

duquancai 发表于 2018-10-5 20:28
Sub test()
    Dim sr, x, mat, m, regx
    Set regx = CreateObject("VBScript.Regexp")

谢谢 很完美

okeyman

ggmmlol 发表于 2018-10-5 22:12
'一般来说，用正则的Replace方法，更加简单
Sub test()
Dim sr, x, mat, m, regx

谢谢，能请您讲讲这种 replace的用法吗