如何删除重复字符串
 

如何删除重复字符串
www.dimcax.com
如何删除重复字符串
（（“1600x1600” “1600x1600” “1500x1500”.........)) 如何变成 （（ “1600x1600” “1500x1500”.........)) ！！！
多谢高手指点

d
(setq a'("1600x1600" "1600x1600" "1500x1500") b'())
(foreach x a (if(not(member x b))(setq b(append b(list x)))))
b
d
谢谢大哥 我在网上看到另外一个朋友写的函数
(defun test (lst / a lst2)
(while (setq a (car lst) lst2 (cons a lst2) lst (vl-remove a lst)))
(reverse lst2)
)
d