Funktion zum Filtern von Zeichen in String

[klammerauf]

Hallo,

ich bin nochmals auf der Suche nach einer schönen Funktion.

Diesmal suche ich eine CharOnly() Funktion:

Code: Alles auswählen

cText := "A100X_12BdV"
CharOnly( cText, "AB_" ) -> "AB_"
CharOnly( cText, "012" ) -> "10012"

Gibt es vielleicht eine vorhandene Funktion, die das macht?

Danke im Voraus.

[Manfred]

Du hast doch schon den Namen genannt. Ist es nicht gleichnamige Funktion aus den alten Tools?

[Tom]

Das ist in zehn Minuten selbstgebaut. Zwei Strings, der eine enthält, was Du als „Character“ definiertst, der andere den Rest. Oder, einfacher: Wenn nur Ziffern so oder so extrahiert werden sollen, muss man nur die Quelle durchdackeln und entweder alles nehmen (und in einen Zielstring übertragen), das auch in der Zifferngruppe zu finden ist, oder das, was eben nicht in dieser Gruppe ist.

Code: Alles auswählen

FUNCTION CharOnly(c)
LOCAL cZiffern := „0123456789“, n, cTarget := „“
FOR n := 1 TO Len(c)
  IF !c[n] $ cZiffern
     cTarget += c[n]
  ENDIF
NEXT
RETURN c

Und dann noch die Gegenfunktion, oder ein zusätzlicher Parameter, der das festlegt - und ein bisschen mehr Eleganz ginge auch noch, aber das Leben ist kein Wunschkonzert.