ART_43 Home Site

Процедура СтрРазделитьПоПоследнемуВхождениюСимвола(Знач Стр,Знач Симв,Стр1,Стр2) Экспорт 
    Если Найти(Стр, Симв)>0 Тогда 
        Стр2 = Стр;
        Стр1 = "";
        Пока Найти(Стр2, Симв)>0 Цикл
            Поз = Найти(Стр2, Симв);
            Стр1 = Стр1 + Сред(Стр2,1,Поз);
            Стр2 = Сред(Стр2,Поз+1);
        КонецЦикла;
    Иначе 
        Стр1 = Стр;
        Стр2 = "";
    КонецЕсли;
КонецПроцедуры