Partir Archivos

[jorge_mosquera]

Amigos, muchas gracias por las ideas que me han dado.
Le verdad SI he partido los archivos utilizando TStringList, y recorriendo el archivo original, y me ha funcionado muy bien, solo que es algo lento.

Definitivamente a nadie se le ocurre como utilizar blockread y blockwrite para este cometido?

gracias

[[basti]]

Trabajar con archivos de texto y blockread, es algo complicado, se me ocurre algo así, pero no sé si el rendimiento será superior al modelo con StringList:

Código Delphi [-]
  const
     MAX_REC_READ = 32000; // por ejemplo


  // copia aproximadamente los bytes de MAX_REC_READ
  // devuelve si no ha podido copiar todos
  function CopyFile(var forg, fdest : file) : boolean;
  var
    bytesLeidos : integer;
    buffer: array[1..MAX_REC_READ] of byte;
    bEOL : byte;

  begin
    Result := true;
    BlockRead(forg, buffer, MAX_REC_READ, bytesLeidos);
    BlockWrite(fdest, buffer, bytesLeidos);
    if bytesLeidos = MAX_REC_READ then // buscamos hasta el final del registro
    begin
       repeat
          BlockRead(forg, bEOL, 1, bytesLeidos);
          BlockWrite(fdest, bEOL, bytesLeidos);
       until eof(forg) or (bEOL = 10) // cambiar por 13 si el final de línea es sólo con #13;

    end
    else Result := false;
  end;

// programa principal
var
  forg, fdest : File;
  i : integer;
begin
  AssignFile(forg, 'origen.txt');
  Reset(forg, 1);
  i := 0;
  AssignFile(fdest, 'destino' + IntToStr(i) + '.txt');
  rewrite(fdest, 1);
  while CopyFile(forg, fdest) do
  begin
    CloseFile(fdest);
    inc(i);
    AssignFile(fdest, 'destino' + IntToStr(i) + '.txt');
    rewrite(fdest, 1);
  end;
  CloseFile(fdest);
  CloseFile(forg);
end.

[[seoane]]

Empezado por jorge_mosquera

Le verdad SI he partido los archivos utilizando TStringList, y recorriendo el archivo original, y me ha funcionado muy bien, solo que es algo lento.

No hubiera estado demás que mencionaras lo que habías intentado tu, así no hubiéramos perdido el tiempo. Incluso, tampoco hubiera sobrado un poco del código que utilizas.

De todas formas:

Código Delphi [-]
function Min(i,j: Integer): Integer;
begin
  if i < j then
    Result:= i
  else
    Result:= j;
end;

procedure Partir(Filename: string);
var
  Source, Dest: File;
  Size, Leidos, Escritos: Integer;
  Buffer: PChar;
begin
  AssignFile(Source,Filename);
  {$I-}
    Reset(Source,1);
  {$I+}
  if IOResult = 0 then
  try
    Size:= FileSize(Source) div 2;
    // Creamos un buffer de 1Mb
    GetMem(Buffer,1024 * 1024);
    try
      // Creamos el primer trozo
      AssignFile(Dest,Filename + '.001');
      {$I-}
        Rewrite(Dest,1);
      {$I+}
      if IOResult = 0 then
      try
        while (not Eof(Source)) and (Size > 0) do
        begin
          BlockRead(Source,Buffer^,Min(1024 * 1024,Size),Leidos);
          BlockWrite(Dest,Buffer^,Leidos,Escritos);
          dec(Size,Escritos);
        end;
        // Ajustamos el final de linea
        Buffer[0]:= #0;
        while (not Eof(Source)) and (Buffer[0] <> #10) do
        begin
          Buffer[0]:= #0;
          BlockRead(Source,Buffer^,1,Leidos);
          BlockWrite(Dest,Buffer^,Leidos,Escritos);
        end;
      finally
        CloseFile(Dest);
      end;
      // Creamos el segundo trozo
      AssignFile(Dest,Filename + '.002');
      {$I-}
        Rewrite(Dest,1);
      {$I+}
      if IOResult = 0 then
      try
        while not Eof(Source) do
        begin
          BlockRead(Source,Buffer^,1024 * 1024,Leidos);
          BlockWrite(Dest,Buffer^,Leidos,Escritos);
        end;
      finally
        CloseFile(Dest);
      end;
    finally
      FreeMem(Buffer);
    end;
  finally
    CloseFile(Source);
  end;
end;

// Por ejemplo
Partir('C:\Origen.txt');

[[egostar]]

Empezado por jorge_mosquera

Definitivamente a nadie se le ocurre como utilizar blockread y blockwrite para este cometido?

Empezado por seoane

No hubiera estado demás que mencionaras lo que habías intentado tu, así no hubiéramos perdido el tiempo. Incluso, tampoco hubiera sobrado un poco del código que utilizas.

De todas formas:

Pues ahi esta, seoane, que puedo decir, te las sabes de todas todas.

Me pregunto porque forzosamente con el Block Read/Write

Saludos.

[jorge_mosquera]

Muchas gracias amigos por darme una luz en la solucion del problema. Lamento no haberme expresado bien desde el principio y no comentarles todo lo que habia intentado previamente.

¿Porque BlockRead y BlockWrite ? Porque por lo que he visto, y leido, es super eficiente, y eso es lo que busco con mis programas.

Reciban un fuerte abrazo desde mi hermosa tierra colombiana.

Gracias