创建支持数量的过滤规则

tryhi

其实这个好几年就写了，之前只在明经群里发过，但是感觉好像用得比较少，由于用得很少，所以不知道有没有可能有BUG，欢迎各位找BUG或者直接优化
这个题目不知道怎么写好
假设我们需要做一个ssget，框选的文字是这样的规则
前面2-5个数字,然后一个小数点，后面1-2个数字,然后一个括号里面1-3个数字
如图，此时ssget写规则就显得有点力不从心了



此函数正是在这种情况下诞生，创建的规则同样支持wcmatch使用


创建过滤规则，支持数量(作者：tryhi-大海)
例子：选择前面2-5个数字,然后一个小数点，后面1-2个数字,然后一个括号里面1-3个数字
(ssget (list (cons 1 (try-wcmatch-N "#{2,5}`.#{1,2}(#{1,3})"))))

菜卷鱼

既然用得不多，为啥还要单独写一个那么复杂的呢？

1. (defun ss:n ()
   
2.   (setq aa '("##." "###." "####." "#####."))
   
3.   (setq bb '("#" "##"))
   
4.   (setq cc '("（#）" "（##）" "（###）"))
   
5.   (setq n1 (zuhe aa (zuhe bb cc)))
   
6.   (setq n2 (mapcar '(lambda (x) (apply 'strcat x)) n1))
   
7.   (ssget (list (cons 1 (strjoin n2 ","))))
   
8. )
   
9. ;;;字符串连接
   
10. (defun strjoin (lst del)
    
11.   (if (cdr lst)
    
12.     (strcat (car lst) del (strjoin (cdr lst) del))
    
13.     (car lst)
    
14.   )
    
15. )
    
16. ;;;两个表两两组合成新表
    
17. (defun zuhe (lst1 lst2 / i j a lst)
    
18.   (setq i 0)
    
19.   (repeat (length lst1)
    
20.     (setq a (nth i lst1))
    
21.     (if (atom a)(setq a (cons a nil)))
    
22.     (setq j 0)
    
23.     (repeat (length lst2)
    
24.       (setq b (nth j lst2))
    
25.       (if (atom b)(setq b (cons b nil)))
    
26.       (setq lst
    
27.        (append
    
28.          lst
    
29.          (list(append a b))
    
30.        )
    
31.       )
    
32.       (setq j (1+ j))
    
33.     )
    
34.     (setq i (1+ i))
    
35.   )
    
36.   Lst
    
37. )

(defun ss:n ()<br />   (setq aa '("##." "###." "####." "#####."))<br />   (setq bb '("#" "##"))<br />   (setq cc '("（#）" "（##）" "（###）"))<br />   (setq n1 (zuhe aa (zuhe bb cc)))<br />   (setq n2 (mapcar '(lambda (x) (apply 'strcat x)) n1))<br />   (ssget (list (cons 1 (strjoin n2 ","))))<br /> )<br /> ;;;字符串连接<br /> (defun strjoin (lst del)<br />   (if (cdr lst)<br />     (strcat (car lst) del (strjoin (cdr lst) del))<br />     (car lst)<br />   )<br /> )<br /> ;;;两个表两两组合成新表<br /> (defun zuhe (lst1 lst2 / i j a lst)<br />   (setq i 0)<br />   (repeat (length lst1)<br />     (setq a (nth i lst1))<br />     (if (atom a)(setq a (cons a nil)))<br />     (setq j 0)<br />     (repeat (length lst2)<br />       (setq b (nth j lst2))<br />       (if (atom b)(setq b (cons b nil)))<br />       (setq lst<br />        (append<br />          lst<br />          (list(append a b))<br />        )<br />       )<br />       (setq j (1+ j))<br />     )<br />     (setq i (1+ i))<br />   )<br />   Lst<br /> )

tryhi

菜卷鱼 发表于 2021-6-11 16:12
既然用得不多，为啥还要单独写一个那么复杂的呢？

用得不多这个没想到，当初的想法是直接代替的，但是由于变量无法用单引号，导致每次写ssget的时候就要list cons一堆，又觉得麻烦
就像我定义try-sort一样，就是完全替代掉sort，只是当时没想到每次都要写list+cons就觉得好麻烦，就用得特别少了，不过也可以发散一下，直接重定义ssget

zixuan203344

由于可能用得上，所以写了，由于比较难写，所以写了好几年了，由于写了好几年心里没底，所以用得比较少，由于用得少，所以不知道有没有BUG，由于想找bug，所以发一贴，由于发帖了，所以大家可能用得上，循环到头部，over……

664571221

海哥你就是我心中的大神

lxl217114

海哥你就是我心中的大神+1

alexmai

好像不能属性块文字，模糊搜索吧，能支持就完美

xujinhua

厉害ssget玩出花来

xj6019

海哥你就是我心中的大神+2

ymcui

高手好像不能属性块文字，模糊搜索吧，能支持就完美

nijiea123

这个能玩出花样来 不错

xudongchu

给力 还能这样玩