Любые идеи по развитию MyChat. Запросы на новые функции, предложения по улучшению уже работающих сервисов. Если вы знаете, что нужно добавить в MyChat — welcome!
Аватара пользователя
tfosn
Хочу скриптом получить список файлов с учетом рабочего времени, скопировать их в сетевую папку, удалить на сервере.
Аватара пользователя
tfosn
Делаю костыль.
Читаю большой Файл хочу его записать но получаю ошибку
Время выполнения скрипта: 5284 мс
[11:24:01] (RunError "22"): Script timed out
Как обойти это ограничение?
Код: Выделить всё
 var             
    UsersCount, I, N, ID, ii: integer;
                    Str, Msg, ms, Date, User, str1, str2, str3,str4, KKS, Status, sMsg, sGroupsOriginal, sCurrentGroup, sUsersList, sUIN, sResult, Group, sOld, sToday : string;

begin           
                UsersCount:= GetTextFileLinesCount(mGetServerServiceFolder(8) + '\2019\03\06\worktime.csv');
                For i:=1 to UsersCount do
                Begin
                ms:=msg; //сохраняем Msg в ms
                    LoadLineFromFile(mGetServerServiceFolder(8) + '\2019\03\06\worktime.csv',i,str);//вычитываем строку из файла
                    sMsg:= str+CRLF; 
                    AddLineToFile(sMsg, '\\net\log2.txt');
                      mLogScript(str, '');
                End;
         //mSendPrivateMessage(0, 8, sMsg, 1, true);
    end.
Аватара пользователя
Алексей Пикуров
Не надо костылей, это плохой способ. Таймаут можете установить вручную, функция SetScriptTimeOut.
Аватара пользователя
tfosn
Алексей Пикуров писал(а):Не надо костылей, это плохой способ.

Так нет функции копирования вот и приходится костыли делать
Аватара пользователя
Алексей Пикуров
Вы правы, надо сделать :) Всё предусмотреть же невозможно, делаем новые функции по запросам людей.
Аватара пользователя
tfosn
т.к. у файлов одинаковое имя то логично бы копировать всю структуру папок а не только файлы, т.е. нужна еще и функция копирования, переноса папок
Аватара пользователя
Алексей Пикуров
Посмотрим, не спешите.
Аватара пользователя
Алексей Пикуров
Реализовано. Свежую сборку сервера выложим сегодня на сайт, обновитесь завтра.
Аватара пользователя
tfosn
Большое спасибо за оперативность!!!
Одна проблема: В описании написано
Исходная и результирующая папки должны существовать.
т.е. мне нужно сначала вручную структуру папок создать а уже потом переносить
2019\03\01
2019\03\02
2019\03\03
...
2019\03\31
2019\04\01
2019\04\02
2019\04\03
...
2019\04\31
Аватара пользователя
Алексей Пикуров
т.е. мне нужно сначала вручную структуру папок создать

Да.

Терпение, делаем функцию для создания папок "с потрохами" и отдельную функцию CopyFile.