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

string str[50];
int n=0;
char ch[999];
int siz;

pause(2000); beep(400,100);

if (fopen ("C:\Users\qwety\Desktop\1.txt", "r")!=0)
{

l:n++;
if (freadline(str[n])==1)
{
pause(rand(4000, 8000));
sendlanguage("00000419", 0);
writeclipboard(str[n]);

strcpy(#ch[0], str[n]);
siz=size(#ch[0]);

keydown(CONTROL);
key(86);
keyup(CONTROL);
writeclipboard("");

pause(250*siz+rand(5000, 7000));
key(RETURN);
goto l;
}
fclose();
}


beep(700,100);
beep(700,100);

external(INT, "regex_search", "regex_search", pathfolder()+"\regex.dll" );

char result[4][100];
string r="([^\s]+)\s+(\d+)\s+(\d+)\s+(\d+)"; // регулярное выражение для поиска строки вида: 'текст число число число'
string a[1000]; // массив, в который считается содержимое файла

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

int count_string=i; // количество строк в файле
int y, z;

if (fopen ("C:\333.txt", "w")!=0) // если открылся для записи
{
for(i=0; i<count_string; i++) // для всех строк
{
int x=regex_search(a[i], r, address(#result[0][0]), sizearray(result), sizearray(result[])); // поиск строки по шаблону
if(x>0) // если найдена
{
y=formatsn(format(#result[2][0]))+1; // прибавить 1
z=formatsn(format(#result[3][0]))+1; // прибавить 1
fwrite(format(#result[0][0])+" "+format(#result[1][0])+" "+format(y)+" "+format(z)); fwrite(ENDL); // записать строку
}
else // если строка не соответствует шаблону
{
fwrite(a[i]); fwrite(ENDL); // записать её без изменений
}
}
fclose();
}

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

string a[1000]; // массив, в который считается содержимое файла
if (fopen ("C:\1.txt", "r")!=0) // если открылся для чтения
{
for(int i=0; freadline(a[i])!=0; i++){} // чтение файла в массив по строкам
fclose();
}

string p="text2"; // искомый текст

new int result[sizearray(a)]; // массив, в который запишутся индексы найденных строк
int z=IndexOfstring(address(#a[0]), sizearray(a), -1, address(#result[0]), p); // поиск в массиве
if (z>0) // если текст найден
{
messagebox("Номер строки: "+format(result[0]));
messagebox(a[result[0]]); // строка, содержащая искомый текст
// дальнейшие действия
}
else messagebox("Текст не найден");