Fichero de Texto Enorme

[muli]

Te refieres a cargarlo en un componente Memo, RichEdit, etc, y luego cortarlo como yo quiera. El tema es que lo he cargado en un Memo y tambien en un RichEdit, pero ahora estoy parado no se como cortarlo por ejemplo a 100 caracteres por linea.

Gracias.

Saludos.

[[cHackAll]]

Empezado por muli

Te refieres a cargarlo en un componente Memo, RichEdit, etc, y luego cortarlo como yo quiera. El tema es que lo he cargado en un Memo y tambien en un RichEdit, pero ahora estoy parado no se como cortarlo por ejemplo a 100 caracteres por linea.

Gracias.

Saludos.

Espero no salirme por la tangente pero se me ocurre;

Código Delphi [-]
var Buffer: array [0..666] of Char;
procedure TForm1.ButtonClick(Sender: TObject);
var hFile, Size: Integer;
begin
 hFile := _lopen('archivo.txt', OF_READ);
 if hFile = -1 then Exit; // Error de apertura
 repeat Size := _lread(hFile, @Buffer, SizeOf(Buffer) - 1); // Leemos cada N caracteres
  Buffer[Size] := #0;
  if LongBool(Size) then 
   mysql_query(Handle, PChar('insert into noseque values ('+#39+@Buffer+#39+')')); // Por ejemplo.
 until Size < (SizeOf(Buffer) - 1);
 CloseHandle(hFile);
end;

Espero no hayan muchos errores pues no tenga el Delphi a la mano; pero la idea es leer cada cierta cantidad de bytes del archivo e ir insertandolos a la BD

Suerte.

[muli]

Supongo que el array [0..666] son los caracteres a los que quiero cortar.

Lo he probado del siguiente modo:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
Var hFile, Size: Integer;
    Buffer : Array [0..200] Of Char;

begin
 If OpenDialog1.Execute Then
 Begin
   hFile := _lopen(PChar(OpenDialog1.FileName), OF_READ);
   if hFile = -1 then Exit; // Error de apertura
   repeat Size := _lread(hFile, @Buffer, SizeOf(Buffer) - 1); 
    Buffer[Size] := #0;
    if LongBool(Size) then
    Memo2.Lines.Add(PChar(@Buffer)); // Por ejemplo.
 until Size < (SizeOf(Buffer) - 1);
 CloseHandle(hFile);
 end;
End;

Y Cortando a 120 caracteres el fichero correspondiente, lo hace perfectamente, pero el de 200 me cae en bucle, y no se por que.

[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var hFile, Size, Count: Integer;  Buffer : Array [0..200] Of Char;
begin
 if OpenDialog1.Execute Then
  begin
   hFile := _lopen(PChar(OpenDialog1.FileName), OF_READ);
   if hFile = -1 then Exit;
   Size := GetFileSize(hFile, nil);
   while LongBool(Size) do
    begin
     Count := SizeOf(Buffer) - 1;
     if Size < Count then Count := Size;
     Dec(Size, _lread(hFile, @Buffer, Count));
     Buffer[Count] := #0;
     Memo2.Lines.Add(PChar(@Buffer));
    end;
  CloseHandle(hFile);
 end;
end;