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

Платформа 1С v8.x (все механизмы)

1. a.rezyhin 22 29.08.15 19:45 Сейчас в теме

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

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

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

Ответы

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

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

(4) unoDosTres,

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

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

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

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

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

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

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

КС в РСВ (8) 0.05 $m Зарплата ЗУП3.x	8	вчера, 08:34 Verdad
Посоветуйте удобный тайм-трекер (4) 5 $m Личная эффективность	4	18.01.20 Armando
скрытые "лишние" поля таблицы в MS SQL и PG в документе которых нет в конфигураторе (7) 0.04 $m UpdateCF БП3.0 v8 Программист Вопрос Исследование	7	17.01.20 trupo
Как во ВПФ поменять формат даты у строки? (скриншоты) УТ10.3 (5) 0.3 $m Dev	5	16.01.20 Shecurok
MSScriptControl.ScriptControl не работает под другими терминальными пользователями (4) 1 $m Admin	4	16.01.20 doctorov_s
Автоматические скидки в чеках игнорируют ограничения по складам (КА 2.4, УТ 11.4) (5) 1 $m Учет	5	15.01.20 insurgut
Не удалось обновить рабочую группу предмета (3) 0.3 $m Dev	3	14.01.20 Dolg

Вакансии

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

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

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

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

Консультант 1С
Москва
зарплата от 100 000 руб. до 140 000 руб.
Временный (на проект)

Перенос данных КА 1.1 => ERP 2 (ЕРП) (обработка переноса документов, остатков и справочной информации из "1С:Комплексная автоматизация, ред. 1.1" в "1С:ERP Управление предприятием, ред 2")

Открыть