Guardar un txt con formato UNIX

[[seoane]]

Hoy tengo ganas de programar :

Código Delphi [-]
function SaveToUnixFile(Filename, Text: String): Boolean;
var
  F: File;
  Escritos: Integer;
begin
  Result:= FALSE;
  AssignFile(F,Filename);
  {$I-}
    Rewrite(F,1);
  {$I+}
  if IOResult = 0 then
  begin
    Text:= StringReplace(Text,#13,EmptyStr,[rfReplaceAll]);
    BlockWrite(F,PChar(Text)^,Length(Text),Escritos);
    Result:= Escritos = Length(Text);
    CloseFile(F);
  end;
end;


// Por ejemplo
SaveToUnixFile('C:\1.txt',Memo1.Text);

[roman]

Otra opción:

Código Delphi [-]
procedure SaveToUnix(FileName, Text: String);
var
  Stream: TFileStream;
  Buffer: String;

begin
  Buffer := AdjustLineBreaks(Text, tlbsLF);

  Stream := TFileStream.Create(FileName, fmCreate);
  try
    Stream.WriteBuffer(Buffer[1], Length(Buffer));
  finally
    Stream.Free;
  end;
end;

// Saludos

[[seoane]]

Otra mas:

Código Delphi [-]
function SaveToUnixFile(Filename, Text: String): Boolean;
var
  F: File;
  Escritos: Integer;
  P1, P2: PChar;
  i: Integer;
begin
  P1:= PChar(Text);
  P2:= P1;
  i:= 0;
  while Boolean(P2^) do
  begin
    if P2^ <> #13 then
    begin
      P1^:= P2^;
      inc(P1);
      inc(i);
    end;
    inc(P2);
  end;
  Result:= FALSE;
  AssignFile(F,Filename);
  {$I-}
    Rewrite(F,1);
  {$I+}
  if IOResult = 0 then
  begin
    BlockWrite(F,PChar(Text)^,i,Escritos);
    Result:= Escritos = i;
    CloseFile(F);
  end;
end;

[dec]

Hola,

Otra opción más:

Código Delphi [-]
{ Not yet implement }

¡Cómo está el personal, oiga!

[roman]

Tengo la impresión de que la próxima de seoane va a lucir así:

Código Delphi [-]
function SaveToUnixFile(Filename, Text: String): Boolean;
asm

...

end;

// Saludos

[[Héctor Randolph]]

Al parecer este hilo va tomando esta forma:

The Evolution of Programmer

Saludos

[[seoane]]

Empezado por roman

Tengo la impresión de que la próxima de seoane va a lucir así:

Código Delphi [-]
function SaveToUnixFile(Filename, Text: String): Boolean;
asm

...

end;

// Saludos

Lo pensé, pero creo que voy a dejarlo así

[roman]

Por fin he podido parar de reir con el enlace de Héctor

No te detengas hombre. La verdad es que este tipo de rutinas pueden ser muy útiles y si se requieren para procesar muchos archivos y grandes, hacerlo en ensamblador puede ser una muy buena idea.

Por cierto, en un programa que uso, tiene la opción de guardar además en formato Mac. En PC tenemos #13#10, en Unix tenemos #10, ¿cómo es en Mac? ¿El #13 solito? ¿#10#13?

// Saludos