Версия для печати темы (https://pro1c.org.ua/index.php?s=62d948b7b8f3c224aa2bc77ac8ba103d&showtopic=31689)

Автор: Pavlik1c 06.09.16, 15:18

"Управление производственным предприятием для Украины", редакция 1.3
Разработка конфигурации: "ABBYY Ukraine", 2005-2016 (1.3.45.1) (http://1c.ua/v8/RegionalSolutions_UA_UPP.php)
Copyright © ООО "1C", 2005-2016
(http://www.1c.ru/)

Как найти последнее вхождение символа в строке? В моем случае это ","...



"ЗАМОВЛЕНІ ДОДАТКОВІ ПОСЛУГИ ЗА МЕЖАМИ ПАКЕТА:,3.9216,196.0784,200.0000" на выходе должно остаться "200"
"ЗАМОВЛЕНІ ДОДАТКОВІ ПОСЛУГИ ЗА МЕЖАМИ ПАКЕТА:,113.9216,14.0784,48.0000" на выходе должно остаться "48"

Автор: Mularik 06.09.16, 15:35

Pavlik1c @ Сегодня, 16:18 ,

    Разделитель = ",";
    Строки = СтрЗаменить("ЗАМОВЛЕНІ ДОДАТКОВІ ПОСЛУГИ ЗА МЕЖАМИ ПАКЕТА:,3.9216,196.0784,200.0000", Разделитель, Символы.ПС);
    Результат = СтрПолучитьСтроку(Строки, 4);
    ДлСтр = СтрДлина(Результат);
    Сообщить(Лев(Результат,ДлСтр-5));

Автор: Pavlik1c 06.09.16, 15:43

Mularik @ Сегодня, 16:35 ,


После "ЗАМОВЛЕНІ ДОДАТКОВІ ПОСЛУГИ ЗА МЕЖАМИ ПАКЕТА:," могут быть разные значения...

Автор: logist 06.09.16, 15:48

Курите функцию СтрНайти, там есть направление поиска СКонца

Автор: Vofka 06.09.16, 16:06

Во всех типовых есть функция ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок. В вашем случае использовать так:

Массив = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(Строка);
Значение = Массив[Массив.Количество() - 1];

Автор: Pavlik1c 06.09.16, 16:29

logist @ Сегодня, 16:48 ,
Пробую использовать Функцию СтрНайти() в модуле формы... ругается - Процедура или функция с указанным именем не определена (СтрНайти)

Автор: logist 06.09.16, 16:40

Подозреваю, что в режиме совместимости с 8.2 (у типовой УПП) ее нет.
В управляемом, без совместимости на платформе 8.3.6.2449 такая функция есть.

Тогда как предложил Vofka

Автор: Нонна 06.09.16, 16:51

Автор: sava1 06.09.16, 18:37

Функция РазложитьСтрокуВМассив(Строка,Разделитель)
    RegExp = Новый COMОбъект("VBScript.RegExp");
    RegExp.MultiLine = Истина;  // истина — текст многострочный, ложь — одна строка 
    RegExp.Global = Истина;   // истина — поиск по всей строке, ложь — до первого совпадения 
    RegExp.IgnoreCase = Ложь; // истина — игнорировать регистр строки при поиске 
    
    RegExp.Pattern = "[^\" + Разделитель + "]+";    
    Matches = RegExp.Execute (Строка);
    
    Массив = Новый Массив;
    
    Для Сч = 0 По Matches.Count - 1 Цикл
        Массив.Добавить(Matches.Item(Сч).Value);
    КонецЦикла;
        
    Возврат Массив;
КонецФункции

ВЫзов

Массив = РазложитьСтрокуВМассив(Строка,",");

Последнне значение в массиве - искомое

Автор: Mularik 06.09.16, 19:05

Это не важно. Главное - что бы не менялось положение относительно запятых и количество нулей после точки в последнем числе, т.е.:
"ЗАМОВЛЕНІ ДОДАТКОВІ ПОСЛУГИ ЗА МЕЖАМИ ПАКЕТА:,[Число_1],[Число_2.],[Число_3.0000]" - в таком виде будет работать с любыми числами

Автор: logist 06.09.16, 19:06

sava1, зачем? В УПП есть типовая функция

Mularik, зачем так сложно? Предложили уже идеальное решение.

Автор: sava1 06.09.16, 19:11

Для полного комплекта.
Кстати, в 3.6 есть функция СтрРазделить()

Автор: logist 06.09.16, 19:15

В 3.6 есть много новых полезных функций начинающихся с "Стр", но в режиме совместимости с 8.2 они не работают.