#include <GUIConstantsEx.au3>
#include <FileConstants.au3>

Local $hGUI = GUICreate("Example",700,700)
Local $idMyedit = GUICtrlCreateEdit("", 0, 0, 500, 500)

Local $idFilemenu = GUICtrlCreateMenu("Меню")
Local $idFileitem1 = GUICtrlCreateMenuItem("Открыть файл", $idFilemenu)
Local $idFileitem2 = GUICtrlCreateMenuItem("Сохранить файл", $idFilemenu)
Local $idFileitem3 = GUICtrlCreateMenuItem("Скопировать текст в буфер", $idFilemenu)
Local $idFileitem4 = GUICtrlCreateMenuItem("Вставить текст из буфера ", $idFilemenu)
Local $idFileitem5 = GUICtrlCreateMenuItem("Выход ", $idFilemenu)
GUISetState(@SW_SHOW, $hGUI)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop

Case $idFileitem1
Local $sFileOpenDialog = FileOpenDialog("", @DesktopDir & "\", "Текстовые файлы (*.txt)")
Local $hFileOpen = FileOpen($sFileOpenDialog, $FO_READ)
Local $sFileRead = FileRead($hFileOpen)
GUICtrlSetData($idMyedit,$sFileRead)

Case $idFileitem2
Local $sFileSaveDialog = FileSaveDialog("", @DesktopDir & "\",  "Текстовые файлы (*.txt)")

Local $hFileOpen = FileOpen($sFileSaveDialog,$FO_APPEND)
Local $sData =   GUICtrlRead($idMyedit)
FileWrite( $hFileOpen,$sData)

Case $idFileitem3
Local $sData =   GUICtrlRead($idMyedit)
ClipPut($sData)

Case $idFileitem4
Local $sData = ClipGet()
GUICtrlSetData($idMyedit, $sData )

Case $idFileitem5
Exitloop

EndSwitch
WEnd

GUIDelete($hGUI)