论坛的大神帮我看看字符串里面提取字符的问题！

回忆那时12

如图要提取一串字符里面OrderId后面的a0ca70f8-1259-42c3-8a99-1d2d6178642a和OrderNo后面的SE18-09-10162。求大神帮我写个vba能提取多个的，这个里面还只是有一个OrderId和OrderNo。 新建 XLS 工作表 (3).zip (1.76 KB, 下载次数: 23)

2018-9-10 14:34 上传

点击文件名下载附件

microyip

这个正则处理是最方便的，使用Split也能勉强处理

回忆那时12

microyip 发表于 2018-9-10 15:05
这个正则处理是最方便的，使用Split也能勉强处理

大佬是正则首尾锚定吗

回忆那时12

microyip 发表于 2018-9-10 15:05
这个正则处理是最方便的，使用Split也能勉强处理

大佬帮我写一下代码

回忆那时12

哪位大神帮我解决一下

回忆那时12

哪位大神用正则帮我解决一下。

Chip_Kenny

try this:

1. Sub zz()
   
2. Dim s$
   
3. s = [a1].Value
   
4. With CreateObject("vbscript.regexp")
   
5.     .Pattern = "(OrderId.+)(?=""OrderType)"
   
6.     .Global = True
   
7.     If .test(s) Then
   
8.         For Each k In .Execute(s)
   
9.             t = t & Chr(10) & k
   
10.         Next
    
11.     End If
    
12.     [b1] = t
    
13. End With
    
14. End Sub

复制代码

ggmmlol

1. Sub test_1()
   
2.     Set reg = CreateObject("vbscript.regexp")
   
3.     reg.Global = True
   
4.     reg.Pattern = "[\s\S]*?OrderId\W*?(\w+(?:-\w+)*)\W*?OrderNo\W*(\w+(?:-\w+)*)|[\s\S]+"
   
5.     [b1] = reg.Replace([a1], "$1 $2" & Chr(10))
   
6. End Sub

复制代码

duquancai

回忆那时12 发表于 2018-9-10 15:12
大佬帮我写一下代码

请测试代码》》》》》》》》》》》》按照你的附件，字符串在[A1]

1. Sub main()
   
2.     Dim js As Object, s$, D As Object, arr(), r&, i&
   
3.     Set D = CreateObject("htmlfile"): Set js = D.parentWindow
   
4.     s = Replace([a1].Value, vbLf, ""): [b:c].Clear: [b1:c1] = [{"OrderId","OrderNo"}]
   
5.     js.execScript "o=" & s & ";a=o.rows;"
   
6.     r = js.eval("a.length;"): ReDim arr(1 To r, 1 To 2)
   
7.     For i = 1 To r
   
8.         arr(i, 1) = js.eval("a[" & i - 1 & "].OrderId;")
   
9.         arr(i, 2) = js.eval("a[" & i - 1 & "].OrderNo;")
   
10.     Next
    
11.     Range("b2").Resize(r, 2) = arr
    
12. End Sub

复制代码

ggmmlol

使用免费正则表达式加载宏——【超级查找替换】，交互式应用，无需编写VBA代码，即可快速批量提取特定文本。
本例演示如下，原理见8楼代码
更多技巧，见我的主题贴：

提取符合特定规则的文本，我用“万能正则表达式”！的
http://club.excelhome.net/thread-1430954-1-1.html
(出处: ExcelHome技术论坛)