Dostounix

[bernhard_LA]

Hat jemand mal ein schöne Implementierung für DOSTOUNIX ??

UNIX2DOS habe ich schon

Delphi-Quellcode:

procedure Unix2Dos(UnixTEXTFile, DosTEXTFile : String);
Const CR : Char = #13;
      LF = #10;
Var InFile, OutFile : File;
    InByte : Char;

begin
  Assign (InFile,  UnixTEXTFile); ReSet   (InFile,  1);
  Assign (OutFile, DosTEXTFile); ReWrite (OutFile, 1);
  while NOT EOF (InFile) do
    begin
      BlockRead  (InFile,  InByte, 1);
      if InByte = LF then BlockWrite (OutFile, CR, 1);
      BlockWrite (OutFile, InByte, 1);
    end;
  Close (OutFile);
  Close (InFile);
end;

[Mikkey]

Wenn es bei dem Muster bleiben soll:

Delphi-Quellcode:

      if InByte <> CR then
        BlockWrite (OutFile, InByte, 1);

Macht allerdings keinen besonders performanten Eindruck.

[guinnes]

Zitat von bernhard_LA:

Hat jemand mal ein schöne Implementierung für DOSTOUNIX ??

UNIX2DOS habe ich schon

Delphi-Quellcode:

procedure Unix2Dos(UnixTEXTFile, DosTEXTFile : String);
Const CR : Char = #13;
      LF = #10;
Var InFile, OutFile : File;
    InByte : Char;

begin
  Assign (InFile,  UnixTEXTFile); ReSet   (InFile,  1);
  Assign (OutFile, DosTEXTFile); ReWrite (OutFile, 1);
  while NOT EOF (InFile) do
    begin
      BlockRead  (InFile,  InByte, 1);
      if InByte = LF then BlockWrite (OutFile, CR, 1);
      BlockWrite (OutFile, InByte, 1);
    end;
  Close (OutFile);
  Close (InFile);
end;

Warum solch einen Zirkus ? In eine Stringliste einlesen und mit SaveToFile wieder speichern und gut ist

[Sir Rufo]

Vor allem macht das Sinn, wenn man eine Textdatei mit einem Multibyte-Encoding verarbeiten will