Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
текст между знаком "\" и первым пробелом после этого знака
 
#1
02.11.2018 12:45:43
Добрый день уважаемые форумчане
Прошу помочь в решении задачи
Необходимо как указано в теме вывести в ячейку все что написано между знаком "\" и первым пробелом после этого знака
Заранее спасибо!
Уточнение
Знак "\" может находиться в любом месте по счету
13.04.2018  10:22           182я784 MOSCOW\luslav       Prequalification_Questionnarie_EN_v2.1.doc
 
 
 
#2
02.11.2018 12:49:19
Цитата
Luslav написал:
Уточнение
Нужен файл в формате Эксель строк на 10, с разными вариантами исходных данных.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#3
02.11.2018 12:50:55
СЖПРОБЕЛЫ(левсимв(подставить(пстр(текст;поиск("\";текст)+1;100);" ";повтор(" ";50));50))
Лень двигатель прогресса, доказано!!!
 
 
 
#4
02.11.2018 13:01:19
Формула подошла на все варианты, спасибо огромное!
Теперь буду разбираться как Вы это сделали!
 
 
 
#5
02.11.2018 14:12:31
ещё варианты UDF в C1 или UDF aaa
Код
Function aaa$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\\(.+?)\s"
  aaa = .Execute(t)(0).Submatches(0)
 End With
End Function
Код
Function bbb$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\\(\S+)?"
  bbb = Mid(.Execute(t)(0), 2)
 End With
End Function
Изменено: кузя1972 - 02.11.2018 20:54:05
 
 
 
#6
02.11.2018 15:40:58
PLEX -> Функция TextMid
 
 
 
#7
02.11.2018 20:56:05
ещё вариант формулы в E1 и функции vvv
Код
Function vvv$(t$)
  vvv = Split(Split(t, "\")(1))(0)
End Function
Код
=СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ($A1;"\";ПОВТОР(" ";99));99));" ";ПОВТОР(" ";50));50))
Изменено: кузя1972 - 02.11.2018 22:03:16
 
 
 
#8
03.11.2018 14:35:49
ещё два варианта UDF
Код
Function ccc&(t$)
  With CreateObject("VBScript.RegExp"): .Pattern = "Маржа: (\d+)(?=\.)"
       ccc = .Execute(t)(0).Submatches(0)
  End With
End Function
 
Код
Function bbb&(t$)
  With CreateObject("VBScript.RegExp"): .Pattern = "Маржа: \d+(?=\.)"
       bbb = Mid(.Execute(t)(0),8) 
  End With
End Function
Изменено: кузя1972 - 03.11.2018 14:45:49
 
 
 
Страницы: 1
Наверх