извлечь число между двумя разными символами

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

извлечь число между двумя разными символами (Функции/Function)

irabel

Дата: Пятница, 03.05.2024, 11:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Доброго времени суток.

Никак не могу сообразить подобрать регулярку, прошу помощи

Нужно извлечь число, между двумя разными символами "_" и "С"

"RawData_LN14838_40C.csv" - извлечь 40
"RawData_LN14838_60.5C.csv" - извлечь 60.5
"RawData_LN14838_20C.csv" - извлечь 20

[vba]

Код

Sub test()
    arr = Array("RawData_LN14838_40C.csv", "RawData_LN14838_60.5C.csv", "RawData_LN14838_20C.csv")
    For i = 0 To 2
        Debug.Print RegExpExtract(CStr(arr(i)), "_(\S+)C")
    Next
End Sub

Public Function RegExpExtract(Text As String, Pattern As String, Optional Item As Integer = 1) As String
    On Error GoTo ErrHandl
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = Pattern
    regex.Global = True
    If regex.test(Text) Then
        Set matches = regex.Execute(Text)
        RegExpExtract = matches.Item(Item - 1)
        Exit Function
    End If
ErrHandl:
    RegExpExtract = CVErr(xlErrValue)
End Function

[/vba]

Ответить

Nic70y

Дата: Пятница, 03.05.2024, 13:40 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9001

Репутация: 2367 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub test()
    arr = Array("RawData_LN14838_40C.csv", "RawData_LN14838_60.5C.csv", "RawData_LN14838_20C.csv")
    For i = 0 To 2
        Debug.Print RegExpExtract(arr(i))
    Next
End Sub
Function RegExpExtract(u)
    a = InStrRev(u, "C")
    b = InStrRev(u, "_")
    RegExpExtract = Mid(u, b + 1, a - b - 1)
End Function

[/vba]

ЮMoney 41001841029809

Ответить

i691198

Дата: Пятница, 03.05.2024, 21:25 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 337

Репутация: 108 ±

Замечаний: 0% ±

irabel, Добрый вечер. А зачем макросы, да ещё и с регуляркой, это можно сделать и обычными формулами.

Код

=ПОДСТАВИТЬ(ПРАВСИМВ(A1;ДЛСТР(A1)-16);"C.csv";"")

, или

Код

=СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"_";ПОВТОР(" ";100));"C.csv";"");100))

, или
=ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"_";"</s><s>");"C.csv";"")&"</s></t>";"//s[last()]")

Сообщение отредактировал i691198 - Пятница, 03.05.2024, 21:26

Ответить

Kuzmich

Дата: Суббота, 04.05.2024, 14:45 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

Цитата

Нужно извлечь число, между двумя разными символами "_" и "С"

UDF
[vba]

Код

Function iChislo(cell$)
With CreateObject("VBScript.RegExp")
     .Global = True
     .MultiLine = True
     .Pattern = "\d_(.+)(?:C)"
   If .test(cell) Then
     iChislo = .Execute(cell)(0).SubMatches(0)
   Else
     iChislo = ""
   End If
End With
End Function

[/vba]

Ответить

i691198

Дата: Воскресенье, 05.05.2024, 11:33 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 337

Репутация: 108 ±

Замечаний: 0% ±

Ешё можно сделать так, использовать паттерн [vba]

Код

.Pattern = "[^\_]+$"

[/vba] он извлечет текст после последнего подчеркивания. А потом какой то текстовой функцией, например Replase, обрезать символы "C.csv".

Ответить

jun

Дата: Воскресенье, 05.05.2024, 12:21 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 145

Репутация: 43 ±

Замечаний: 0% ±

Можно в регулярных выражениях использовать захватывающие группы в круглых скобках, например так:
[vba]

Код

Private Function execute_numbers(what As Range, pattern As String) As Double
With CreateObject("Vbscript.Regexp")
    .Global = False: .MultiLine = False: .Ignorecase = False: .pattern = pattern
    If .test(what) Then execute_numbers = CDbl(Replace(.Execute(what).Item(0).submatches.Item(0), ".", ",")): Exit Function
End With
execute_numbers = -1
End Function
Sub test()
Dim i As Range
For Each i In [A1:A3]
    i.Offset(0, 1) = execute_numbers(i, "\_([0-9.]+)[CС]")
Next i
End Sub

[/vba]
паттерн:
[vba]

Код

"\_([0-9.]+)[CС]"

[/vba]