Partir Archivos

[[seoane]]

Efectivamente egostar, parece que la instrucción FileSize no funciona muy bien con los archivos de texto. Pero todo tiene solución:

Código Delphi [-]
var
  Str: String;
  Source, Dest: TextFile;
  Size: Integer;
  F: File;
begin
  Size:= 0;
  // Abrimos el archivo sin tipo para averiguar su tamaño en bytes
  AssignFile(F,'C:\Origen.txt');
  {$I-}
    Reset(F,1);
  {$I+}
  if IOResult = 0 then
  begin
    Size:= FileSize(F) div 2;
    CloseFile(F);
  end;
  // Ahora abrimos el archivo como texto
  AssignFile(Source,'C:\Origen.txt');
  {$I-}
    Reset(Source);
  {$I+}
  if IOResult = 0 then
  begin
    // Creamos el primer trozo
    AssignFile(Dest,'C:\Trozo1.txt');
    {$I-}
      Rewrite(Dest);
    {$I+}
    if IOResult = 0 then
    begin
      while (not Eof(Source)) and (Size > 0) do
      begin
        Readln(Source,Str);
        Writeln(Dest,Str);
        dec(Size,Length(Str)+2);
      end;
      CloseFile(Dest);
    end;
    // Creamos el segundo trozo
    AssignFile(Dest,'C:\Trozo2.txt');
    {$I-}
      Rewrite(Dest);
    {$I+}
    if IOResult = 0 then
    begin
      while not Eof(Source) do
      begin
        Readln(Source,Str);
        Writeln(Dest,Str);
      end;
      CloseFile(Dest);
    end;
    CloseFile(Source);
  end
end;

[[egostar]]

Hombre, pues quedo de 10.

Hice dos pruebas.

1. Con lineas pares, es decir, 12 lineas

Creo los dos archivos con 6 lineas cada uno, perfecto.

2. Con lineas impares, 11 lineas

Debo reconocer que pense mal, pense que en lineas impares habria un bug y partiria una linea a la mitad, pero no, sorpresa, deja 6 lineas en uno y 5 lineas en el segundo.

Saludos y mis respetos

[[seoane]]

Y para dar mas alternativas. Probemos con TStringList:

Partiendo el archivo por numero de lineas:

Código Delphi [-]
var
  Origen, Destino: TStringList;
  i: integer;
begin
  Origen:= TStringList.Create;
  try
    Destino:= TStringList.Create;
    try
      Origen.LoadFromFile('C:\Origen.txt');
      for i:= 0 to Origen.Count div 2 do
        Destino.Add(Origen[i]);
      Destino.SaveToFile('C:\Trozo1.txt');
      Destino.Clear;
      for i:= (Origen.Count div 2) + 1 to Origen.Count - 1 do
        Destino.Add(Origen[i]);
      Destino.SaveToFile('C:\Trozo2.txt');
    finally
      Destino.Free;
    end;
  finally
    Origen.Free;
  end;
end;

y por tamaño en bytes:

Código Delphi [-]
var
  Origen, Destino: TStringList;
  i, Size: integer;
begin
  Origen:= TStringList.Create;
  try
    Destino:= TStringList.Create;
    try
      Origen.LoadFromFile('C:\Origen.txt');
      Size:= Length(Origen.Text) div 2;
      i:= 0;
      while (i < Origen.Count) and (Size > 0) do
      begin
        Destino.Add(Origen[i]);
        dec(Size,Length(Origen[i])+2);
        inc(i);
      end;
      Destino.SaveToFile('C:\Trozo1.txt');
      Destino.Clear;
      while i < Origen.Count do
      begin
        Destino.Add(Origen[i]);
        inc(i);
      end;
      Destino.SaveToFile('C:\Trozo2.txt');
    finally
      Destino.Free;
    end;
  finally
    Origen.Free;
  end;
end;

Las ventaja de usar TStringList es que el se encarga de corregir los posibles problemas con los retornos de carro. La desventaja es el intenso trabajo sobre la memoria.