求正则表达式高手帮忙看一下

標準中國語

4|2|公路牵引半挂车用|HINO牌|SS2PLUA-JUZ|HINO牌|

[^\||：](\w|\d)+(\-)*(\w|\d)\b
为什么只能匹配出HINO，我的目标是SS2PLUA-JUZ
pattern里面使用“*”号，是因为希望有“-”的时候能够匹配上，没有也可以匹配上
[^\||:]表示需要的部分在“|”或者“：”后面
后边部分表示由字母和数字组成

1. Sub zz()
   
2. Dim mystr, mystr2 As String
   
3. Dim resultstr As String
   
4. Dim match As String
   
5. Dim item
   
6. mystr = "4|2|公路牵引半挂车用|HINO牌|SS2PLUA-JUZ|HINO牌|"
   
7. With CreateObject("vbscript.regexp")
   
8.     .Pattern = "[^\||：](\w|\d)+(\-)?(\w|\d)\b"
   
9.     .Global = True
   
10.     For Each item In .Execute(mystr)
    
11.         resultstr = resultstr & Chr(10) & item
    
12.         Next
    
13.         MsgBox resultstr
    
14. 
    
15. End With
    
16. End Sub
    

复制代码

结果是
HINO
SSEPLUA
-JUZ
HINO

Kaohsing

Sub zz()
'我的目标是SS2PLUA-JUZ

mystr = "4|2|公路牵引半挂车用|HINO牌|SS2PLUA-JUZ|HINO牌|"
With CreateObject("vbscript.regexp")
  .Pattern = "(\w{2}\d\w{4}-\w{3})"
  MsgBox .Execute(mystr)(0)
End With
End Sub

ggmmlol

Sub zz()
Dim mystr$, resultstr$
Dim mas, ma
mystr = "4|2|公路牵引半挂车用|HINO牌|SS2PLUA-JUZ|HINO牌|"
With CreateObject("vbscript.regexp")
    .Pattern = "(?:^|\|)([A-Z][A-Z0-9-]+)(?=\|)"
    .Global = True
    Set mas = .Execute(mystr)
    For Each ma In mas
        resultstr = resultstr & Chr(10) & ma.submatches(0)
    Next
    MsgBox resultstr
End With
End Sub

標準中國語

ggmmlol 发表于 2018-3-23 18:46
Sub zz()
Dim mystr$, resultstr$
Dim mas, ma

大神，学习了。我先研究研究，再来再次感谢。解决了我多年的智商难题

標準中國語

ggmmlol 发表于 2018-3-23 18:46
Sub zz()
Dim mystr$, resultstr$
Dim mas, ma

请问这个里面怎么理解呢(?:^|\|)

另外：北奔牌|型号：ND4255B34J型|||车辆识别代码：LBZ446DB2BA014026发动机号：1611B06188

像这样的应该怎么办呢，只想要车辆识别代码。也就是说需要加一个条件“码：”字开头是吧

ggmmlol

(?:^|\|)表示字符串的起始位置或"|"符号之后的位置。
你提供的数据样本太少，难以全面概括。建议上传附件，包含各种典型数据，并模拟需要的结果，以供测试