[maximus]

"Бухгалтерия для Украины", редакция 1.2 (1.2.12.2)

Необходимо просуммировать строку табличной части документа, но в строке имеются и цифры и символы. Подскажите как правильно можно вычислить сумму?

[logist]

По типу "Число"

[maximus]

Забыл уточнить, в строке все значения строкового типа, например - 1 2 3 А Б 4 5 Г

Я перевожу их в Число(), но как быть там где уже буквы?

[logist]

Я вообще не могу понять суть задачи. Ну выберите со строки только цифры, и просуммируйте их. В чем проблема? Или в чем задача...

[maximus]

а нужно получить :

1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | Сумма

3 5 1 5 8 А К Н У = 22

[Vofka]

Это вопрос уже к вам: как вы собираетесь суммировать буквы? 1 + Ъ сколько равно?

[maximus]

а нужно получить :

1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | Сумма

3 5 1 5 8 А К Н У = 22

Во всех колонках табличной части данные строкового типа

[Vofka]

Перебирайте символы строки и пропускайте символы, которые нельзя привести к числу.

[maximus]

Это вопрос уже к вам: как вы собираетесь суммировать буквы? 1 + Ъ сколько равно?

В этом и вопрос, как мне исключить эти буквы?

пропускайте символы, которые нельзя привести к числу

Не совсем понимаю, как это сделать? Именно как впоймать ошибку при приведении типов?

[Vofka]

Именно как впоймать ошибку при приведении типов?

Попытка
   Цифра = Число(СтроковыйСимвол); 
   Сообщить("Цифра");
Исключение
   Сообщить("Буква");
КонецПопытки;

[Petre]

Числа - это десять символов от "0" до "9". Проверить вхождение и преобразовать.

[Vofka]

Можно по другому ещё: загоняете в какую-то коллекцию все цифры от 0 до 9 и порверяете вхождение туда каждого символа.

Добавлено: это к моему посту выше.

Сообщение отредактировал Vofka - 13.03.13, 14:55

[Petre]

Зачем?

Если Найти("0123456789", ТекСимвол) Тогда
    ТекСумма = ТекСумма + Число(ТекСимвол);
КонецЕсли;

[zay]

Функция Расчет( СтрокаСимволов )
    
    ДлинаСтроки = СтрДлина( СтрокаСимволов );
    
    СуммаЧисловыхСимволов = 0;
    
    Для НомСимвола = 1 по ДлинаСтроки Цикл
        
        Код_Символа = КодСимвола(СтрокаСимволов, НомСимвола);
        
        Если (Код_Символа >= 48) И (Код_Символа <= 57) Тогда
            
            Символ = Сред(СтрокаСимволов, НомСимвола, 1);
            
            СуммаЧисловыхСимволов = СуммаЧисловыхСимволов + Число( Символ );
            
        КонецЕсли;
        
    КонецЦикла;
    
    Возврат СуммаЧисловыхСимволов;
    
КонецФункции

[ignsv]

ОбщегоНазначения.ПреобразоватьВЧисло(Значение)

з.ы. а все ответ снимается.. только сейчас понял, что вы хотите сделать ))

Сообщение отредактировал ignsv - 13.03.13, 15:01

[maximus]

Всем спаибо за помощь в данном вопросе, реализовал через:

Попытка
   Цифра = Число(СтроковыйСимвол); 
   Сообщить("Цифра");
Исключение
   Сообщить("Буква");
КонецПопытки;