вырезать-вставить строки из файла?

[Levitt]

Напишите на скорую руку простенький скриптик, который бы при обращении вырезал из файл1.тхт ровно 10 строк, и вставлял бы их в файл2.тхт с чистого листа, с меня респект

 

[diavolic]

недолго думая:

<?
$fl = File ("файл1.тхт");
$f = fopen ("файл2.тхт", "w");
for ($i=0; $i<10; $i++)
fputs ($f, $fl[$i]);
fclose ($f);
?>

 

[Levitt]

недолго думая:

<?
$fl = File ("файл1.тхт");
$f = fopen ("файл2.тхт", "w");
for ($i=0; $i<10; $i++)
fputs ($f, $fl[$i]);
fclose ($f);
?>

Почти то, но если учесть что надо строки вырезать с файла1.. Т.е. В первом должно убавится во втором прибавится строк.

 

[diavolic]

Почти то, но если учесть что надо строки вырезать с файла1.. Т.е. В первом должно убавится во втором прибавится строк.

чорт не досмотрел. сейчас поправлюсь.

<? 
$fl = File ("файл1.тхт"); 
$f = fopen ("файл2.тхт", "w"); 
$f2 = fopen ("файл1.тхт", "w"); 

for ($i=0; $i<10; $i++) 
   fputs ($f, $fl[$i]); 

for ($i=10; $i<count($fl); $i++) 
   fputs ($f2, $fl[$i]); 

fclose ($f); 
fclose ($f2); 
?>

 

[dafnovoby]

Спасибо.. очень помогло