Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Сцепить первое и последнее значения текстовой строки
 
Здравствуйте, нужно из строки с цифрами
379-4334564, 585, 1026, 1064, 345678679780-2233
получить с помощью одной функции UDF, начало и конец через "-"
379-2233
Есть несколько функций, сделать из них одну
Код
Function Tire$(x$)
    Tire = Split(x, "-")(UBound(Split(x, "-")))
End Function
Function Zapyat$(x$)
    Zapyat = Split(x, ", ")(UBound(Split(x, ", ")))
End Function
Function Zaplatka$(x$)
    Zaplatka = Split(x, ", ")(LBound(Split(x, ", ")))
End Function
Function Perlat$(x$)
    Perlat = Split(x, "-")(LBound(Split(x, "-")))
End Function
 
С возможносью менять разделитель
Код
Function StartEnd(x As String, Optional Simb As String = "-") As String
Dim aSpl
    aSpl = Split(Replace(x, "-", ","), ",")
    StartEnd = Trim$(aSpl(0)) & Simb & Trim$(aSpl(UBound(aSpl)))
End Function
 
Спасибо огромное
Страницы: 1
Читают тему (гостей: 1)
Наверх