solidbullet 发表于 2008-10-9 14:25:00

如何删除重复字符串

<p>((“1600X1600”&nbsp;&nbsp;&nbsp;“1600X1600” “1500x1500”.........))&nbsp; 如何变成 ((&nbsp;“1600X1600” “1500x1500”.........))&nbsp; !!!</p><p>多谢高手指点</p><p></p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </p>

jxlsp 发表于 2008-10-9 15:34:00

<p>(setq a'("1600X1600"&nbsp;&nbsp;&nbsp;"1600X1600" "1500x1500")&nbsp; b'())</p><p>(foreach x a (if(not(member x b))(setq b(append b(list x)))))</p><p>b</p>

solidbullet 发表于 2008-10-9 21:20:00

<p>谢谢大哥&nbsp; 我在网上看到另外一个朋友写的函数</p><p>(defun test (lst / a lst2)<br/>&nbsp; (while (setq a (car lst) lst2 (cons a lst2) lst (vl-remove a lst)))<br/>&nbsp; (reverse lst2)<br/>)</p>

198526 发表于 2011-6-11 16:28:38

学习了,谢谢!

tumu8420 发表于 2011-6-11 22:24:36

又学习了一招   
页: [1]
查看完整版本: 如何删除重复字符串