Как удалить определенный текст с файла?

// файл должен быть в кодировке ANSI
string s=del("C:\123.txt"); // передаём в функцию путь к файлу, возвращает удалённую строку
messagebox("Удалённая строка: "+s);


function del(string path_to_file)
{
string s, s2;
char c[999999];
if(fopen(path_to_file, "rb")) // если файл открылся для чтения
{
int count_symbol=freadb(#c[0], sizearray(c))-1; // прочитать весь файл в массив
fclose(); // закрыть файл

if(count_symbol) // если файл не пустой
{
regexsearch(1, #s, format(#c[0], count_symbol), "[^\r\n]+"); // найти первую строку
regexreplace(1, #s2, format(#c[0], count_symbol), s+"([\r\n]+)?", ""); // удалить строку
strcpy(#c[0], s2); // скопировать получившуюся строку в массив
if(fopen(path_to_file, "wb")) // если файл открылся для записи
{
fwriteb(#c[0], size(#c[0])); // записать в файл содержимое массива
fclose(); // закрыть файл
}
else messagebox("Файл не открылся для записи");
return s;
}
else messagebox("Файл пуст");
}
else messagebox("Файл не открылся для чтения");
return "";
}