Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как достать из текста фрагмент с цифрами
 
#1
13.03.2018 17:51:55
Подскажите пожалуйста как вытянуть внутри символов цифры. Вот пример
чвспававтрать/353636363636?прпарапрарар
Должно остаться 353636363636 или хотя бы /353636363636?  

Спасибо  
Изменено: Igor89 - 13.03.2018 18:25:40
 
 
 
#2
13.03.2018 17:54:03
Длина текста до числа одинакова? Длина числа одинакова?
Разделитель перед числом? Разделитель после числа?

Нужно показывать не одно значение, а несколько разных вариантов.
Прикрепите файл-пример к первому сообщению.
 
 
 
#3
13.03.2018 18:14:41
Код
=ПСТР(A1;ПОИСК("/";A1)+1;ПОИСК("~?";A1)-ПОИСК("/";A1)-1)
 
 
 
#4
13.03.2018 18:18:02
Я решил проблему с помощью
1. Выделить диапазон ячеек для замены
2. Ctrl+H. Найти - "*/", заменить на (оставить поле пустым)
3. Ctrl+H. Найти - "~?*", заменить на (оставить поле пустым)
 
 
 
#5
13.03.2018 18:22:52
Цитата
Igor89 написал: решил проблему
Как говорят - дешево и сердито, похвально!
ps Но надо всегда помнить - есть на форуме Поиск, "Приемы", "Копилка", "PLEX" и пр.пр. - арсенал внушительный, бери - пользуйся... ;)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#6
13.03.2018 18:26:17
Цитата
Должно остаться 353636363636
UDF
Код
Function iChislo(cell$) As String
 With CreateObject("VBScript.RegExp")
     .Global = True
     .IgnoreCase = True
     .Pattern = "\d+(?=\?)"
     iChislo = .Execute(cell)(0)
 End With
End Function
 
 
 
#7
13.03.2018 18:27:13
Расскажите пожалуйста, куда этот код вставлять.
 
 
 
#8
13.03.2018 18:30:12
Цитата
куда этот код вставлять.
В стандартный модуль
 
 
 
#9
13.03.2018 18:33:22
=СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(A1;ПОИСК("~?";A1)-1);"/";ПОВТОР(" ";50));50))
 
 
 
#10
13.03.2018 19:31:05
Igor89,еще вариант функции (UDF)в D1,доступ к тексту функции,как вариант( Вид-Макросы-Изменить)
Код
 Function Myfunction(text$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\D+": .Global = True
    Myfunction = .Replace(text, "")
 End With
End Function
Изменено: кузя1972 - 13.03.2018 19:31:34
 
 
 
#11
02.04.2018 22:41:04
Спасибо большое
 
 
 
#12
03.04.2018 02:55:23
Сократим шаблон:
Код
.Pattern = "\D"
 
 
 
Страницы: 1
Наверх