Ascii Zeichen aus einer Datei entfernen

[DBasner]

Hallo vielleicht könnt ihr mir ein paar Ratschläge geben.

Ich habe eine Ursprungsdatei als DAT vorliegen in dieser befinden sich neben normalen Text auch Ascii zeichen, die ich entfernen möchte bzw. umbenennen. Das ganze soll dann wieder als TXT gespeichert werden.

Wie könnte ich dieses unkompliziert realisieren?

:?:

[DeddyH]

Hallo und Willkommen in der DP :dp:,

das müsste mit StringReplace zu machen sein, wenn ich mich nicht irre.

[DBasner]

Oh. :wink:

Vielen Dank für die schnelle Antwort, das werde ich gleich einmal ausprobieren.

[Phoenix]

Zitat:

Zitat von DBasner

in dieser befinden sich neben normalen Text auch Ascii zeichen

Ich möchte jetzt nicht den Klugscheißer raushängen lassen, aber Dein 'normaler Text' wird in Deinem Fall unter garantie auch in ASCII-Zeichen codiert sein. Wenn Du alle ASCII-Zeichen entfernst ist logischerweise die Datei leer.

[DBasner]

Ja das hatte ich wohl etwas falsch ausgedrückt. Aber ich denke das man erkannt hat worum es geht.

[Bernhard Geyer]

Zitat:

Zitat von DBasner

Ja das hatte ich wohl etwas falsch ausgedrückt. Aber ich denke das man erkannt hat worum es geht.

Nicht unbedingt. Um welche Zeichen handelt es sich denn? Evtl. ist dein Ansatz für das Problem nicht geeignet.

[DBasner]

Code:

”

Es handelt sich um solche Zeichen, die ich aus der Datei entfernen will.

[Namenloser]

Zitat:

Zitat von DBasner

Ja das hatte ich wohl etwas falsch ausgedrückt. Aber ich denke das man erkannt hat worum es geht.

Nicht wirklich. Was heißt für dich "Text"? Buchstaben von A-Z? Und vergiss nicht, dass "Ascii-Zeichen" auch in Binärdaten vorkommen.

Delphi-Quellcode:

function FilterChars(const s: string; Allowed: Set of Char): string;
var
  LIndex: integer;
  i: integer;
begin
  SetLength(result,length(s));
  LIndex := 0;
  for i := 1 to Length(s) do
  begin
    if (s[i] in Allowed) then
    begin
      inc(LIndex);
      result[LIndex] := s[i];
    end;
  end;
  SetLength(result,LIndex);
end;

function FilterText(const s: string): string;
begin
  result := StripChars(s, ['A'..'Z','a'..'z']);
end;

So könnte das funktionieren, wenn ich dich richtig verstehe.

[DeddyH]

Nun macht doch keine Wissenschaft daraus. Angenommen, er hat eine Textdatei, die mit UNIX erstellt wurde. Diese verwendet dann statt CRLF nur LF, was in Notepad dann blöde aussieht. Das ließe sich mit

Delphi-Quellcode:

StringVar := StringReplace(StringVar,#10,#13#10,[rfReplaceAll]);

bereinigen, wenn es nicht unbedingt auf Geschwindigkeit ankommt.

[DBasner]

Vielen Dank für die vielen Hilfestellung.

:)