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

string path="C:\test.txt"; // путь к файлу
int X=0;

// вначале скрипта читаем файл
string text_file=""; // переменная, в которой будет храниться текст из файла
if(read_file(path)==0) // если файл не найден
{
messagebox("Файл не найден");
goto end_script; // переход к метке
}



// тут уже сам скрипт
string text1="два"; // текст для поиска
if(find(text1, #X)) // вызов функции
{
messagebox(X);
// дальнейшие действия
}
else messagebox("Текст не найден");



end_script:;





function read_file(string path_to_file)
{
char c[999999];
if(fopen(path_to_file, "rb")) // окрыть файл
{
int count_sumbol=freadb(#c[0], sizearray(c))-1; fclose(); // прочитать и закрыть файл
text_file=format(#c[0], count_sumbol); // записать содержимое файла в переменную
// messagebox(text_file); // содержимое файла
return 1;
}
return 0;
}


function find(string s, int #result)
{
string temp;
if(regexreplace(1, #temp, text_file, ".*?"+s+"\s*(\d+).*", "$1", SINGLELINE)) // поиск числа после указанного слова
{
result=formatsn(temp); // записать число в переменную X через указатель
return 1;
}
return 0;
}