Удалить из строки повторяющиеся символы

[shams]

как удалить из строки повторяющиеся символы?


например для строки AAABBBCC ФУНКЦИЯ ДОЛЖНА ВЕРНУТЬ  ABC

[antoneus]

Повторяющиеся на соседних позициях или вообще должна возвращаться строка уникальных символов?

[shams]

antoneus, Повторяющиеся на соседних позициях

[Kvark5d]

shams,

Код Выделить Развернуть

Функция УбратьПовторяющиесяПоследовательноСимволы(Текст)
НоваяСтрока="";
ПровСимвол="";
Для а=1 По СтрДлина(Текст) Цикл
ТекСимвол = Сред(Текст,а,1);
Если ТекСимвол <> ПровСимвол Тогда
НоваяСтрока=НоваяСтрока+ТекСимвол;
ПровСимвол=ТекСимвол;
КонецЕсли;
КонецЦикла;
Возврат НоваяСтрока;
КонецФункции

[shams]

Kvark5d, не работает

[Kvark5d]

shams, что именно не работает?

[shams]

Kvark5d, Недостаточно фактических параметров (УбратьПовторяющиесяПоследовательноСимволы)
НоваяСтрока = <<?>>УбратьПовторяющиесяПоследовательноСимволы(); (Проверка: Тонкий клиент)

[Kvark5d]

shams, система четко пишет - недостаточно параметров. Ну видно же, что в функцию надо передать исходный текст.
Пример:

Код Выделить Развернуть

НоваяСтрока = УбратьПовторяющиесяПоследовательноСимволы(СтрокаКоторуюНужноИзменить)

[LexaK]

Kvark5d, сейчас напишет, 
Опять ни чего не работает! Ошибка: Не определена переменная СтрокаКоторуюНужноИзменить!!!