替换的问题

xiaoliu

利用subst将表中所有相同的old项都换成了new项,但是如果我只想换一个怎么实现呢,


换 ( a, b ,c , b) 为 ( a , mmm, c, b)谢谢各位了

meflying

只能通过循环重新生成一个表

无痕

(defun subst1 (item subitem lst)
(setq i -1 n (vl-position item lst))
(mapcar '(lambda(x) (if (= n (setq i (1+ i))) subitem x)) lst)
)
(subst1 "b" "ok" (list "a" "b" "c" "b" "e")) -> ("a" "ok" "c" "b" "e")

meflying

假如想换掉后面的b呢？

秋枫

先Reverse一下，处理完再Reverse回来。


       


:)

无痕

1，如果只是想换“最后”的b，可先将lst 倒转，用 reverse


2，如果有多个b，必须指定是第几个b。那么要另外写一段程序。