[Автоматизация] Автоматическое сохранения файла при достижении определенного размера

[maxim_porsche]

Версия AutoIt: v3
Описание:Здравствуйте!
Суть проблемы:
Запускается программа--->после её окончания должен сохраниться файл)
Конкретно,он должен сохраниться в папку для всех пользователей application data,но у меня он никак не сохранятеся

Примечания: Вот набросок:

Func _AutoSave()
     If StringLen($Text)>$KolSum0 Then
         $i = 0
         Do
             $i+=1
         Until Not FileExists(@ScriptDir&'name_'&$i&'.log')
         Dim $filename=@ScriptDir&'name_'&$i&'.log'
         If FileGetSize($filename)>$Size0*1024 Then $filename=@ScriptDir&'name_'&$i&'.log'
         $Text=StringRegExpReplace($Text, '(\r\n){2,}', @CRLF&@CRLF) ;удаляем многократные переходы строк
         $aText=StringRegExp($Text,'(?s)(^.*)\r\n(.*)$',3)
         If @Error Then
             Local $file = FileOpen($filename,1)
             FileWrite($file, @CRLF&@MDAY&"."&@MON&"."&@YEAR&" - "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$Text)
             FileClose($file)
             $Text=''
         Else
             If UBound($aText)=2 Then
                 Local $file = FileOpen($filename,1)
                 FileWrite($file, @CRLF&@MDAY&"."&@MON&"."&@YEAR&" - "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$aText[0])
                 FileClose($file)
                 $Text=$aText[1]
             EndIf
         EndIf
     EndIf
EndFunc

Не могу понять почему не сохраняет(

 

[inververs]

...твоя очередная тема? никаки не можешь лог нажатых кнопок сохранить?

 

[AZJIO]

maxim_porsche
Тестируй, у меня сохраняет

#include <FileOperations.au3>
; задаём установки для теста
$KolSum0 = 2
$Text = 'много слов'
; $Text = 'много слов' &@CRLF& 'две строки'
_AutoSave()

Func _AutoSave()
	If StringLen($Text) > $KolSum0 Then
		$filename = _FO_GetCopyName(@ScriptDir & '\name.log', 1) ; получить очередную копию файла
		; If FileGetSize($filename) > $Size0 * 1024 Then $filename = @ScriptDir & 'name_' & $i & '.log' ; зачем $filename изменять на саму себя же при каком то условии
		$Text = StringRegExpReplace($Text, '(\r\n){2,}', @CRLF & @CRLF) ; удаляем многократные переносы строк
		$aText = StringRegExp($Text, '(?s)(^.*)\r\n(.*)$', 3)
		If @error Then ; если переносов строк нет то пишем как есть
			Local $hFile = FileOpen($filename, 1)
			FileWrite($hFile, @CRLF & @MDAY & "." & @MON & "." & @YEAR & " - " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & $Text)
			FileClose($hFile)
			$Text = ''
		Else
			If UBound($aText) = 2 Then ; если найден один перенос и текст разделён на две части, то пишем первую часть
				Local $hFile = FileOpen($filename, 1)
				FileWrite($hFile, @CRLF & @MDAY & "." & @MON & "." & @YEAR & " - " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & $aText[0])
				FileClose($hFile)
				$Text = $aText[1]
			EndIf
		EndIf
	EndIf
EndFunc   ;==>_AutoSave