lightforever
Новичок
- Сообщения
- 37
- Репутация
- 2
При выполнении данного скрипта уровень расхода оперативной памяти увеличивается чуть ли не в геометрической прогрессии( и естественно возникает ошибка распределения памяти). Не могу понять почему
Код:
$a=0
While 1
$a+=1
update_file('E:\\1\\'&$a&'.txt',1,1)
WEnd
Func update_file($file_path,$opp_need_update=False,$made_need_update=False)
Local $detail_file
Local $made,$opp
$detail_file=FileOpen($file_path,0)
if $detail_file==-1 Then ;ФАЙЛА ПОКА НЕТ
$detail_file=FileOpen($file_path,2)
FileWriteLine($detail_file,0)
FileWriteLine($detail_file,0)
FileClose($detail_file)
$detail_file=FileOpen($file_path,0)
EndIf;ФАЙЛА ПОКА НЕТ
$made=FileReadLine($detail_file)
$opp=FileReadLine($detail_file)
FileClose($detail_file)
$detail_file=FileOpen($file_path,2)
FileWriteLine($detail_file,$made+$made_need_update)
FileWriteLine($detail_file,$made+$opp_need_update)
FileClose($detail_file)
EndFunc