Читаю большой Файл хочу его записать но получаю ошибку
Время выполнения скрипта: 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.
Чат со мной
Алексей Пикуров писал(а):Не надо костылей, это плохой способ.
Так нет функции копирования вот и приходится костыли делать
Чат со мной
Чат со мной
Чат со мной
Одна проблема: В описании написано
Исходная и результирующая папки должны существовать.
т.е. мне нужно сначала вручную структуру папок создать а уже потом переносить
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.
Чат со мной
Чат со мной