Константин

88
Рейтинг

const000



  •   Регистрация: 22.11.2007 (16 лет назад)

  •   Был(а) на сайте: 14.12.2023

Друзья
  • Гордей Голиков
Подписчики 1

Группы

Профессиональный разработчик

Рейтинг 88

Еще один скриптик для сохранения dbf баз с помощью архиватора. Коротенько (5 строк!) и работает ;) ТЕПЕРЬ 3 строки!!!

Инструменты и обработки Системный администратор Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 Конфигурации 1cv7 Россия Абонемент ($m) Приложение (exe) Архивирование (backup)

Работает на Win XP,2003 и далее. Хорошо запускается из планировщика. В результате получается архив с именем что-то типа arc2008-09-17-17-14 Стало актуальным в свете борьбы за легальность софта - 7-zip бесплатен и отлично работает, больше ничего не требуется.

1 стартмани

17.09.2008    14653    959    const000    13       

36

Дни рождения сотрудников. Иная логика

Отчеты и формы Бухгалтер Бухгалтерский учет 7.7 Расчет 7.7 1С:Бухгалтерия 7.7 1С:Зарплата и кадры 7.7 Россия Абонемент ($m) Внешний отчет (ert,erf) Кадровый учет

Еще один вариант всем нужного отчета, но он показывает дни рождения в порядке удаленности от сегодняшнего дня на необходимую глубину - сразу можно вешать на доску объявлений.

1 стартмани

12.09.2008    14483    614    const000    11       

31

Судоку

Отчеты и формы Для всех Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 Конфигурации 1cv7 Россия Абонемент ($m) Внешняя обработка (ert,epf) Игры

Всем любителям классической головоломки [b]"Судоку"[/b] посвящается.

1 стартмани

08.09.2008    17312    330    const000    13       

21

Комментарии

