Форум Программирование Общие вопросы программирования (Dev)

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

Платформа 1С v8.3
1. 23 29.08.15 19:45 Сейчас в теме
Добрый вечер!

Помогите придумать вариант обработки строки вида: ****Табуретка
Нужно убрать символы "****" из начала строки, количество этих символов может быть разным.
+ – Ответить
Ответы
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
2. Cooler 22 29.08.15 19:51 Сейчас в теме
(1) a.rezyhin, это сложнейшая задача...

Разве что код вроде этого поможет: 
Пока Лев(СтрокаТабуретки,1)="*" Цикл
   СтрокаТабуретки=Сред(СтрокаТабуретки,2);
КонецЦикла;
+ – Ответить
3. a.rezyhin 23 29.08.15 20:12 Сейчас в теме
(2) Cooler, спасибо!
+ – Ответить
4. unoDosTres 31.08.15 09:36 Сейчас в теме
вообще проще модно в одну строку как мне кажется, если условия именно такие как указал ТС 

стрзаменить("ВашаСтрока","*","")
+ – Ответить
5. Cooler 22 31.08.15 10:17 Сейчас в теме
(4) unoDosTres,
если условия именно такие
Среди условий есть "из начала строки", как с этим быть? Да, ваш метод проще, но не соответствует этому условию: если "*" встретятся где-то еще в строке, то будут удалены и там, а не только в начале.
+ – Ответить
6. unoDosTres 31.08.15 12:02 Сейчас в теме
(5) Cooler, да вы правы, но что-то мне подсказывает, что символа * в середине не встретится, а так да у меня действительно удалит везде да еще и сдвинет окружающие звездочку символы друг к другу
+ – Ответить
7. Cooler 22 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);
КонецЕсли;
+ – Ответить
Оставьте свое сообщение
Вопросы с вознаграждением
oData: получить проводки Результат проведения документа - Бухгалтерский и налоговоый учет  1 $m Обмен БП2.0
Путевые листы в БП 3.0  0.5 $m TMS БП3.0
Тонкая настройка СКД (добавление строки)  1.49 $m Dev
Проблема с отчётом в СКД  0.8 $m Dev УТ11 v8 ИТ-компания 1С
Доработать запрос отчета в СКД для регистра сведений Цены Номенклатуры  0.5 $m Dev
Проблема с универсальным отчетом  1 $m Dev
Как выгрузить список новых созданных контрагентов (создаются программно)  1 $m Dev
Синхронизация УТ 11.4 и БП 3.0, справочник Виды номенклатуры  0.09 $m Обмен БП3.0 УТ11
Курсовые разницы в РБ по 159 указу  2 $m БУ 1cv8.cf БП1.6 Беларусь 1С БУ Бухгалтер Программист Вопрос
Обновление адресного классификатора  0.1 $m Зарплата БП3.0 ЗУП3.x
Доступ в 1С по web-сервису. Внутренний и внешний сервера.  0.44 $m Admin v8
Не отображается общая параметризуемая команда в списке глобальных команд на форме элемента  0.1 $m Dev
Проблема при возврате по безналу бп 3.0  1 $m БУ
Нужна помощь в доработке обработки СБИС  5 $m Dev УТ10
Не указано значение параметра "Тип кода маркировки"  0.15 $m Dev УТ11 Маркировка
Резервы отпусков разница БУ и НУ  1 $m Зарплата ЗУП3.x
Не удалось заблокировать таблицу _NODE15215  0.5 $m Dev ДО УТ11
УТ 10.3. Маркировка. ОСНО + ПСН  3 $m Торговля УТ10 Розничная и сетевая торговля (FMCG) НДС ПСН (патентная система налогообложения) Вопрос
Проверка при обмене  0.16 $m Dev
Не переносится номенклатура в 1с Бухгалтерию  1 $m Торговля Розница