Как удалить строку из текстового файла?

string mail;

if (fopen ("C:\email.txt", "r")!=0)//открываем файл для чтения
{//если открылся
l:if (freadline(mail)!=0)//Читаем по целой строке пока не конец файла
{
messagebox(mail);
//Удалить прочитанную строку из email.txt
goto l;
}
fclose();//закрываем файл
}

string mail;
string log, pass;

if (fopen ("C:\email.txt", "r")!=0)//открываем файл для чтения
{//если открылся
l:if (freadline(mail)!=0)//Читаем по целой строке пока не конец файла
{
messagebox(mail);
//Удалить прочитанную строку из email.txt


if(regexsearch(1, #log, mail, ".+(?=:)")) // Добавить всё что до :
{
messagebox(log);
}

if(regexsearch(1, #pass, mail, "(?<=:).+")) // Добавить всё что после :
{
messagebox(pass);
}

goto l;
}
fclose();//закрываем файл
}

Кубик прочитать в SFile

Кубик перезаписать SFile

String s;
находим строку до 1го перехода,
s=s1[0]+"^r";
regexreplace(-1, #SFile, SFile, s, "");//что нашли+убирает перевод строки
кубик записи

messagebox(SFile);

string PathToFile = "C:\TestFile.txt"; // путь к файлу

char Text[999999];
string First, WithoutFirst;

if(fopen(PathToFile, "rb"))
{
int k = freadb(#Text[0], sizearray(Text)); fclose();
if(k>0)
{
regexsearch(1, #First, format(#Text[0], k), ".+[\r\n]*");
messagebox("Первая строка:^r^n"+First);

if(fopen(PathToFile, "wb"))
{
regexreplace(1, #WithoutFirst, format(#Text[0], k), First, "");
messagebox("Оставшиеся строки:^r^n"+WithoutFirst);

strcpy(#Text[0], WithoutFirst);
fwriteb(#Text[0], size(#Text[0]));
fclose();
messagebox("Файл перезаписан без первой строки");
}
}
else messagebox("Файл пуст");
}
else messagebox("Файл не открылся");