НовостиОпрос по используемой СУБД: участвуйте и выиграйте 100 стартмани#1531 11.12.18 16:20
Основная база чуток больше 100 гиг плюс файловые хранилища рядом с прямыми ссылками из базы еще на полтерабайта и растут быстро (сканы/фото/видео). MS SQL. Скорость устраивает, несколько копий для разработки вполне адекватно шевелятся
DevБыстрое чтение состава каталога на диске#10 26.07.18 10:46
(7) Нет. самый быстрый вариант:
Команда="dir /S """+Источник+""" > "+ИмяФайла+" ";
КомандаСистемы(Команда, КаталогВременныхФайлов());

и дальше прочесть текстовый вывод.
1 200 000 за 10 примерно минут. Задержка уже на сервере происходит только.
DevБыстрое чтение состава каталога на диске#9 26.07.18 10:44
(6) О! Я думал ветка уже скисла )
Посмотрел скорость.
Судя по всему это то же самое, что и 1с вызывает. Через Dir вышло в несколько раз быстрее - 1 200 000 за 10 примерно минут

Команда="dir /S """+Источник+""" > "+ИмяФайла+" ";
КомандаСистемы(Команда, КаталогВременныхФайлов());

и дальше прочесть текстовый вывод.
DevБыстрое чтение состава каталога на диске#5 12.07.18 18:24
(4) Да, правильно. Но КАК? Не специалист я по СОМ...
DevБыстрое чтение состава каталога на диске#3 06.07.18 9:55
(2) Так и сделал. Но как-то некрасиво... Временный файл, чтение через хз что... Неужели api нет?
DevБыстрое чтение состава каталога на диске#1 05.07.18 17:34
Добрый день.

Вот вопрос возник - нужно прочитать состав каталога со всеми подчиненными, причем сделать это быстро. Файлов МНОГО.
Естественно первый лобовой метод -
Код
   НайденныеФайлы = НайтиФайлы(Адрес, "*.*");
   Для Каждого Файл Из НайденныеФайлы Цикл
      Попытка
         Если Файл.ЭтоФайл() Тогда 
            Стр=ТабФайлов.Добавить();
            Стр.ДатаВремя=Файл.ПолучитьВремяИзменения();
            Стр.Длина=Файл.Размер();
            Стр.ПутьОригинальный=Файл.ПолноеИмя;
         Иначе
            ЗаполнитьРекурсивно (Адрес+""+Файл.Имя,Тип,Глубина+1,Режем,Префикс);
         КонецЕсли;
      Исключение
         Сообщить (""+ОписаниеОшибки());
         Возврат Ложь;
      КонецПопытки; 
   КонецЦикла;


Работает. Но м-е-е-е-е-е-дленнно... Все время занимает чтение имени, времени и размера.
Банальный батник 2.bat в текстовый файл выкидывает раз в 5 быстрее практически то же самое:
Код
@for /D %%i IN (%1\*.*) do @(@dir "%%i"
         @call 2 "%%i") 


Сравнение времени - час и 5 минут. Причем кэш системы почти не влияет, проверял.
Конечно можно поанализировать выгрузку текстового файла, но как-то неправильно это.
Кто решал подобное? Может есть решение красивее? Не в параллельность и не на сервере - серверный пользователь никогда не будет иметь достаточных прав для чтения файлов.
HighLoad"Восстановить положение окна" - не помогает. Как я решил проблему.#14 31.05.17 13:24
Забавно. Месяц назад пытался полное решение данной проблемы опубликовать тут. Не получилось - сказали текста мало ) Написал на форуме.
(10) правильно написал - причина в неверном масштабном коэффициенте на экране у обновляющего. Вставьте это пожалуйста в основной текст - найти в интернете не особо получится у заинтересованных, а комментарии не все всегда читают.
AdminНеверное открытие форм (съехавшие окна, Alt+Shift+R) в толстом клиенте - решено#2 30.01.17 16:42
Как оказалось, корень проблемы (у нас во всяком случае) оказался в том, что сотрудник, накатывавший очередной релиз изменил размер текста в windows на 125% вместо стандартных 100 (для wndows7 это Панель управления\Все элементы панели управления\Экран). После того, как на другом компьютере с нормальным размером текста зайти в форму, изменить любой реквизит (например на 1 пиксел сдвинуть) и сохраниться проблема исчезает. К сожалению так нужно делать для всех форм (
AdminНеверное открытие форм (съехавшие окна, Alt+Shift+R) в толстом клиенте - решено#1 30.01.17 16:40
Многие сталкивались с проблемой, когда после очередного обновления формы в 1С начинали открываться криво - не разворачиваться, неверное расположение полей и пр. Нажатие Alt+Shift+R или правый клик по заголовку+"Восстановить положение окна" решеают проблему для текущего окна. При повторном открытии - все повторяется. Поиск по интернету решения этой проблемы не дал удовлетворительного результата - меняли релизы платформы, делали чистую установку, чистили кэши, прошерстили десятки форумов... Максимум после второго открытия формы проблема повторялась.
Как оказалось, корень проблемы (у нас во всяком случае) оказался в том, что сотрудник, накатывавший очередной релиз изменил размер текста в windows на 125% вместо стандартных 100 (для wndows7 это Панель управления\Все элементы панели управления\Экран). После того, как на другом компьютере с нормальным размером текста зайти в форму, изменить любой реквизит (например на 1 пиксел сдвинуть) и сохраниться проблема исчезает. К сожалению так нужно делать для всех форм (

Коллеги, у кого эта проблема есть - отзовитесь, если помогло решение или есть более красивое

Прикрепленные файлы:

Косяк.png
AdminЕще один скриптик для сохранения dbf баз с помощью архиватора. Коротенько (5 строк!) и работает ;) ТЕПЕРЬ 3 строки!!!#11 28.03.13 18:07
(10) simuljakr, Да, сам пользую. Если запущено в монопольном режиме - естественно не заархивируется (точнее будет все, кроме *dbf :) ). Если идет сложный процесс перепроведения - могут быть косяки времени проведения, но это лечится тестированием/исправлением. Все-таки это простая штучка для мелких баз.
Опыт восстановления из таких архивов есть успешный неоднократный.