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

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

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

Ответы

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

2. Cooler 21 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 21 31.08.15 10:17 Сейчас в теме

(4) unoDosTres,

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

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

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

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

7. Cooler 21 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:

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

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

1С Заказы Превышено время ожидания (14) 1 $m Dev v8::Mobile Мобильные приложения	14	сегодня, 15:34 Flatcher
1с веб-сервер зависает на одном пк (только у одного провайдера или из-за настройке в роутере) (3) 0.2 $m Admin	3	вчера, 22:20 andrey7617
Нужен пример функции на языке 1с, с помощью которой будут писаться сообщения в определенный чат в Битриксе24. (6) 1 $m Обмен Интерфейсы	6	23.03.19 zabaluev
Помогите советом. Не понятно что происходит (22) 0.5 $m Admin	22	22.03.19 German_Tagil
Вывод картинки в макет с реальным размером (10) 0.3 $m Dev ERP2 v8::УФ	10	21.03.19 user824140
Администрирование прав 1С:Документооборот (7) 0.2 $m Admin 1cv8.cf ДО	7	21.03.19 user1074775
Отчет себестоимость выпущенной продукции колонка прямые расходы не заполнена (3) 1.1 $m БУ	3	20.03.19 Raskad

Вакансии

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

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

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

Программист 1С
Нижний Новгород
зарплата до 120 000 руб.
Полный день

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