[INTERFACE]DIALOG, "Прочитать / Сохранить файл", 657, 177;COMBO, "Прочитать файл""Заменить файл""Дописать файл", 4, 4, 216, 80, string Rej;STATIC, "Путь к папке", 4, 28, 68, 20;EDIT, 76, 28, 400, 20, string Path;BUTTON_PATH, "Выбрать путь для сохранения", 480, 28, 168, 20, Path;STATIC, "Название файла", 4, 52, 92, 20;EDIT, 100, 52, 136, 20, string File;STATIC, "Записать", 252, 52, 52, 20;EDIT, 308, 52, 340, 20, string Text;STATIC, "Путь к файлу", 4, 80, 72, 20;EDIT, 80, 80, 396, 20, string SaveFile;BUTTON_FILE, "Выбрать файл для чтения", 480, 84, 168, 20, SaveFile;STATIC, "Читать в переменную", 4, 104, 116, 20;EDIT, 124, 104, 100, 20, unknown Var;BUTTON_OK, "Принять", 444, 128, 100, 20;BUTTON_CANCEL, "Закрыть", 548, 128, 100, 20;[END]

[APPEARANCE]
COLOR = 255, 125, 55;
SIZE_X = 10;
SIZE_Y =4;
[END]

[INFO]
[ENDL]>>Rej
[END]

[ASSOC_VAR]
Rej="Прочитать файл";
File="file.txt";
Path="C:\";
SaveFile="C:\file.txt";
Text="Текст";
Var=SFile;
V_Var=#~Var~;
[END]

[GLOBAL_VAR]
string ~Var~;
[END]

[REGEXPLACE_CODE]
"File\(~%34~Заменить файл~%34~," = "File(~%34~w~%34~,";
"File\(~%34~Дописать файл~%34~," = "File(~%34~a~%34~,";
"File\(~%34~Прочитать файл~%34~," = "File(~%34~r~%34~,";
[END]

[EVENT]
IF (Rej=="Прочитать файл")ENABLE(GETID(Path), 0);
IF (Rej=="Прочитать файл")ENABLE(GETID(File), 0);
IF (Rej=="Прочитать файл")ENABLE(GETID(Text), 0);
IF (Rej=="Прочитать файл")ENABLE(GETID(SaveFile), 1);
IF (Rej=="Прочитать файл")ENABLE(GETID(Var), 1);
IF (Rej!="Прочитать файл")ENABLE(GETID(Path), 1);
IF (Rej!="Прочитать файл")ENABLE(GETID(File), 1);
IF (Rej!="Прочитать файл")ENABLE(GETID(Text), 1);
IF (Rej!="Прочитать файл")ENABLE(GETID(SaveFile), 0);
IF (Rej!="Прочитать файл")ENABLE(GETID(Var), 0);
[END]



[FUNCTION_BODY]
function(string rej, string savefile, string text, string #var, string path, string file)
{
  if (rej=="r")
  {
  string t;
    if (fopen (savefile, rej)!=0)
    {
    while (freadline (t))var=var+t+"^r^n";
    fclose();
    }
  }
  else
  {
    if (fopen (path+file, rej)!=0)
    {
    fwrite(text);
    fclose();
    }
  }
}
[END]

[CALL]
(Rej, SaveFile, Text, V_Var, Path, File)
[END]