pomoc File Functions

[Fallen 0]

Guten Morgen !

Nazdar.

Našiel som pár dobrých idea na samp fóru čo si dať do módu, ale kedže nechcem byť COPY, tak si to chcem spraviť sám, btw. chyby jak v vody v mori. Snažil som sa spraviť niečo také, že číta riadky zo súboru, a ak ich je tam viac ako 10, tak riadky nad 10 zmaze. Skúšal som to cez fwrite a fread. Ale moja hlava na to nestačí.

Takže by som Vás tu chcel poprosiť o niaky ten príklad. Danke

Mám to ..:

fdeleteline(filename[], line)
{
  new count, string[256], File:file, File:temp;

  file= fopen(filename, io_read);
  temp = fopen("tmpfile.tmp", io_write);

  while (fread(file, string))
    if (++count != line)
      fwrite(temp, string);

  fclose(file);
  fclose(temp);

  file= fopen(filename, io_write);
  temp = fopen("tmpfile.tmp", io_read);

  while (fread(temp, string))
    fwrite(file, string);
	
  fclose(file);
  fclose(temp);
  fremove("tmpfile.tmp");
}

LOCK