#NoTrayIcon
;Создать файл %ДАТА_ВРЕМЯ%.txt в UTF-8 в активной панели с текстом из буфера
If $CmdLine[0] <> 1 Then
MsgBox(48 + 4096, 'SaveClipboardText.au3', 'Проверьте параметры запуска.')
Exit
EndIf
$COMMANDER_PATH = EnvGet('COMMANDER_PATH')
$sMem = ClipGet()
If @error Then
Switch @error
Case 1
$sMsg = 'Буфер обмена пуст.'
Case 2
$sMsg = 'Буфер обмена содержит не текстовое значение.'
Case Else
$sMsg = 'Невозможно получить доступ к буферу обмена.'
EndSwitch
MsgBox(16 + 4096, 'SaveClipboardText.au3', $sMsg)
Exit
EndIF
$sText = BinaryToString(StringToBinary($sMem, 4), 4)
;Убираем конечные пробелы
$sText = StringRegExpReplace($sText, '(?m)[ \t]$', '')
$sFileName = @YEAR & @MON & @MDAY & '_' & @HOUR & @MIN & @SEC & '.txt'
$hFile = FileOpen($CmdLine[1] & $sFileName, 2 + 128)
If $hFile = -1 Then
MsgBox(4096, 'Ошибка', 'Невозможно открыть файл.')
Exit
EndIf
FileWrite($hFile, $sText)
FileClose($hFile)
Switch MsgBox(4 + 4096, 'SaveClipboardText.au3', 'Открыть файл в AkelPad?')
Case 6
Run('"' & $COMMANDER_PATH & '\Utilities\AkelPad\AkelPad.exe" "' & $CmdLine[1] & $sFileName & '"')
Case 7
Exit
EndSwitch
|
