Извлечение последних символов в скобках из строки в Excel VBA

Question

Мои строки - это имена файлов:

Образец текста (A12 V1.1)

Образец (V2) текста (A9 V2.3 8.99)

Пример текста (A34 8,3 V4)

Как извлечь только строку, начинающуюся с, но исключая V, содержащуюся только в последних скобках?

т.е.. - 1,1, 2,3, 4

Answer 1

Строковые функции VBA могут дублировать результаты статического шаблона, и вам может потребоваться вернуть истинное число, если вы отбрасываете префикс V .

Option Explicit

Function ExtractWithoutRegex(sTxt As String)

    Dim b As Long, v As Long

    b = InStrRev(sTxt, "(")
    v = InStr(b, sTxt, "V")

    ExtractWithoutRegex = vbNullString

    If v > b Then
        sTxt = Mid$(sTxt, v + 1)
        sTxt = Split(sTxt)(0)
        ExtractWithoutRegex = Val(sTxt)
    End If

End Function

Answer 2

Попробуйте это UDF

Function ExtractByRegex(sTxt As String)
With CreateObject("VBScript.RegExp")
    .Pattern = "V\d+(.)?(\d+)?"
    If .Test(sTxt) Then ExtractByRegex = .Execute(sTxt)(0).Value
End With
End Function

Обновление

Вот еще одна версия, в которой вы можете отформатировать вывод

Sub Test_ExtractByRegex_UDF()
MsgBox ExtractByRegex("A9 V2.3 8.99")
End Sub

Function ExtractByRegex(sTxt As String)
With CreateObject("VBScript.RegExp")
    .Pattern = "V\d+(.)?(\d+)?"
    If .Test(sTxt) Then sTxt = Replace(.Execute(sTxt)(0).Value, "V", "")

    If Not InStr(sTxt, ".") Then sTxt = sTxt & "." & "000"
    ExtractByRegex = Split(sTxt, ".")(0) & IIf(InStr(sTxt, "."), ".", "") & Format(Split(sTxt, ".")(1), "000")
End With
End Function