Группа: Пользователи
Сообщений: 498
Спасибо сказали: 5 раз
Рейтинг: 0
Всем привет! Вопрос темы не из сильно важных но все таки хотел тут получить инфу. по указанной теме Поэтому сразу же перейду к сути вопроса. И если возникнет вопрос для чего это нужно то скидываю код теста. И думаю будет понятно для чего и зачем.... без лишних объяснений. Для которых и нет времени. Конечно указанные строки кода нужно было укоротить и так скинуть, но не захотел возиться... поэтому скинул как пару дней назад накодил... на скорую руку. Так что не обессудьте.
&НаКлиенте Процедура ПриОткрытии(Отказ) //======================= ДатаСтарт=ТекущаяДата(); //----------------------- //ИмяПоцедуры(); //----------------------- ДатаФиниш=ТекущаяДата(); //======================= Промежуток=FxSub_РаботаCдатами.ПромежутокВремени(ДатаСтарт,ДатаФиниш,Истина,"Секунда,Милисекунда"); Сообщить("Время открытия в мили-секундах: "+Промежуток); КонецПроцедуры
И к сказанному добавлю то что зафиксировать момент до и после открытия формы нужно для замера времени в течении которой она открывается. Так как проблема в том что недавно заметил что форма при открытии тормозит из-за нескольких динамических списков в ней. Вот и сижу и устраняю эту проблему. А для ее устранения очень удобно было бы замерить время открытия формы. И в 21 веке не путем секундомера в руках ))))), а опять таки возможностями хваленной системы 1С ))))) ... Переложив задачу опять на саму машину. Вот собственно вся суть вопроса! Если кто даст инфу как можно это сделать .. Буду признателен!
Группа: Пользователи
Сообщений: 498
Спасибо сказали: 5 раз
Рейтинг: 0
Vidocq05 @ Сегодня, 12:56
,
Цитата(Vidocq05 @ 29.05.19, 12:56)
В 1С есть Замер производительности
Гуууу ... не знал ... честно говорю ... если бы знал то не тратил бы время ... Просто в 1С много чего нет. К чему уже давно привык ..... К тому, что постоянно приходиться самому добавлять то что не хватает. И тратить на это время. Если в этом было бы круче то, программист вообще забыл бы об общем модуле. И он был бы почти не нужен. А вместо этого много чего приходилось создавать в общем модуле. "Где уже просто места не хватает" .... Аж гигантский список общих модулей.... И без этого был бы караул. Так что настолько привык к тому, что постоянно нужно самому, что в данном случае и вовсе не копал по указанной теме в 1С есть такая возможность или нет. А просто решил опять сам .. Но оказывается есть такая возможность ... что удивляет ))))) выходит зря тратил пусть не большое но время. Но ладно... хрен с ним. Ладно! Понял! Спасибо!
ТекущаяУниверсальнаяДатаВМиллисекундах (CurrentUniversalDateInMilliseconds) Синтаксис: ТекущаяУниверсальнаяДатаВМиллисекундах() Возвращаемое значение: Тип: Число. Описание: Получает текущую универсальную дату в миллисекундах (в UTC, начиная с 01.01.0001 00:00:00). Доступность: Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение, мобильное приложение(клиент), мобильное приложение(сервер), интеграция.
Гууу... знание сила... не знание просто муки. Еще "javascript" применил ... изврат просто. Пусть не долго но возился ... тогда как оказывается, есть такая функция... выходит зря ... Теперь уже удаляю функцию из общего модуля.. она уже не нужна. И побольше бы таких функций в 1С ... И так до такой степени, что бы общий модуль и вовсе опустел. Когда вообще забуду о том, что общий модуль вообще есть.. А на данном этапе релиза системы 1С, об этом говорить не приходиться... и до этого пока еще очень далеко. И это не смотря на гигантское количество разных встроенных функций системы. Которыми она просто напичкана. В чем, признаюсь, конечно же нужно отдать должное разработчикам. Так что не смотря на это, мне все равно МАЛО )) ... На пример вот эта функция, отсутствие которой в системе опять вынудила открыть в графу "Общие модули" и вообще заглянуть туда ... для очередных изобретательств велосипедов.
Функция НомерПовтораСимвола(Текст,Символ,НомерПовтора) Экспорт КолРазделителя=СтрЧислоВхождений(Текст, Символ); ТекстДлина=СтрДлина(Текст); Count = 0; CountSymb = 0; SymbNum = 0; //--------------------------- Для i = 1 по ТекстДлина Цикл Count = Count + 1; char = Сред(Текст, i, 1); If char = Символ Then CountSymb = CountSymb + 1; If CountSymb = НомерПовтора Then SymbNum = Count EndIf; EndIf; КонецЦикла; //--------------------------- Возврат SymbNum; КонецФункции
Дааа ... найбанальнейшая суть вопроса. Как говорится одна из самых избитых ... перебитых тем в программировании.... и так аж до банальщины. Знаете что это такое уважаемые? Это ПАРСЕР, ПАРСЕР )))) понимаете? Может Вы "не знаете", что такое "парсить" в программировании?... Имею ввиду не парусить на волнах, а парсить ... понимаете ))))) А то, разработчики наверно были "НЕ В КУРСЕ" что без подобных функций программирование, не программирование а черт знает что. И таких вещей которых нет в системе в готовом виде, куча.... Именно поэтому, как говорил в Общем модуле уже "Нет места". Все пишу пишу ... и изобретаю велосипеды. Вот чем занимаюсь ... какой то ерундой. Хотя, конечно может слишком многое требую ... опережая время, которое пока не наступило. Ладно! Это так ... решил поделиться соображениями. Спасибо всем за отклики ... просто мгновенные ... чем и нравиться этот сайт... за полезную инфу. Ладно! Пока!
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!