7,764
社区成员
发帖
与我相关
我的任务
分享
Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, match As Object
strData = """0100000000002013030003"",""姓名"","""",""1"",""1963/10/13"",""1963/10/13"",""37062019631013301X"",""110108"",""地址地址在地址地址地址"",""110108""," & vbCrLf & _
"""0201000009992012060001"",""姓名"","""","""",""1"",""1978/01/08"",""1978/01/08"",""120104197801086036"",""110106"",""地址地址在地址地址地址"",""11"","
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = True
reg.MultiLine = True
reg.Pattern = """([\dX]{15}|[\dX]{18})"""
Set matchs = reg.Execute(strData)
For Each match In matchs
'Debug.Print match.Value
Debug.Print match.SubMatches(0)
Next
End Sub
1.37062019631013301X
2.120104197801086036
3.41280119770827231X
4.350181197808116571
5.350181198306105877
6.42070319840510277X
7.341623198605018311
8.410305690215031
9.410527700303295