懂正则的帮我写个表达式

huang1314wei · 发表于 2017-4-7 08:45

本帖最后由 huang1314wei 于 2017-4-7 11:24 编辑

如图，上述匹配结果不是我要的，我希望只匹配“采购订单”字符后面首次出现的数字串，也就是说如何只得到结果 4604639344077649 和 123456

我尝试用这个表达式来提取 (?<=采购订单.*?)\d+ 但是匹配不出来，这个错在哪里？

&{"yitao":[{"子订单":["5242710348750259"],"商品ID":["547151400503"],"采购订单":"4604639344077649","采购号":"莫买沃洲山"}]}&采购订单，123456

huanglicheng · 发表于 2017-4-7 09:11

楼主你把内容弄出来呀好复制，这样不好测试。

huang1314wei · 发表于 2017-4-7 09:25

huanglicheng 发表于 2017-4-7 09:11
楼主你把内容弄出来呀好复制，这样不好测试。

&{"yitao":[{"子订单":["5242710348750259"],"商品ID":["547151400503"],"采购订单":"4604639344077649","采购号":"莫买沃洲山"}]}&

huanglicheng · 发表于 2017-4-7 09:25

试试这样供参考
(?<=采购订单\D*)\d+

huang1314wei · 发表于 2017-4-7 09:29

huanglicheng 发表于 2017-4-7 09:25
试试这样供参考
(?

试过了，匹配不出来

huanglicheng · 发表于 2017-4-7 09:30

huang1314wei 发表于 2017-4-7 09:29
试过了，匹配不出来

可能你用的测试工具不一样？我这能匹配的到

huang1314wei · 发表于 2017-4-7 09:34

huanglicheng 发表于 2017-4-7 09:30
可能你用的测试工具不一样？我这能匹配的到

那很奇怪呢，你这个表达式，我用VBA测试也出不了结果，很郁闷

Sub RegTest()
Dim oRegExp As Object
Dim oMatches As Object
Dim sText As String
sText = "&{"yitao":[{"子订单":["5242710348750259"],"商品ID":["547151400503"],"采购订单":"4604639344077649","采购号":"莫买沃洲山"}]}&"
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
.Global = True
.Pattern = "(?<=采购订单\D*)\d+"
MsgBox .test(sText)
Set oMatches = .Execute(sText)
For Each c In oMatches
Debug.Print c.Value
Next
End With
Set oRegExp = Nothing
Set oMatches = Nothing
End Sub

复制代码

liu-aguang · 发表于 2017-4-7 09:40

huang1314wei 发表于 2017-4-7 09:34
那很奇怪呢，你这个表达式，我用VBA测试也出不了结果，很郁闷

VBscript的正则对象不支持(?<=exp). 可用下列正则,但最好还是用js解析:
捕获.PNG

huanglicheng · 发表于 2017-4-7 09:48

huang1314wei 发表于 2017-4-7 09:34
那很奇怪呢，你这个表达式，我用VBA测试也出不了结果，很郁闷

试试这种，换个思路

Sub RegTest()
Dim oRegExp As Object
Dim oMatches As Object
Dim sText As String
sText = "&{"yitao":[{"子订单":["5242710348750259"],"商品ID":["547151400503"],"采购订单":"4604639344077649","采购号":"莫买沃洲山"}]}&采购订单":"4604649","采购号":"莫买沃洲山"}]}&"
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
.Global = True
.Pattern = "采购订单\D*(\d+)"
Set oMatches = .Execute(sText)
For Each c In oMatches
Debug.Print c.submatches(0)
Next
End With
Set oRegExp = Nothing
Set oMatches = Nothing
End Sub

复制代码

huang1314wei · 发表于 2017-4-7 09:56

liu-aguang 发表于 2017-4-7 09:40
VBscript的正则对象不支持(?

用VBA测出来的结果，就是不一样，问题出在哪里？

		自动登录	找回密码
密码			免费注册

[已解决] 懂正则的帮我写个表达式

评分

评分

最新热点 /1