Ich habe auch ein super Programm von Holger Brischke
es funktioniert auch Perfekt. Danke für die Hilfe
Gruß
Roy
(defun c:StringteilerTest (/ TEXT antw TRENNER)
(setq TEXT(getstring "\nText eingeben: ")
)
(while (/= ""(setq antw (getstring "\nTrennzeichen eingeben:")))
(setq TRENNER (cons (substr antw 1 1) TRENNER))
)
(STR:TRENN TEXT TRENNER)
)
(defun STR:TRENN (TEXT TRENNER / TEXTLI)
(setq TEXTLI (list TEXT))
(foreach TRENN TRENNER
(setq TEXTLI (flatten(mapcar '(lambda (TXT)
(do:TRENN TXT TRENN)
)
TEXTLI
)))
)
(vl-remove "" TEXTLI)
)
(defun flatten(liste / )
;von Axel Strube-Zettler. Danke!
(cond
((null liste)nil)
((atom liste)(list liste))
(1(append(flatten(car liste))(flatten(cdr liste))))
)
)
(defun do:TRENN (TEXT ZEICHEN / POS VTEXT NTEXT)
(if (wcmatch TEXT (strcat "*"ZEICHEN"*"))
(progn
(setq POS (vl-string-position (ascii ZEICHEN) TEXT)
VTEXT (substr TEXT 1 POS)
NTEXT (substr TEXT (+ POS 2))
)
(mapcar '(lambda (TXT)
(do:TRENN TXT ZEICHEN)
)
(list VTEXT NTEXT)
)
)
TEXT
)
)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP