Сумматор

21.11.07

Разработка - Универсальные функции

Пример операций со значениями из буфера обмена.

Скачать файлы

Наименование Файл Версия Размер
Сумматор
.1195553903 12,00Kb
121
.1195553903 12,00Kb 121 Скачать

Вместо статьи:
Простой пример обработки для выполнения арифметических действий, использования различных функций с числовыми значениями и формулами из ячеек таблиц, текстовых файлов и т.п. через буфер обмена. Расширение возможностей [M] [M+] [M-].

  1. Выделяем нужные ячейки с числовыми значениями в печатных формах, значения в текстовых файлах и.т.п.
  2. Жмем Ctrl - C или щелчок правой клавиши "мыши" и <Запомнить>
  3. Открываем данную обработку
  4. Жмем Alt - С или [F5]

Отображается сумма по выбранным значениям и результат вычисления иных функции (максимум, минимум, среднее арифметическое).

Обработка открыта для дополнения необходимыми Вам функциями !

Дополнительно можно использовать для суммирования значений разделенных ";" и " " из текстового файла. Также осуществляется расчет текстовых формул из буфера вида "12+165/3" - [F9]

//далее читаем как статью ... модуль дополняем необходимыми функциями
Перем Сум,Итог,Миним,Максим,Среднее,Колво;
Процедура Вычислить(Как)
    HTM=СоздатьОбъект("htmlfile");
    //глянем в буфер обмена - Clipboard
    Текст=СокрЛП(HTM.ParentWindow.ClipboardData.GetData("text"));
    Если ПустаяСтрока(Текст)=1 Тогда
        Предупреждение("Буфер обмена пуст !",3);Возврат;
    КонецЕсли;      
    //расчет по формуле
    Если Как>0 Тогда
        Сум=Шаблон("["+Текст+"]");Возврат;
    КонецЕсли;
    Р=РазделительСтрок;
    Текст=СтрЗаменить(Текст,СимволТабуляции,Р)+Р;//гориз.ячейки
    Текст=СтрЗаменить(Текст,"'","");//убираем триады
    Текст=СтрЗаменить(Текст,";",Р); //разделитель в тексте ";"
    Текст=СтрЗаменить(Текст," ",Р); //разделитель в тексте " "
    Кол=СтрКоличествоСтрок(Текст);//количество значений
    Сум=0;//сумма значений
    Колво=0;//реальное количество значений
    Для i=1 По Кол Цикл
        тЗ=СтрПолучитьСтроку(Текст,i);
        Если ПустаяСтрока(тЗ)=0 Тогда
            КолВо=Колво+1;	
            Зн=Число(тЗ);//получаем числовое значение
            Сум=Сум+Зн;
            Миним =?(i=1,Зн,Мин (Зн,Миним ));
            Максим=?(i=1,Зн,Макс(Зн,Максим));
            //...здесь может быть представлена ваша арифм.функция...среднеквадратичная дисперсия например
        КонецЕсли;
    КонецЦикла;
    Среднее=Сум/Колво;
    Итог=Итог+Сум;//дополняем итог
КонецПроцедуры;

См. также

Библиотека процедур и функций для технологической платформы "1С: Предприятие 7.7"

Универсальные функции Платформа 1С v7.7 Россия Абонемент ($m)

В библиотеку собраны различные функции по работе с документами, журналами, типами данных, строками, датой и временем, таблицами значений, Excel, файлами, XML, JSON, Http-сервисами, SMTP серверами и т.п.

1 стартмани

22.12.2023    656    9    user706545_kseg1971    0    

4

1С 7.7 и новый 1С:Контрагент

Универсальные функции Платформа 1С v7.7 Конфигурации 1cv7 Россия Бесплатно (free)

Получение реквизитов контрагентов из 1С:Контрагент для старых конфигураций под 1с 7.7.

25.04.2022    1814    zhenyat    7    

6

Печать таблицы значений в 1С 7.7 при отладке

Универсальные функции Платформа 1С v7.7 Россия Бесплатно (free)

Функция выводит таблицу значений в табличный документ. (v7.7) Особенно полезно при отладке. Не нужно вносить изменения в код, вызываем функцию как вычисляемое выражение при останове. Если таблица обрабатывается в несколько этапов, можно вывести её после каждого и визуально проследить эволюцию.

30.06.2021    4398    Zoltan_Black    11    

2

Установка принтера по умолчанию для 1С 7.7

Универсальные функции Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Установка принтера по умолчанию в 1С 7.7. Обработка может быть полезна в том случае, когда нужно установить принтер по умолчанию, а доступа к рабочему столу нет (например, терминальный режим без рабочего стола или remoteApp)

1 стартмани

13.02.2019    13284    4    alsen    3    

4

Формирование строки json в 1С: 7.7

Универсальные функции Платформа 1С v7.7 Конфигурации 1cv7 1С:Комплексная 7.7 Абонемент ($m)

Предлагается набор функций 1с 7.7 для формирования строки json стандартными средствами.

1 стартмани

10.12.2018    10092    malovandrey    1    

18

Как создать индикатор в 1С:Предприятии 7.7

Универсальные функции Работа с интерфейсом Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

В статье дано описание создания индикатора на форме в среде разработки 1С:Предприятие 7.7 исключительно типовыми средствами.

1 стартмани

27.09.2016    18672    2    HAMMER_59    6    

2
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. CheBurator 3119 20.11.07 21:58 Сейчас в теме
Сорри, что немного не потеме - а как можно отловить какая область выделена в печатной форме?
5. JohnyDeath 301 21.11.07 12:46 Сейчас в теме
(1) Че, а ты на TableDoc от Трапезникова Дмитрия (aka trad) посмотри: там много чего интересного есть, в том числе и метод "ПолучитьВыделение" http://www.1cpp.ru/forum/YaBB.pl?num=1177688915
2. artbear 1448 21.11.07 08:00 Сейчас в теме
Прикольно :) +1
.
А что за объект "htmlfile"?

Код
HTM=СоздатьОбъект("htmlfile");
Показать полностью

От ИЕ ? или еще что?
.
ЗЫ такой маленький код можно было здесь показать :)
3. German 413 21.11.07 10:20 Сейчас в теме
а калькулятор для чего придумали ? как в 7.7 так и 8 он это умеет
4. Delon 529 21.11.07 12:39 Сейчас в теме
(3) Знамо дело, но мож кому надо мошные функции и формулы вычислять,
суммировать кучу значений из текста.
(2) Да. От IE. Пож-та-код выложу.
(1) Нет.
Оставьте свое сообщение