regex - 从匹配的正则表达式中提取 Excel 字符串 (VBA)

Question

我想从 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”

我只想采用匹配的模式。我怎样才能实现这个目标？

感谢一百万的回复；)

Answer 1

你可以使用这个:

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