Ascii Zeichen aus einer Datei entfernen

[Namenloser]

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.