正则问题

oba5168

大神请教

一二三no.8181(108.01.31)

一二三一二三no.8352(20180101-0731)

一二三一二NO：008549

一二三一NO:008550-008558

no(:|.)(\d{4,6})-?(\d{4,6})取不出全部数据

取数（希望结果）

8181

8352

008549

008550 008558

duquancai

》》》》》》》》》》》》》》》》》》》

oba5168

但008550 008558匹配出来不一样008550-008558

结果要008550 008558 vba 正则如何写？

duquancai

oba5168 发表于 2019-8-18 18:21
但008550 008558匹配出来不一样008550-008558结果要008550 008558 vba 正则如何写？

周末无事，写一个给你，请参看！！！

1. Sub main()
   
2.     Dim arr, a
   
3.     arr = Array("一二三no.8181(108.01.31)", "一二三一二三no.8352(20180101-0731)", "一二三一二NO：008549", "一二三一NO:008550-008558")
   
4.     For Each a In arr
   
5.         MsgBox get_nums(a)
   
6.     Next
   
7. End Sub
   
8. Function get_nums(ByVal s As String) As String
   
9.     Dim D As Object, js As Object
   
10.     Set D = CreateObject("htmlfile"): Set js = D.parentWindow
    
11.     js.execScript "var a='" & s & "'.match(/no[.:：](\d+-?\d*)/i);"
    
12.     get_nums = js.eval("a?(a[1].split('-').join('  ')):('未找到！');")
    
13. End Function

复制代码

一把小刀闯天下

'好玩而已，借用4楼大神的数组凑了一个，，，

Option Explicit

Sub test()
  Dim arr, mark, i, j
  arr = Array("一二三no.8181(108.01.31)", "一二三一二三no.8352(20180101-0731)", "一二三一二NO：008549", "一二三一NO:008550-008558")
  mark = Split(". ： : （ (")
  For i = 0 To UBound(arr)
    For j = 0 To UBound(mark)
      arr(i) = Replace(arr(i), mark(j), "|")
    Next
    Debug.Print Replace(Split(arr(i), "|")(1), "-", Space(1))
  Next
End Sub

killq

我越来越不会写了，感觉正则好TMD难啊

oba5168

若要达到这样的效果，vba正则如何写

可否用正則解惑？

duquancai

纯粹的伸手党。鉴定完毕！

killq

duquancai 发表于 2019-8-18 19:39
纯粹的伸手党。鉴定完毕！

这还用鉴定？

killq

^[\D]+(\d+)-(\d+)|^[\D\(]+(\d+)
写上我的答案，供大神一喷，不过最好能喷出意见。。。多谢多谢

这审核。。。。再来一次吧那就