[已解决]用VBA正则表达式拆分提取

laoau138

用VBA正则表达式拆分提取

第一次发问正则，高手快来解答

最佳答案

月排行榜 / 总排行榜

小花鹿

2017-6-15 21:41

Sub test1()
Dim s, s1, tm, reg, hc, tm1, i&, r&
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "(\S+) ([\dxX]{18}) ([男女]) (\d{1,3}) (.+?)(?=\S+ [\dxX]{18}|\n|$)"
reg.Global = True
s = Sheet3.[a1]
Set s = reg.Execute(s)
For Each s1 In s
    MsgBox s1
Next s1
End Sub

跳转到最佳答案楼层

大灰狼1976

用正则也要有特征码的，你都是空格分隔，但是地址又不可以拆分提取，甚至下面部分都是不分行的，不好处理。

小花鹿

Sub test1()
Dim s, s1, tm, reg, hc, tm1, i&, r&
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "(\S+) ([\dxX]{18}) ([男女]) (\d{1,3}) (.+?)(?=\S+ [\dxX]{18}|\n|$)"
reg.Global = True
s = Sheet3.[a1]
Set s = reg.Execute(s)
For Each s1 In s
    MsgBox s1
Next s1
End Sub