正则表达式求助

whoami0001

40SC038-6893-LUB

54CD032-675

请问下，需要提取第一个-后的三位或者四位数字，怎么表达？谢谢。

tmplinshi

1. Sub test()
   
2.     MsgBox RegExGetSub("40SC038-12345-LUB-666", "-(\d+)")
   
3.     MsgBox RegExGetSub("40SC038-12345-LUB-888", "-(\d{3,4})")
   
4. End Sub
   
5. 
   
6. Private Function RegExGetSub(str$, pattern$)
   
7.     With CreateObject("VBScript.RegExp")
   
8.         .pattern = pattern
   
9.         RegExGetSub = .Execute(str).Item(0).Submatches(0)
   
10.     End With
    
11. End Function

复制代码

ggmmlol

^.*-(\d+)\b|.+

limonet

有规律用函数的mid+find

tanglf188

LEFT函数就可以了