删除不需要的字符
如何从该字符串中删除所有非字母字符？("" ("" "\"a1\"") ("" "\"a2\"") ("" "\"a3\"") ("" "\"a4\"") ("" "\"a5\"") ("" "\"a6\""))
提前谢谢你。 快速破解：
(defun foo ( l )
(cond
( (nulll) l)
( (listp l) (append (foo (car l)) (foo (cdr l))))
( (readl) (list (read l)))
)
)
_$ (foo '("" ("" "\"a1\"") ("" "\"a2\"") ("" "\"a3\"") ("" "\"a4\"") ("" "\"a5\"") ("" "\"a6\"")))
("a1" "a2" "a3" "a4" "a5" "a6") 另一个：
(defun bar ( l )
(read (strcat "(" (vl-string-translate "()" "" (vl-princ-to-string l)) ")"))
)
5 谢谢李 不客气！
页:
[1]