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

Добрый вечер!

Помогите придумать вариант обработки строки вида: ****Табуретка
Нужно убрать символы "****" из начала строки, количество этих символов может быть разным.

Ответы

Избранное Подписка

2. Cooler 20 29.08.15 19:51 Сейчас в теме

(1) a.rezyhin, это сложнейшая задача...

Разве что код вроде этого поможет:

Пока Лев(СтрокаТабуретки,1)="*" Цикл
   СтрокаТабуретки=Сред(СтрокаТабуретки,2);
КонецЦикла;

3. a.rezyhin 22 29.08.15 20:12 Сейчас в теме

(2) Cooler, спасибо!

4. unoDosTres 31.08.15 09:36 Сейчас в теме

вообще проще модно в одну строку как мне кажется, если условия именно такие как указал ТС

стрзаменить("ВашаСтрока","*","")

5. Cooler 20 31.08.15 10:17 Сейчас в теме

(4) unoDosTres,

если условия именно такие

Среди условий есть "из начала строки", как с этим быть? Да, ваш метод проще, но не соответствует этому условию: если "*" встретятся где-то еще в строке, то будут удалены и там, а не только в начале.

6. unoDosTres 31.08.15 12:02 Сейчас в теме

(5) Cooler, да вы правы, но что-то мне подсказывает, что символа * в середине не встретится, а так да у меня действительно удалит везде да еще и сдвинет окружающие звездочку символы друг к другу

7. Cooler 20 31.08.15 12:16 Сейчас в теме

(6) unoDosTres,

что-то мне подсказывает, что символа * в середине не встретится

А мне что-то совсем другое подсказывает, что вполне может встретиться, например: "****Табуретка 30*30 см ДСП"

8. БезПонтов 12.01.17 09:53 Сейчас в теме

Заменяем символ на то что не встречается 100% пример

Заменить="*";
Замена="П@Ц";
Дубляж="П@ЦП@Ц";
Текст=Объект.Текст;
Результат=СтрЗаменить(Текст,Заменить,Замена);
Пока СтрЧислоВхождений(Результат,Дубляж)>0 Цикл
Результат=СтрЗаменить(Результат,Дубляж,Замена);
КонецЦикла;
Результат=СтрЗаменить(Результат,Замена,Заменить);

9. БезПонтов 12.01.17 09:58 Сейчас в теме

Ну а оставшийся символ в начале строки убираем так:
Если Лев(Результат,1)=Заменить Тогда
Результат=Сред(Результат,2);
КонецЕсли;

Оставьте свое сообщение

E-mail:

Новые вопросы с вознаграждением

Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.

Дополнительный отпуск в табеле рабочего времени ЗУП 3.1 (3) 1 $m Зарплата	3	сегодня, 11:25 morrex
Создание правил конвертации (7) 10 $m Обмен КД	7	сегодня, 10:15 evgaid
веб интерфейс рмк ут 10.3 (17) 6 $m Dev УТ10 Веб	17	вчера, 11:56 thenroach
Запрос по авансам (6) 1 $m Dev	6	вчера, 09:24 maxster545
Вопрос по анализу начисленных налогов и взносов [ПФР] в ЗУП (8) 1 $m Зарплата ЗУП2.5	8	12.11.18 G.P.
Ввод начальных остатков при переходе с ТИС 9.2 на УТ 11.4.5 (9) 10 $m Торговля УТ11 1С7:ТиС	9	12.11.18 brize
Не закрывается период в бухгалтерии 3.0 (9) 1 $m БУ БП3.0 v8 v8::БУ	9	12.11.18 user731414

Вакансии

Программист 1С
Санкт-Петербург
зарплата от 130 000 руб. до 150 000 руб.
Полный день

Программист 1С
Санкт-Петербург
зарплата от 100 000 руб.
Полный день

Руководитель группы сервисов FRM на 1С
Москва
зарплата от 150 000 руб.
Полный день

Руководитель группы сервисов ЭДО, ЭЦП и криптографии
Москва
зарплата от 150 000 руб.
Полный день

Руководитель группы интеграций (1С)
Москва
зарплата от 150 000 руб.
Полный день