maxim_porsche
Новичок
- Сообщения
- 25
- Репутация
- 0
Версия AutoIt: v3
Описание:Здравствуйте!
Суть проблемы:
Запускается программа--->после её окончания должен сохраниться файл)
Конкретно,он должен сохраниться в папку для всех пользователей application data,но у меня он никак не сохранятеся
Примечания: Вот набросок:
Описание:Здравствуйте!
Суть проблемы:
Запускается программа--->после её окончания должен сохраниться файл)
Конкретно,он должен сохраниться в папку для всех пользователей 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