所有字符串表A 参考字符串B, A中包含B元素的归类

434939575

2. (defun c:tt ()
   
3.   (setq  all (list "aa11" "aa22"  "bb11" "bb22" "cc" "dd"  "ee" "ff" "gg"
   
4.       "hh" "ii")
   
5.   )
   
6.   (setq key (list "aa" "bb" "kk"))
   
7.   (setq all-app ())
   
8.   (setq app ())
   
9.   (foreach n key
   
10.     (mapcar '(lambda (x)
    
11.          (if (vl-string-search n x)
    
12.      (setq app (cons x app))
    
13.          )
    
14.        )
    
15.       all
    
16.     )
    
17.     (if  app
    
18.       (setq all-app (append all-app (list (reverse app))))
    
19.     )
    
20.     (setq app ())
    
21.   )
    
22.   all-app
    
23. )  ;;(("aa11" "aa22") ("bb11" "bb22"))

(defun c:tt ()<br />   (setq  all (list "aa11" "aa22"  "bb11" "bb22" "cc" "dd"  "ee" "ff" "gg"<br />       "hh" "ii")<br />   )<br />   (setq key (list "aa" "bb" "kk"))<br />   (setq all-app ())<br />   (setq app ())<br />   (foreach n key<br />     (mapcar '(lambda (x)<br />          (if (vl-string-search n x)<br />      (setq app (cons x app))<br />          )<br />        )<br />       all<br />     )<br />     (if  app<br />       (setq all-app (append all-app (list (reverse app))))<br />     )<br />     (setq app ())<br />   )<br />   all-app<br /> )  ;;(("aa11" "aa22") ("bb11" "bb22"))

你有种再说一遍

那么猛,直接O(n^2),不如调用VBA字典

434939575

你有种再说一遍 发表于 2025-1-1 20:04
那么猛,直接O(n^2),不如调用VBA字典

VBA不会玩

ynhh

看上去很好
不知用在什么地方
谢谢

434939575

ynhh 发表于 2025-1-1 23:32
看上去很好
不知用在什么地方
谢谢

我是用于过滤电话号码&#128513;&#128513;

tryhi

一行代码应该就够了
(setq  all (list "aa11" "aa22"  "bb11" "bb22" "cc" "dd"  "ee" "ff" "gg" "hh" "ii"))
(setq key (list "aa" "bb" "kk"))
(vl-remove nil(mapcar '(lambda(x)(vl-remove-if-not '(lambda(y)(vl-string-search x y))all))key))

434939575

tryhi 发表于 2025-1-2 09:48
一行代码应该就够了
(setq  all (list "aa11" "aa22"  "bb11" "bb22" "cc" "dd"  "ee" "ff" "gg" "hh" "ii ...

感谢大佬，这个确实厉害