"Бухгалтерия для Украины", редакция 1.2 (1.2.12.2)
Необходимо просуммировать строку табличной части документа, но в строке имеются и цифры и символы. Подскажите как правильно можно вычислить сумму?
Попытка
Цифра = Число(СтроковыйСимвол);
Сообщить("Цифра");
Исключение
Сообщить("Буква");
КонецПопытки;
Если Найти("0123456789", ТекСимвол) Тогда
ТекСумма = ТекСумма + Число(ТекСимвол);
КонецЕсли;
Функция Расчет( СтрокаСимволов )
ДлинаСтроки = СтрДлина( СтрокаСимволов );
СуммаЧисловыхСимволов = 0;
Для НомСимвола = 1 по ДлинаСтроки Цикл
Код_Символа = КодСимвола(СтрокаСимволов, НомСимвола);
Если (Код_Символа >= 48) И (Код_Символа <= 57) Тогда
Символ = Сред(СтрокаСимволов, НомСимвола, 1);
СуммаЧисловыхСимволов = СуммаЧисловыхСимволов + Число( Символ );
КонецЕсли;
КонецЦикла;
Возврат СуммаЧисловыхСимволов;
КонецФункции
ОбщегоНазначения.ПреобразоватьВЧисло(Значение)
Попытка
Цифра = Число(СтроковыйСимвол);
Сообщить("Цифра");
Исключение
Сообщить("Буква");
КонецПопытки;