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"
Danke im Voraus.
Moderator: Moderatoren
Code: Alles auswählen
cText := "A100X_12BdV"
CharOnly( cText, "AB_" ) -> "AB_"
CharOnly( cText, "012" ) -> "10012"
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