[INTERFACE]
DIALOG, "Старт парсера", 633, 190;
STATIC, "Парсить текст", 4, 4, 80, 20;
EDIT, 88, 4, 532, 20, string PT;
CHECK, "Искать между (точное совпадение)", 4, 28, 208, 20, int ZP;
EDIT, 4, 52, 216, 20, string ZONA1;
EDIT, 240, 52, 216, 20, string ZONA2;
STATIC, "Омещение символов от начала", 4, 76, 168, 20;
EDIT, 176, 76, 100, 20, int SM1;
STATIC, "Омещение символов от окончания", 288, 76, 184, 20;
EDIT, 476, 76, 100, 20, int SM2;
STATIC, "Комментарий", 4, 104, 76, 20;
EDIT, 88, 104, 532, 20, unknown Comment;
BUTTON_OK, "Принять", 412, 136, 100, 20;
BUTTON_CANCEL, "Закрыть", 520, 136, 100, 20;
[END]

[APPEARANCE]
COLOR = 185, 88, 188;
SIZE_X = 10;
SIZE_Y =4;
[END]

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


[ASSOC_VAR]
PT="<a href=^" Первый ^"><br><src=^"Второй^"><a неизвестно=^" Третий ^">";
ZP=0;
ZONA1="<br>";
ZONA2="известно";
SM1=0;
SM2=0;
Comment=;
[END]

[EVENT]
IF (ZP==0)ENABLE(GETID(ZONA1), 0);
IF (ZP==0)ENABLE(GETID(ZONA2), 0);
IF (ZP==0)ENABLE(GETID(SM1), 0);
IF (ZP==0)ENABLE(GETID(SM2), 0);
IF (ZP==1)ENABLE(GETID(ZONA1), 1);
IF (ZP==1)ENABLE(GETID(ZONA2), 1);
IF (ZP==1)ENABLE(GETID(SM1), 1);
IF (ZP==1)ENABLE(GETID(SM2), 1);
[END]

[FUNCTION_BODY]
function(string text, int zp, string zona1, string zona2, int sm1, int sm2)
{
  if (zp)
  {
  if (sm1!=0 || sm2!=0)text=cuttext(text, zona1, sm1, zona2, sm2);
  else text=cuttext(text, zona1, zona2);
  }
parserstart(text);
}
[END]

[CALL]
(PT, ZP, ZONA1, ZONA2, SM1, SM2)
[END]

