if (fopen ("c:\!123.txt", "w")!=0)
{

for (n=0; n<500; n++)
{
fwrite(X_итог[n]); fwrite(";"); fwrite(Y_итог[n]); fwrite(ENDL);
}
fwrite(ENDL);

fclose();
}

string text[1000]; // файл не должен превышать 1000 строк

if (fopen("C:\Users\abc\Desktop\111.txt", "r")!=0) // если файл открылся
{
for(int i=0; freadline(text[i])!=0; i++){} // читаем по строке до конца файла
fclose(); // закрываем файл

// массив text содержит весь файл
messagebox("Первая строка: "+text[0]);
messagebox("Вторая строка: "+text[1]);
messagebox("Пятая строка: "+text[4]); // пятая строка
int num=formatsn(text[4]); // переводим строку в число и присваиваем переменной num
messagebox(num);
}

string slovar[500];
int k;

if (fopen ("C:\russian.txt", "r")!=0)
{
k=freadlineall(#slovar[0], 100);
fclose();
}
messagebox (k);

for (int n=0; n<k; n++)
{
messagebox (slovar[n]);
}

int x[500], y[500];
x[0]=10; y[0]=111;
x[1]=20; y[1]=222;
x[2]=30; y[2]=333;
x[3]=40; y[3]=444;


if(fopen ("D:\123.txt", "w")!=0)
{
int _size = sizearray(x);
for (int i=0; i<_size; i++)
{
fwrite(x[i]); fwrite(";"); fwrite(y[i]); fwrite(ENDL);
}
fclose();
}

int x[500], y[500];
string temp[500];
string num[2];

if (fopen ("D:\123.txt", "r")!=0)
{
int k=freadlineall(#temp[0], sizearray(x)); fclose();

for (int i=0; i<k; i++)
{
regexsearch(2, #num[0], temp[i], "[^;]+");
x[i] = formatsn(num[0]);
y[i] = formatsn(num[1]);
}

messagebox (format(x[0])+"^t"+format(y[0]));
messagebox (format(x[1])+"^t"+format(y[1]));
}

string result[4];
string text = "Моб; коорд Х; коорд У; атаковать ли";

int count = regexsearch(4, #result[0], text, "[^;]+");
messagebox("Найдено совпадений: "+format(count));
for(int i=0; i<count; i++)
{
regexreplace(-1, #result[i], result[i], "^\s+|\s+$", ""); // удалить пробелы в начале и конце строки
messagebox(result[i]);
}