Zeichen entfernen

jamany · Beiträge: 73

Wie müsste ich folgenden PHP-Code in Delphi schreiben?

Quelltext

1:
2:
3:
4:

    $s=strtoupper($s);
    $search="/[^A-ZäöüÄÖÜß0-9 ,\.\&\-\+\*\%\/\$]/";
    $replace="";
    $s=preg_replace($search,$replace,$s);

Müsste eben aus einem String alle Zeichen entfernen, außer a-z, Umlaute, ß, und Ziffern...

wulfskin · Verfasst: So 30.03.03 16:45

Hallo Jamany!

Da es leider keine Regulären Ausdrücke in Delphi gibt, musst du das selber erledigen. Ich würde das so machen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function ReplaceChars(const S: String): String;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(S) do begin
    if not (S[I] in ['0'..'9', 'a'..'z', 'A'..'Z', 'ä'..'ü', 'Ä'..'Ü', 'ß') then
      Result := Result + S[I];
  end;
end;
// Ungetestet, keine Gewährleistung ;)

Gruß wulfskin!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme