external(INT, "Pos", "Pos", pathfolder()+"IndexOf.dll");

string rn=formatic(13)+formatic(10); // перенос строки для messagebox
string s="Какой-то текст 123, ещё текст";
int x=Pos(s, "123"); // в строке s найти позицию числа 123
messagebox("В строке: "+rn+s+rn+"найти позицию числа 123");
messagebox("Позиция "+format(x)); // позиция начинается с 0


s="Число 987"; // строка
x=Pos(s, "\d+"); // в строке s найти позицию первого числа
messagebox("В строке: "+rn+s+rn+"найти позицию первого числа");
messagebox("Позиция "+format(x));


char a[20]; // массив на 20 символов
strcpy(#a[0], "33 коровы"); // копируем в массив строку "33 коровы"
x=Pos(format(#a[0]), "коров"); // найти позицию слова корова
messagebox("В массиве char: "+rn+format(#a[0])+rn+"найти позицию слова коров");
messagebox("Позиция "+format(x));

// Найти строки с числами
external(INT, "Pos", "Pos", pathfolder()+"IndexOf.dll");
external(INT, "IndexOfstring", "IndexOfstring", pathfolder()+"IndexOf.dll");

string s[6];
s[0]="ggg";
s[1]="hhh";
s[2]="в этой строке есть число 555";
s[3]="ggа";
s[4]="и тут есть число 123";
s[5]="ggа";

string r="\d+"; // регулярное выражение, означающее любое число
new int result[sizearray(s)]; // массив, в который запишутся индексы найденных строк
int z=IndexOfstring(address(#s[0]), sizearray(s), -1, address(#result[0]), r);
messagebox("Найдено строк: "+format(z));
if (z>0)
{
for(int i=0; i<z; i++)messagebox("Индекс в массиве: "+format(result[i]));
for(i=0; i<z; i++)
{
int index=result[i];
messagebox(s[index]);
int position=Pos(s[index], r);
messagebox("Позиция числа в строке: "+format(position));
}
}

external(INT, "IndexOfstring", "IndexOfstring", pathfolder()+"IndexOf.dll");

string r="\d+"; // регулярное выражение, означающее число любой длины
string s[4][3]; // массив на 4 строки по 3 столбца
s[0][0]="ggg"; s[0][1]="321"; s[0][2]="Тут был Вася";
s[1][0]="yyy"; s[1][1]="dsa"; s[1][2]="999";
s[2][0]="fgа"; s[2][1]="Вася тут был"; s[2][2]="asd";
s[3][0]="ggа"; s[3][1]="638"; s[3][2]="df";

new int result[sizearray(s)*sizearray(s[])][2]; // массив, в который запишутся индексы найденных строк

// Найти строки с числами
messagebox("Найти строки, в которых есть числа");
int z=IndexOfstring(address(#s[0][0]), sizearray(s), sizearray(s[]), address(#result[0][0]), r);
messagebox("Найдено строк: "+format(z));
if (z>0)
{
for(int i=0; i<z; i++)messagebox("Индексы в массиве: "+format(result[i][0])+" "+format(result[i][1]));
for(i=0; i<z; i++)
{
int x=result[i][0];
int y=result[i][1];
messagebox(s[x][y]);
}
}
delete result;

new int result[sizearray(s)*sizearray(s[])][2];
messagebox("Найти строки, в которых есть слово Вася");
z=IndexOfstring(address(#s[0][0]), sizearray(s), sizearray(s[]), address(#result[0][0]), "Вася");
if(z>0)
{
for(i=0; i<z; i++)
{
x=result[i][0];
y=result[i][1];
messagebox("Индексы в массиве: "+format(x)+" "+format(y)+
formatic(13)+formatic(10)+s[x][y]);
}
}