Версия 2.02 Добавлены файловые операции (чтение запись в текстовый файл)

string text[100];
string path="C:\include\resource.txt"; // путь к файлу
int row=0; // переменная, в которую запишется количество строк в файле
string s="C:\include\resource2.txt";
if (fopen(path, "r" ) !=0) // если файл открылся
{
for(int i=0; freadline(text[i])!=0; i++)row++; // читаем по строке до конца файла
fclose(); // закрываем файл
if (fopen (path, "w")!=0) {
fwrite (text[0]);
fwrite (text[1]);
fwrite (s);
fwrite (text[i]);
messagebox("Cтрок в файле: "+format(row));
fclose(); // закрываем файл
// добавить путь из переменной s между text[1] и text[2]
}}

string text[100];
string path="C:\include\resource.txt"; // путь к файлу
int row=0; // переменная, в которую запишется количество строк в файле
string s="C:\include\resource2.txt";

if (fopen(path, "r" ) !=0) // если файл открылся
{
for(int i=0; freadline(text[i])!=0; i++)row++; // читаем по строке до конца файла
fclose(); // закрываем файл

messagebox("Cтрок в файле: "+format(row));


if (fopen(path, "w" ) !=0) // если файл открылся
{
fwrite (text[0]);
fwrite (ENDL);
fwrite (text[1]);
fwrite (ENDL);
fwrite (s);
fwrite (ENDL);
for(i=2; i<row; i++) // цикл для всех строк из файла
{
fwrite (text[i]);
fwrite (ENDL);
}
fclose(); // закрываем файл
}
}

string s = "C:\Софт\";
messagebox(utf8toansi(s));

int i=0, j=0;
int xy[100][100];
for(i=0; i<100; i++)
{
for(j=0; j<100; j++)
{
xy[j][i]=0;
fopen ("c:\1.txt", "a");
fwrite(xy[j][i]);
fclose();
}
fopen ("c:\1.txt", "a");
fwrite(ENDL);
fclose();
}

for(i=0; i<100; i++)
{
for(j=0; j<100; j++)//j-это у нас х на карте а i- это у
{

mousemove(j+100, i+100);
pause(100);
x=find_coordinates(j+100-27, i+100-51, j+100+24, i+100-34); //находим координату х
y=find_coordinates(j+100+32, i+100-51, j+100+27+50, i+100-34 ); //находим координату y
xy[x][y]=1; //заполняем массив карты
fopen ("c:\1.txt", "a");
fwrite(xy[x][y]);
fclose();
pause(100);
}
}]

fopen ("c:\1.txt", "a");
for (i=0; i<500; i++)
{
for (j=0; j<500; j++)
{
fopen ("c:\1.txt", "a");
fread (xy[i][j]);
}
}
fclose();

for (i=0; i<500; i++)
{
for (j=0; j<500; j++)
{
fopen ("c:\1.txt", "a");
fread (xy[i][j]);
fclose();
}
}

int y=0, x=0, i, j;
int xy[600][600];
loadsymbolbase ("C:\Kit_B\Bases\map_1.sib");

loadsymbolbase ("C:\Проект\V_Bot\Base\map.sib");
pause(3000);

//создаем файл массива все координаты ==0 (непроходимы)

for(i=0; i<300; i++)
{
textout(1, 50, 2, "создаем строку"+ format(i)+" ", 0);
for(j=0; j<300; j++)
{
xy[j][i]=0;
}
}


// попиксельно сканируем карту считываем координаты записываем в массив проходимые клетки
for(i=0; i<20; i++)
{
for(j=0; j<20; j++)//j-это у нас х на карте а i- это у
{
x=0; y=0;
textout(1, 200, 2, "сканируем строку "+ format(i)+" ", 0);
mousemove(j+100, i+100);
pause(600);
x=find_coordinates(j+100-27, i+100-51, j+100+24, i+100-34); //находим координату х
y=find_coordinates(j+100+32, i+100-51, j+100+27+50, i+100-34 ); //находим координату y

if ((x>1)&&(y>1))
{
textout(1, 400, 2, "пишем "+format(x)+" : "+format(y)+" ", 0);
xy[x][y]=1; //заполняем массив карты
}
}
}

//записываем полученный массив

fopen ("c:\1.txt", "w");
for(i=0; i<300; i++)
{
textout(1, 300, 2, "Переписываем строку "+format(i)+" в массиве ", 0);
for(j=0; j<300; j++)
{

fwrite(xy[i][j]);
}
fwrite(ENDL);
}


fclose();