[INTERFACE]
DIALOG, "Вырезать с текста", 699, 186;
STATIC, "Вырезать с текста", 4, 4, 100, 20;
EDIT, 108, 4, 576, 20, string TEXT;
STATIC, "Первый фрагмент от начала", 4, 28, 152, 20;
EDIT, 160, 28, 176, 20, string ZONA1;
STATIC, "Первый фрагмент от конца", 356, 28, 144, 20;
EDIT, 508, 28, 176, 20, string ZONA2;
STATIC, "Смещение символов от начала", 4, 52, 172, 20;
EDIT, 180, 52, 100, 20, int SM1;
STATIC, "Смещение символов от окончания", 296, 52, 184, 20;
EDIT, 488, 52, 100, 20, int SM2;
STATIC, "Переменная для вырезанного текста", 4, 76, 196, 20;
EDIT, 204, 76, 100, 20, string CUT_TEXT;
STATIC, "Комментарий", 4, 100, 76, 20;
EDIT, 84, 100, 600, 20, unknown Comment;
BUTTON_OK, "Принять", 472, 132, 100, 20;
BUTTON_CANCEL, "Закрыть", 584, 132, 100, 20;
[END]

[APPEARANCE]
COLOR = 155, 100, 140;
SIZE_X = 6;
SIZE_Y =2;
[END]

[INFO]
[ENDL]>>Comment
[END]

[ASSOC_VAR]
TEXT="Вырежем от этого Ы до последнего Ы, сколько бы нам Ы не встречалось.";
ZONA1="Ы";
ZONA2="Ы";
SM1=0;
SM2=0;
CUT_TEXT=Rez_Cut_Text;
V_CUT_TEXT=#~CUT_TEXT~;
Comment=;
[END]

[GLOBAL_VAR]
string ~CUT_TEXT~;
[END]

[FUNCTION_BODY]
function (string text, string #cut_text, string zona1, string zona2, int sm1, int sm2)
{
if (sm1!=0 || sm2!=0) cut_text=cuttext(text, zona1, sm1, zona2, sm2);
else cut_text=cuttext(text, zona1, zona2);
if (cut_text=="")return 0;
return 1;
}
[END]

[CALL]
(TEXT, V_CUT_TEXT, ZONA1, ZONA2, SM1, SM2)
[END]

[FUNCTION_LOGIC]  
==1
[END]