كيف ممكن أن أقرأ ملف text وأكتب محتواه في عدة ملفات أخرى

[محمد عبد العزيز]

يمكن اختزال تلك الأكواد واضافة سطر واحد للكود السابق ليصبح

PHP كود :

...
  Reset(MyFile); 
  i:=1; 
  AssignFile(NewFile,'C:\File'+inttostr(i)+'.txt'); 
  Rewrite(NewFile); 
Repeat 
  Readln(MyFile,Content); 
  if copy(Content,1,5)='-----' then Begin 
     Content:=''; 
     CloseFile(NewFile); 
     i := i + 1; 
     AssignFile(NewFile,'C:\File'+inttostr(i)+'.txt'); 
     Rewrite(NewFile); 
  End;
  
  if then copy(Content,1,3)<>'by:' then // هذا فقط
  Writeln(NewFile,Content); 
Until EOF(MyFile); 
CloseFile(MyFile); 
CloseFile(NewFile);