Модули для действий\Текст\Итого по строкам
Функция Выполнить()
// получаем сумму всех чисел в строках в тексте
Модуль = Этот.Владелец;
Параметр = Модуль.Параметр;
Если (Параметр=0) Тогда
Сообщить("Параметр не задан");
Возврат 0;
Конец;
Если (Параметр.Тип()<>Объекты.Текст) Тогда
Сообщить("Параметр не текст");
Возврат 0;
Конец;
Параметр.Обновить();
Текст = Параметр.Текст;
Итого = 0;
Для Стр Из Текст Цикл
Итого = Итого + Числа.Число(Стр);
Конец;
Стр2 = "Итого по строкам = "+Строки.Строка(Итого);
Сообщить(Стр2);
Уведомить(Стр2);
Конец