Правка. Разбитие текста (Delphi).

[Taras2018]

Этот код делит файл на части.

И вот вопрос: Есть один минус и сразу вопрос: Как сделать что бы если количество строк не кратно количеству частей то последний файл меньше ?. То есть пусть все первые файлы равны, последний меньше.

Потому что в данном случае делит не правильно.

procedure TForm1.Button1Click(Sender: TObject);
const
  //Количество частей на которые надо разбить файл.
  N = 10;
var
  F1, F2 : File;
  i, SizePart, SizePartAdd : Cardinal;
  Buff : array of Byte;
begin
  if OpenDialog1.InitialDir = '' then begin
    OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
  end;
  if not OpenDialog1.Execute then Exit;
  if not FileExists(OpenDialog1.FileName) then begin
    ShowMessage('Указанный файл не найден. Действие отменено.');
    Exit;
  end;
 
  AssignFile(F1, OpenDialog1.FileName);
  Reset(F1, 1);
 
  if FileSize(F1) < N then begin
    ShowMessage('Указанный файл слишком мал. Разбиение отменено.');
    CloseFile(F1);
    Exit;
  end;
 
  SizePart := FileSize(F1) div N;
  SizePartAdd := FileSize(F1) mod N;
 
  SetLength(Buff, SizePart);
 
  for i := 1 to N do begin
    AssignFile(F2, OpenDialog1.FileName + '.part' + IntToStr(i));
    Rewrite(F2, 1);
    BlockRead(F1, Pointer(Buff)^, SizePart);
    BlockWrite(F2, Pointer(Buff)^, SizePart);
    if (i = N) and (SizePartAdd > 0) then begin
      BlockRead(F1, Pointer(Buff)^, SizePartAdd);
      BlockWrite(F2, Pointer(Buff)^, SizePartAdd);
    end;
    CloseFile(F2);
  end;
 
  CloseFile(F1);
end;

[evg_m]

Фактический число считанных записей сохраняется в дополнительной переменной RecordsRead. Она будет меньше чем RecordCount, если, например, был достигнут конец файла.

отсюда

[Serge_Bliznykov]

я бы попробовал банальное:

  SizePart := FileSize(F1) div N;

  SetLength(Buff, SizePart);

  i:=1;
  repeat
    AssignFile(F2, OpenDialog1.FileName + '.part' + IntToStr(i));
    Rewrite(F2, 1);
    BlockRead(F1, Pointer(Buff)^, SizePart, NumRead);
    BlockWrite(F2, Pointer(Buff)^, NumRead, NumWritten);
    CloseFile(F2);
    inc(i);
  until (NumRead = 0) or (NumWritten <> NumRead);

  CloseFile(F1);

p.s. и ещё раз повторю - отказывайтесь от BlockRead/BlockWrite - используйте класс TFileStream

[Taras2018]

Сообщение от Serge_Bliznykov

p.s. и ещё раз повторю - отказывайтесь от BlockRead/BlockWrite - используйте класс TFileStream

Пример можете подсказать ?

[Serge_Bliznykov]

Сообщение от Taras2018

Пример можете подсказать ?

да могу, конечно.
но зачем, если в интернете полно примеров!

http://www.arvifox.com/wp-content/up...lization-6.pdf

http://decoding.dax.ru/practic/cutfile/cutfile.html

https://delphicomponent.ru/403-rabot...-v-delphi.html

http://pro.dtn.ru/delphi-net/file3.html

не разберётесь, пишите, тогда кину сюда пример.

[Taras2018]

Сообщение от Serge_Bliznykov

да могу, конечно.
но зачем, если в интернете полно примеров!

Благодарю за помощь и подсказки. Сейчас буду читать и пробовать разобраться. Если не разберусь обязательно отпишу.

[min@y™]

Сообщение от Taras2018

Благодарю за помощь и подсказки. Сейчас буду читать и пробовать разобраться. Если не разберусь обязательно отпишу.

Чо за извращенец там тебя заставляет юзать старые паскальные файловые функции? Фото вредителя - в студию. Страна должна знать своих героев!

[Taras2018]

Сообщение от Serge_Bliznykov

да могу, конечно.
не разберётесь, пишите, тогда кину сюда пример.

Сообщение от min@y™

Чо за извращенец там тебя заставляет юзать старые паскальные файловые функции? Фото вредителя - в студию. Страна должна знать своих героев!

Тогда подскажите не извращенные функции для быстрого разбития файлов больших размеров. У меня получилось только сделать построчное чтение + разбитие, но за этого и скорость не очень. На большего у меня не хватает опыта....

[min@y™]

Сообщение от Taras2018

Тогда подскажите не извращенные функции для быстрого разбития файлов больших размеров. У меня получилось только сделать построчное чтение + разбитие, но за этого и скорость не очень. На большего у меня не хватает опыта....

тебе ж сказали

и ещё раз повторю - отказывайтесь от BlockRead/BlockWrite - используйте класс TFileStream

114.png

[Serge_Bliznykov]

Сообщение от Taras2018

На большего у меня не хватает опыта....

а почему Вы не ходили по ссылкам, которые я Вам дал?

если ходили, то объясните, чем ГОТОВАЯ программа - отсюда - http://decoding.dax.ru/practic/cutfile/cutfile.html

не устроила?

если не разобрались, то там внизу страницы есть "Пример к данной статье"
это ссылка на исходники проекта - cutfile.zip

Или Вам принципиально нужно, чтобы код написал именно я?

p.s. у меня эта программа разрезала файл размером 507164678 байт на 484 части по 1 Мб за 7 секунд. Это медленно?
Тогда уберите отображение процесса разбиения, будет в несколько раз быстрее.