Версия 5.33 Работа с текстом. Поиск подстроки между указанными блоками, удаление или замена указанной подстроки и символов.

string TEXT="большой типа текст в котором есть текст стр";
char CTEXT[1000];
int nom, siz;
strcpy(#CTEXT[0], TEXT);


if (findtext(#CTEXT[0], #nom, #siz, "большой" & "в котором")!=-1)
{
//messagebox(format(#CTEXT[nom], siz));
if (format(#CTEXT[nom], siz)==" типа текст ")
{
messagebox("что то сделать");
}
}

// NUM | RU | EN | MARK | SPEC | ALL | SPACE

/\ выделенное этими знаками будет отображаться в поиске.
По умолчанию границы - начало и конец найденного фрагмента.
Можно установить одну из меток. В таком случае будет отображаться от начала до метки или от метки до конца.
В последствие можно будеьт указывать несколько зон и они будут писаться в массив.

^ Знак исключения.
То есть ^NUM означает что любая цифра будет ошибкой.
^"абвгд"
Ставится перед словом. Не применяется к группе.

* Означает что символы в слове расматриваются как массив отдельных символов, а не как слово
*"аврора" означает что достаточно совпадения одной из букв этого слова
"аврора" необходимо точное вхождение всего слова
Для констант данный режим идет автоматически и не меняется.

! Означает что искомая фраза не может закончиться этим знаком даже если он присутствовал в середине слова.
milo@dom.hata.com.
"."!
Отсеет последнюю точку

[] групирует слова символы. Для истины достаточно совпадения одного из
[EN, NUM, *"-_"]

+ или число. Сколько необходимо совпавших символов или не известно.

string CTEXT="мыло первое:test_1@domen1tochka.com.Мыло@vtoroe второе:test_2@domen.mnogo.tochek.com."
+"мыло третье с ошибкой. Без зоны домена: test_3@error.финиш. Точки после мыла отсеются";
string t="-_!#$%&'*+/=?^`{|}~";//Эти знаки допускаются в мыле
string PR;//сюда пишет ответ
while (findtexttest (#CTEXT, #PR, [EN, NUM, *t]+, "@", [EN, NUM]+, ".", [EN, NUM, ".", "."!]+)==1)
{
messagebox ("!"+PR+"!");
}



string CTEXT="номер 52 телефона (097)-555 26 52 просто число 5 и число 78998434549 еще 097-555-26-52 и еще 097 555 26 52";
string t="-_!#$%&'*+/=?^`{|}~";//Эти знаки допускаются в мыле
string PR;//сюда пишет ответ
while (findtexttest (#CTEXT, #PR, ["(", NUM, ")"]+, [NUM, SPACE, "-", SPACE!]+)==1)
{
messagebox ("!"+PR+"!");
}


string CTEXT="текст этот внутри не покажет<>не покажет текст<>текст этот внутри покажет так"
+" как по 2 пары скобок по бокам<><>покажет текст<><>все";
string t="-_!#$%&'*+/=?^`{|}~";//Эти знаки допускаются в мыле
string PR;//сюда пишет ответ
while (findtexttest (#CTEXT, #PR, "<>"2, /ALL+\, "<>"2)==1)
{
messagebox ("!"+PR+"!");
}



string CTEXT="Найдет 2 мыла Васи. Вася имеет первое мыло Vasya@gmail.com. Петя имеет мыло petya@gmail.com. "
+"Вася имеет еще одно мыло Vaska-kot@gmail.com Точки после мыла отсеются. "
+"Вася еще имеет телефон 095 217 25. Но телефоне не мыло.";
string t="-_!#$%&'*+/=?^`{|}~";//Эти знаки допускаются в мыле
string PR;//сюда пишет ответ
while (findtexttest (#CTEXT, #PR, "Вася", ALL+, /[EN, NUM, *t]+, "@", [EN, NUM]+, ".", [EN, NUM, ".", "."!]\+)==1)
{
messagebox ("!"+PR+"!");
}




string CTEXT="Надо выбрать все телефоны без 2. Первый 097-555 76 51 Второй 097-555-26-52 Третий 027 525 26 52";
string t="-_!#$%&'*+/=?^`{|}~";//Эти знаки допускаются в мыле
string PR;//сюда пишет ответ
while (findtexttest (#CTEXT, #PR, [NUM, ^"2", SPACE, "-", SPACE!]11)==1)
{
messagebox ("!"+PR+"!");
}

string CTEXT="qwe 123 rty";
string PR;
while (findtexttest (#CTEXT, #PR, ALL+\, [NUM]+)==1) // всё до числа
{
messagebox (PR); // Второе сообщение лишнее.
}