كيف ممكن أن أقرأ ملف 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;

  Writeln(NewFile,Content);
Until EOF(MyFile);
CloseFile(MyFile);
CloseFile(NewFile); 


مع اضافة متغير i من نوع Integer
وفرضا ان طول --- هو 5 وموجودة ببداية السطر