По теме из базы знаний
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Об.:103672.92 Ком.:1399.68 за 13/12/18....
здесь он показал правильно
дальше пошел код:
МассивСлов = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(СтрокаСекции.НазначениеПлатежа, " ", истина);
ТипЧисло = Новый ОписаниеТипов("Число");
Комиссия = 0;
Для Индекс = 0 По МассивСлов.ВГраница() Цикл
Слово = МассивСлов[Индекс];
и сообщить слово он выводит Об.:103672.92;Ком.:1399.68 ну и дальше пошло разделение по пробелу в массив, а вот в месте разделения точки с запятой должен был по идеи встать пробел и по этому пробелу пройти разделения и в итоге строка должна получится вида Ком.:1399.68, с которой я потом работаю.
здесь он показал правильно
дальше пошел код:
МассивСлов = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(СтрокаСекции.НазначениеПлатежа, " ", истина);
ТипЧисло = Новый ОписаниеТипов("Число");
Комиссия = 0;
Для Индекс = 0 По МассивСлов.ВГраница() Цикл
Слово = МассивСлов[Индекс];
и сообщить слово он выводит Об.:103672.92;Ком.:1399.68 ну и дальше пошло разделение по пробелу в массив, а вот в месте разделения точки с запятой должен был по идеи встать пробел и по этому пробелу пройти разделения и в итоге строка должна получится вида Ком.:1399.68, с которой я потом работаю.
(14) для уточнения. Если платформа позволяет, то использовать СтрРазделить. Он поддерживает множественные разделители. Т.е. при указании в качестве разделителей строку "; " будет разделение и по ";" и по пробелу.
(15) тоже самое, только строка разделителей ";,: "
(15) тоже самое, только строка разделителей ";,: "
Массив = СтрРазделить(СтрокаСекции.НазначениеПлатежа, ";,: ", Ложь);
А можно как-то заменить сразу три символа в строке? (Об.:103672.92;Ком.:1399.68) Здесь нужно заменить ; . :
Результат = СтрЗаменить(СтрокаСекции.НазначениеПлатежа, ";", " ");
МассивСлов = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Результат, " ", истина);
ТипЧисло = Новый ОписаниеТипов("Число");
Комиссия = 0;
Для Индекс = 0 По МассивСлов.ВГраница() Цикл
Слово = СтрЗаменить(МассивСлов[Индекс], ".", " ");
Сообщить(Слово);
Если НРег(Слово) = "ком" или НРег(Слово) = "комиссия" или ВРег(Слово) = "Ком" Тогда
комиссия = 0 + ТипЧисло.ПривестиЗначение(СтрЗаменить(МассивСлов[Индекс+1],",",""));
УстановитьСвойство(ОбъектДляЗаписи, Строка("_СуммаУслуги"), Комиссия);
Прервать;
КонецЕсли;
КонецЦикла;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот