请教前辈，表处理及排序问题
[*]想请教一个表处理的问题，有一个列表lst(("70%%dC常开防火阀" "250x200" "2") ("70%%dC常开防火阀" "250x200" "3") ("dxg" "0.6" "0.05") ("dxg" "0.5" "0.15") ("dxg" "0.6" "0.55") ("dxg" "0.5" "0.33")等等还有好多)
[*]需要处理：当列表某两个子表的前两个元素相同时，则最后一个元素相加
[*]lst第一步想处理为(("70%%dC常开防火阀" "250x200" "5")("dxg" "0.6" "0.6") ("dxg" "0.5" "0.47")等等还有好多)
[*]
[*]然后还想对列表按照第一个元素（"dxg" "70%%dC常开防火阀" 等等）的特定顺序规则排序
[*]
[*]lst最终想处理为( ("dxg" "0.5" "0.47") ("dxg" "0.6" "0.6")("70%%dC常开防火阀" "250x200" "5") 等等还有好多)
本帖最后由 llsheng_73 于 2022-12-23 16:44 编辑
(defun tt(lst sorts / l a b c)
(while lst
(setq a(car lst)b(list(vl-position(Car a)sorts)(car a)(cadr a))lst(cdr lst))
(if(setq c(assoc b l))
(setq l(cons(list b(+(atof(caddr a))(cadr c)))(vl-remove c l)))
(setq l(cons(list b(atof(caddr a)))l))))
(mapcar(function(lambda(x)(list(cadar x)(caddar x)(rtos(cadr x)2))))
(vl-sort l(function(lambda(x y)(if(=(caar x)(caar y))
(<(Caddar x)(Caddar y))
(<(Caar x)(caar y))))))))
(setvar 'dimzin 8)
(setq sorts'("dxg""70%%dC常开防火阀"))
(tt'(("70%%dC常开防火阀" "250x200" "2")("dxg" "0.6" "0.05")("70%%dC常开防火阀" "250x300" "2")("dxg" "0.5" "0.15")
("70%%dC常开防火阀" "250x300" "1")("dxg" "0.5" "0.33")("dxg" "0.6" "0.55")("70%%dC常开防火阀" "250x200" "3"))
'("dxg""70%%dC常开防火阀"))
=>(("dxg" "0.5" "0.48") ("dxg" "0.6" "0.6") ("70%%dC常开防火阀" "250x200" "5") ("70%%dC常开防火阀" "250x300" "3"))
要用于数值计算的项不宜搞成字符串，额外增加处理过程。。。如果原表中最后的数值不是字符串，处理可以更简单，至少不必用atof或rtos去转换
llsheng_73 发表于 2022-12-23 16:38
(setvar 'dimzin 8)
(setq sorts'("dxg""70%%dC常开防火阀"))
(tt'(("70%%dC常开防火阀" "250x200" "2" ...
谢谢前辈，确实不是字符串 只看到你说需求，没看到你的问题在哪里，这就按部就班递归就好了 本帖最后由 和尚777 于 2022-12-23 09:44 编辑
111111111111111111 个人感觉先排序再消重好些。 和尚777 发表于 2022-12-23 09:42
111111111111111111
谢谢前辈，先学习一下 MXS 发表于 2022-12-23 10:39
谢谢前辈，先学习一下
您好方便贴一下hs-1stjoin这个函数吗？ wowan1314 发表于 2022-12-23 09:47
个人感觉先排序再消重好些。
重出江湖啦，把您的好东西展示一下也行呀。 wowan1314 发表于 2022-12-23 09:47
个人感觉先排序再消重好些。
前辈，分享点好东西吧{:1_1:}
页:
[1]
2