表按指定顺序排列,特殊用途.

77077 · 发表于 2014-8-30 21:52:29

求高手帮忙啊!

(defun sortl (l1 l2 / x l)
(setq l '())
(if (= (length l1)(length l2))
(while (setq x (car l2))
(setq l (cons (assoc x l1) l)
l2 (cdr l2)
)
)
)
(reverse l)
)
;测试测试
(sortl '(("赵" ("赵老大" "赵老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")) ("钱" ("钱老大" "钱老二"))) '("赵" "钱" "孙" "李"))
;==>(("赵" ("赵老大" "赵老二")) ("钱" ("钱老大" "钱老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")))

Gu_xl · 发表于 2014-8-31 09:03:09

(vl-sort '(("赵" ("赵老大" "赵老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")) ("钱" ("钱老大" "钱老二")))
'(lambda (a b) (< (VL-POSITION (car a) '("赵" "钱" "孙" "李")) (VL-POSITION (car b) '("赵" "钱" "孙" "李")))))

自贡黄明儒 · 发表于 2014-9-15 16:04:04

Gu_xl 发表于 2014-8-31 09:03

老大，好象不能按("赵" "钱" "孙" "李")排序

Gu_xl · 发表于 2014-9-15 16:38:39

自贡黄明儒发表于 2014-9-15 16:04
老大，好象不能按("赵" "钱" "孙" "李")排序

结果：
(("赵" ("赵老大" "赵老二")) ("钱" ("钱老大" "钱老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")))
不对么？

自贡黄明儒 · 发表于 2014-9-15 16:46:39

Gu_xl 发表于 2014-9-15 16:38
结果：
(("赵" ("赵老大" "赵老二")) ("钱" ("钱老大" "钱老二")) ("孙" ("孙老大" "孙老二")) ("李" (" ...

刚才在05下运行确实不对，现在重启cad运行，正常了

Gu_xl · 发表于 2014-9-15 18:27:44

自贡黄明儒发表于 2014-9-15 16:46
刚才在05下运行确实不对，现在重启cad运行，正常了

估计你是看花眼了吧！这可不是段誉的六脉神剑，时灵时不灵！

llsheng_73 · 发表于 2014-9-22 02:41:24

本帖最后由 llsheng_73 于 2014-9-22 02:46 编辑

不用排序的一个办法，估计不如用位置排序来得快

(mapcar'(lambda(x)(vl-remove-if-not'(lambda(y)(=(car y)x))'(("赵" ("赵老大" "赵老二")) ("孙" ("孙老大" "孙老二")) ("李" ("李老大" "李老二")) ("钱" ("钱老大" "钱老二")))))'("赵" "钱" "孙" "李"))

如果用assoc不用vl-remove-if的话，当有多个的时候只能取到先出现的那个,比如下边这样就不能返回所有结果
(mapcar'(lambda(x)(assoc x'(("赵" ("赵老大" "赵老二"))("李" ("李老三" "李老四")) ("孙" ("孙老大" "孙老二"))
("赵" ("赵老四" "赵老三")) ("李" ("李老大" "李老二")) ("钱" ("钱老大" "钱老二")))))'("赵" "钱" "孙" "李"))

wayne_myles · 发表于 2015-7-22 16:17:10

都是高手，我就是来看看的

yhly555 · 发表于 2016-10-7 12:52:41

Gu_xl 发表于 2014-8-31 09:03

类似的问题，可以实现按字母升序或降序来对字符串表进行排列吗？

账号		自动登录	找回密码
密码			注册

[提问] 表按指定顺序排列,特殊用途.

本帖被以下淘专辑推荐:

评分