Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вычленение нужного из большого текста, нет единого формата
 
#1
07.04.2021 08:55:53
Добрый день!
Подскажите, пожалуйста, можно ли легко вычленить размер, если он не имеет единого формата, может находится и в середине и в конце текста, и иметь разное количество знаков? Спасибо!
Плитка Winter Vine,   белый, 29x89 (PS901 WHITE SATIN 29X89 G1)
Керамогранит Миллениум Сильвер 60х60
Керамогранит SG507100R Монте Тиберио   60*119,5
Керамогранит CRE03A21M CRETO Техно серый   матовый 30х30
Керамогранит Marmori K945331LPR01VTE0   Калакатта Белый ЛПР 60x60
Плитка Lazzaro Pearl W M 30x90 R Glossy 1
Керамогранит Kronewald темно-бежевый   19,8х119,8
 
 
 
#2
07.04.2021 09:11:28
Роза Степанова,

https://www.planetaexcel.ru/techniques/7/4844/

Изменено: Mershik - 07.04.2021 09:11:34
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
07.04.2021 09:26:29
Спасибо! Интересно, но для меня сложно, не пойму какие знаки использовать в моем случае.
 
 
 
#4
07.04.2021 09:27:47
Роза Степанова, я не знаю) в браузере это проверить не получится, нужно создать файл-пример там отразить данные и уже делать регулярки...
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#5
07.04.2021 09:32:26
Пример, вложила, нужно вычленить размеры: 60*60, 119,5х119,5 и т.д.
 
 
 
#6
07.04.2021 09:34:48
Цитата
Роза Степанова написал:
какие знаки использовать
\d+,?\d+[*хx]\d+,?\d+
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#7
07.04.2021 09:57:46
Цитата
Роза Степанова написал:
Пример, вложила,
дык
Код
Function razmer$(t$)
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d+[,\.]?\d+[*хx]\d+[,\.]?\d+"
        razmer = .Execute(t)(0)
    End With
End Function
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#8
07.04.2021 10:25:06
Круто! Спасибо!
 
 
 
#9
07.04.2021 15:24:56
Добрый день !
Есть похожая задача - извлечение артикула из наименования товара
 
 
 
#10
07.04.2021 17:17:30
Код
Function Art$(s$)
  Dim re
  Set re = CreateObject("VBScript.RegExp"): re.Pattern = "[.0-9A-Z-]{5,16}(?=\))"
  If re.test(s) Then
    Art = re.Execute(s)(0)
  Else
    re.Pattern = "[.0-9A-Z-]{5,16}": If re.test(s) Then Art = re.Execute(s)(0)
  End If
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#11
08.04.2021 09:05:17
Большое спасибо ! Прям вау
 
 
 
#12
08.04.2021 09:12:25
там в одном артикуле шаблон букву М не захватил, потому что артикул скорее всего написан с ошибкой - в нем М написано кириллицей
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
Страницы: 1
Наверх