почему нет? - Соответсвие!
Стр = "тратата";
Соотв = Новый Соответствие;
Для ш = 1 По СтрДлина(Стр) Цикл
Ключ = Сред(Стр,ш,1);
Если Соотв.Получить(Ключ) = Неопределено Тогда
Соотв.Вставить(Ключ,1)
КонецЕсли;
КонецЦикла;
или
Стр = "тратата";
Соотв = Новый Соответствие;
Для ш = 1 По СтрДлина(Стр) Цикл
Ключ = Сред(Стр,ш,1);
Соотв.Вставить(Ключ)
КонецЦикла;
Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
ЗиУП