toribio

stock EraseLine(filename[], line_number)
{
    new File:temp = fopen("temp.tmp", io_write),
        File:pfile = fopen(filename, io_read),
        line, tmp[256];

    if(!fexist(filename))
        return 0;

    while(fread(pfile, tmp))
    {
        if(++line == line_number) //o "line" precisa come�ar com o valor 1, linhas come�am em 1
            continue;
        fwrite(temp, tmp);
    }
    fclose(temp);
    fclose(pfile);
    fremove(filename);
    temp = fopen("temp.tmp", io_read);
    pfile = fopen(filename, io_write);
    while(fread(temp, tmp))
        fwrite(pfile, tmp);
    fclose(temp);
    fclose(pfile);
    fremove("temp.tmp");
    return 1;
}