Guardar un txt con formato UNIX

[dayrontbs]

Hola amigos, pues esto me urge la verdad, como puedo guardar una informacion que tengo en un MEMO en formato UNIX.

[Casimiro Notevi]

Empezado por dayrontbs

Hola amigos, pues esto me urge la verdad, como puedo guardar una informacion que tengo en un MEMO en formato UNIX.

Puedes quitarle los return -> chr(13) -> hex0D y dejarle sólo los avances de líneas -> chr(10) -> hex0A

Creo que hay una función ya para hacerlo automáticamente, aunque tampoco es muy complicado recorrer el texto e ir eliminando el #13

[[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!