; Запись содержимого буфера обмена в файл
;================================
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