external(INT, "wsprintf", "wsprintfA", "User32.dll" );
external(INT, "GetOpenFileName", "GetOpenFileNameA", "Comdlg32.dll");
// всё что выше в начало скрипта


string path;
if(open_file(#path)) // вызов функции, которая откроет диалог и запишет путь в переменную
{
// нужные действия
messagebox(path);
}
else messagebox("Ничего не выбрано");



function open_file(string #path_to_file)
{
char path[256]= {0} // сюда сохранится путь
char OFNA[88], Filter[100], InitialDir[256], Title[256];
initialarray(#OFNA[0], 0);
wsprintf(address(#Filter[0]), "Exe Files%c*.EXE%c%c", 0, 0, 0); // тип файлов
strcpy(#InitialDir[0], "C:\"); // начальный каталог
strcpy(#Title[0], "Открыть файл"); // заголовок диалога
writeaddress(sizearray(OFNA), address(#OFNA[0]));
writeaddress(address(#Filter[0]), address(#OFNA[12]));
writeaddress(address(#path[0]), address(#OFNA[28]));
writeaddress(sizearray(path), address(#OFNA[32]));
writeaddress(address(#InitialDir[0]), address(#OFNA[44]));
writeaddress(address(#Title[0]), address(#OFNA[48]));
if(GetOpenFileName(address(#OFNA[0])))
{
//messagebox(format(#path[0])); // путь к выбранному файлу
if(regexsearch(1, #path_to_file, format(#path[0]), ".+\\"))return 1;
}
return 0;
}

int count=0;
if(find_word(pathfolder()+"list.txt", "MEmu", #count) != -1) // вызов функции
{
messagebox("Количество слов MEmu: "+format(count));
}
else messagebox("Файл не найден или не доступен");


function find_word(string path, string word, int #count_word)
{
char text[999999]; string s[999];
if(fopen(path, "rb")) // открыть файл для чтения
{
int count_symbol=freadb(#text[0], sizearray(text))-1; fclose(); // прочитать файл в массив
count_word=regexsearch(sizearray(s), #s[0], format(#text[0], count_symbol), word); // найти все слова MEmu
return 1;
}
return -1;
}