; Запись содержимого буфера обмена в файл
;================================
Func MakeFile($fName, $fMode, $cr)
$bak = ClipGet()
$file = FileOpen($fName, $fMode+128) ; +128 - поддержка Unicode (UTF-8)
; Проверка, открыт ли файл
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($file, $bak)
If $cr = 1 Then
FileWrite($file, @CRLF) ; новая строка
EndIf
FileClose($file)
Beep(500,100)
EndFunc
; Запись содержимого буфера обмена в файл с дозаписью, каждая новая запись - с новой строки
;================================
Func MakeInfo()
MakeFile("D:\Temp\info.txt", 1, 1)
EndFunc
; Запись содержимого буфера обмена в файл с дозаписью, каждая новая запись - продолжение строки
;================================
Func MakeTxt()
MakeFile("D:\Temp\txt.txt", 1, 0)
EndFunc
; Запись содержимого буфера обмена в файл с перезаписью
;================================
Func MakeReadme()
MakeFile("D:\Temp\readme.txt", 2, 1)
EndFunc |