Страницы: 1
RSS
Обрезать строку после второго символа косой черты, работа со строками, поиск символа
 
Добрый день, форумчане!
У меня в колонке F
есть строки
/sw/sv
/acs/msai
Нужна формула которая будет возвращать
/sw
/acs
Пробовал
Код
=MID(F2288;2;SEARCH("/";F2288)-1)
но не работает, мне надо посчитать получивщуюся строке через LEN
Код
=MID(F2288;2;LEN(SEARCH("/";F2288)-1)) 
но тоже не работает. Возврачает (а), а мне надо /acs

Помогите, пожалуйста.
 
Формулой на листе:
=ЛЕВБ(A1;ПОИСК("/";ПСТР(A1;2;9)))
Кодом VBA:
Код
"/" & Split("/sw/sv","/")(1)
 
Код
=ПСТР(F2288;1;ПОИСК("/";F2288;2)-1)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Спасибо, напомнил, я совсем забыл о параметре )
 
Ігор Гончаренко, я знаю эту формулу, но она почему то не работает ((
 
А если длинна строки всегда разная?
Код
=ЛЕВБ(A1;ПОИСК("/";ПСТР(A1;2;9)))
 
Тут не работает. И это есественно. Ни одна формла не сработает в тексте сообщения.
Вас не учили файл-пример показывать?
 
на каких данных?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Хм.. и почему неа..
 
Издеваетесь?!
Где применили формулы, предложенные в теме?
 
см.вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
вариант функций
 
Код
Function bbb$(t$)
  bbb = StrReverse(Split(StrReverse(t), "/", 2)(1))
End Function
 
Function aaa$(t$)
    Dim t1$
   With CreateObject("VBScript.RegExp"): .Pattern = "[^/]+": .Global = True
     t1 = "/" & .Execute(t)(.Execute(t).Count - 1): aaa = Replace(t, t1, "")
  End With
 End Function
Изменено: кузя1972 - 15.04.2018 17:12:16
 
Надо себе заказать пользовательскую функцию какую-нибудь =CUT(ячейка;символ)
Спасибо вам ребята!
Страницы: 1
Наверх