如何通过关键字提取表中的元素？

zxj763209179

setq we ("a,123,111" "b,321,222" "c,345,333")如何通过关键字a提取a,123,111或关键字b提取b,321,222或关键字c提取c,345,333？

zxj763209179

自己先顶一下

USER2128

2. ;;; by USER2128:
   
3. (defun aaa (lst key)
   
4.   (car (vl-remove 'nil (mapcar '(lambda(x)
   
5.     (if (= (strcase (substr x 1 (strlen key))) (strcase key))
   
6.       x nil)) lst)))
   
7.   )
   
8. (setq lst '("a,123,111" "b,321,222" "c,345,333"))
   
9. ;;; (aaa lst "a,") ==> "a,123,111"
   
10. ;;; (aaa lst "B,") ==> "b,321,222"
    
11. ;;; (aaa lst "c")  ==> "c,345,333"
    

;;; by USER2128:<br /> (defun aaa (lst key)<br />   (car (vl-remove 'nil (mapcar '(lambda(x)<br />     (if (= (strcase (substr x 1 (strlen key))) (strcase key))<br />       x nil)) lst)))<br />   )<br /> (setq lst '("a,123,111" "b,321,222" "c,345,333"))<br /> ;;; (aaa lst "a,") ==> "a,123,111"<br /> ;;; (aaa lst "B,") ==> "b,321,222"<br /> ;;; (aaa lst "c")  ==> "c,345,333"<br />

lijiao

(cdr (assoc key (mapcar '(lambda(x) (cons (substr x 1 1) x)) lst)))

ivde

(car (vl-member-if '(lambda(x) (wcmatch x "a*")) lst))

zxj763209179

USER2128 发表于 2015-12-6 08:00

谢谢

zxj763209179

lijiao 发表于 2015-12-6 10:11
(cdr (assoc key (mapcar '(lambda(x) (cons (substr x 1 1) x)) lst)))

谢谢！！

zxj763209179

ivde 发表于 2015-12-6 10:46
(car (vl-member-if '(lambda(x) (wcmatch x "a*")) lst))

谢谢！！！

winerfjy

好东西值得分享