我想从Excel VBA中的给定字符串中提取匹配的RegExp模式.
例如,
鉴于此表达式：
"[0-9]*\+[0-9]{3}\@[0-9]*\+[0-9]{3}"
从这个字符串：
“CSDT2_EXC_6 000 @ 6 035_JM_150323”
我想得到：“6 000 @ 6 035”
但我不知道如何做到这一点.
我能得到的最近的是：
Function getStations(file_name As String)
'Use Regular Expressiosn for grabbing the input and automatically filter it
Dim regEx As New RegExp
With regEx
.Global = True
.MultiLine = True
.IgnoreCase = True
'This matches the pattern: e.g. 06+900@07+230
.Pattern = "[0-9]*\+[0-9]{3}\@[0-9]*\+[0-9]{3}"
End With
If regEx.Test(file_name) Then
strReplace = ""
getStations = regEx.Replace(file_name,strReplace)
Else
getStations = "Hay un problema con el nombre. Por favor,arréglalo"
End If
End Function
但这会带给我以下内容：
“CSDT2_EXC__JM_150323”
我只想采用匹配的模式.我怎样才能做到这一点？
万分感谢所有回复;)
解决方法
你可以用这个：
Function getStations(file_name As String)
'Use Regular Expressiosn for grabbing the input and automatically filter it
Dim regEx As New RegExp
With regEx
.Global = True
.MultiLine = True
.IgnoreCase = True
'This matches the pattern: e.g. 06+900@07+230
.Pattern = "[0-9]*\+[0-9]{3}\@[0-9]*\+[0-9]{3}"
End With
If regEx.Test(file_name) Then
getStations = regEx.Execute(file_name)(0)
Else
getStations = "Hay un problema con el nombre. Por favor,arréglalo"
End If
End Function
