Here is my text of the program, but it deletes all the contents of the file.
Code:
function delete_tov()
{
var temp;
STRING* esc;
fihandle = file_open_read("strings1.dll"); // ôàéë ñîäåðæèò: j
j=file_var_read(fihandle); // òåïåðü j
file_close(fihandle);
fhandle = file_open_write("Tovar.txt"); // test.txt ñîäåðæèò "this,was,a,test"
inkey_active=0;inkey(mul);
for(i=0;i<j;i++)
{              
   file_seek(fhandle,temp,0);
   file_str_write(fhandle,"                    ");
//   delete.alpha=0; 	
//	delete1.alpha=100;
wait(1);
}
file_str_read(fhandle,acc1);
}


And it is looking for a line in the file.

Code:
function search_tov()
{
var temp1;
fhandle = file_open_read("strings1.dll"); // ôàéë ñîäåðæèò: j
j=file_var_read(fhandle); // òåïåðü j
file_close(fhandle);
fhandle = file_open_read("Tovar.txt"); // test.txt ñîäåðæèò "this,was,a,test"
inkey_active=0;inkey(mul);
temp1 = file_find(fhandle,mul);
if (temp1<0) str_cpy(ac,"Ñòðîêà íå íàéäåíà"); else
str_cpy(ac,"Íàéäåíà ñòðîêà:");
for(i=0;i<j;i++)
{              
   file_str_read( fhandle, acc);
   break;   
wait(1);
}
file_close(fhandle);
delete_tov();
}