vielleicht sowas
(defun ENTHAELT-SONDERZEICHEN?(STRING SONDERZEICHENSTRING)
(> (length(vl-remove-if-not
'(lambda(X)
(member X (vl-string->list SONDERZEICHENSTRING))
)
(vl-string->list STRING)
)
)
0
)
)
(ENTHAELT-SONDERZEICHEN? " Alles ok " "*[[](){}<>?:\"|\\/*]*")
läßt du den length-vergleich weg , bekommst du sogar ne Liste mit den enthaltenen Sonderzeichen zurück ....
mit wcmatch auf Sonderzeichen prüfen muss ein ` vorangestellt werden
(wcmatch "N*ame" "*`**") -> T
(wcmatch "Name" "*`**") -> nil
und noch als Ergänzung:
(defun OHNESONDERZEICHEN(STRING SONDERZEICHENSTRING)
(setq A (vl-string->list SONDERZEICHENSTRING))
(apply
'strcat
(mapcar
'chr
(vl-remove-if
'(lambda(X)
(member X A)
)
(vl-string->list STRING)
)
)
)
)
------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP