#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance force 



Gui, +ToolWindow 
Gui, Add, Edit, vEdit r1 w100, %Val%
Gui, Add, Button,  w100 h30 gSave, Сохранить
Gui, Add, Button,  w100 h30 gLoad, Загрузить
Gui, Show,, *****
Return


Save:
GuiControlGet, Edit
FileSelectFile, FileName, S16,%A_Scriptdir%\Profile\, Сохранить профиль, *.txt
FileAppend, 
(
 %Edit%
), %FileName%.txt
return

Load:
FileSelectFile, SelectedFile,, %A_Scriptdir%, Открыть профиль:
FileRead, val, %SelectedFile%
GuiControl,, Edit, %val%
return



GuiClose:
ExitApp

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance force 



Gui, +ToolWindow 
Gui, Add, Edit, vEdit r1 w100, %Val%
Gui, Add, Button,  w100 h30 gSave, Сохранить
Gui, Add, Button,  w100 h30 gLoad, Загрузить
Gui, Show,, *****
Return


Save:
GuiControlGet, Edit
FileAppend, %Edit%, % A_Desktop "\" Edit ".txt"   
return


Load:
FileSelectFile, SelectedFile,, %A_Desktop%, Open a file:
FileRead, val, %SelectedFile%
GuiControl,, Edit, %val%
return



GuiClose:
ExitApp

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance force 



Gui, +ToolWindow 
Gui, Add, Edit, r1 w100, ********
Gui, Add, Edit, r1 w100, ********
Gui, Add, Button,  w100 h30 gSave, Сохранить
Gui, Add, Button,  w100 h30 gLoad, Загрузить
Gui, Show,, *****
Return


Save:
FileSelectFile, FileName, S, %A_Desktop%, Create a new file:

if FileName !=
    MsgBox,  %FileName%
return




Load:
FileSelectFile, SelectedFile,, %A_Desktop%, Open a file:

if SelectedFile !=
    MsgBox, %SelectedFile%
return

GuiClose:
ExitApp

; Example: This is a working script that writes some text to a file then reads it back into memory.
; It provides the same functionality as this DllCall-example.

FileSelectFile, FileName, S16,, Create a new file:
if (FileName = "")
    return
file := FileOpen(FileName, "w")
if !IsObject(file)
{
    MsgBox Can't open "%FileName%" for writing.
    return
}
TestString := "This is a test string.`r`n"  ; When writing a file this way, use `r`n rather than `n to start a new line.
file.Write(TestString)
file.Close()

; Now that the file was written, read its contents back into memory.
file := FileOpen(FileName, "r-d") ; read the file ("r"), share all access except for delete ("-d")
if !IsObject(file)
{
    MsgBox Can't open "%FileName%" for reading.
    return
}
CharsToRead := StrLen(TestString)
TestString := file.Read(CharsToRead)
file.Close()
MsgBox The following string was read from the file: %TestString%

Gui, Add, Edit, x46 y37 w240 h20 , %Val%