遇到数字断开用来取前缀或者是尾缀

dcl1214

最近遇到多人画图的时候，每个人自己有一个代号，用来标注物料球，或者是图纸中某一些图形用特殊前缀加数字尾缀来做区分的情况，我在提取数据的时候，经常需要做分类，而且还要查漏补缺，所以，我写了一个遇到数字断开的函数

1. (defun $yu-dao-shu-zi-duan-kai$
   
2.        (str pos pos-fh / a go n-i s1 ss str-n str-num str->chrlist )
   
3.           ;遇到数字断开
   
4.           ;pos 正向还是反向,传入数字0代表从第一位开始，传入数字1代表从最后一位开始分析
   
5.           ;pos-fh 0代表从断开点往左的返回，1代表是从断开点往右的返回         
   
6.           ;($yu-dao-shu-zi-duan-kai$ "BD15A" 0 0)
   
7. 
   
8. (defun str->chrlist (str / lst carlst cadrlst relst)
   
9.                                         ;字符串转表，不是分割成表
   
10.   (AND str (setq lst (vl-string->list str)))
    
11.   (while lst
    
12.     (setq carlst (car lst))
    
13.     (setq cadrlst (cadr lst))
    
14.     (if        (< carlst 129)
    
15.       (progn (setq relst (cons (list carlst) relst))
    
16.              (setq lst (cdr lst))
    
17.       )
    
18.       (progn (setq relst (cons (list carlst cadrlst) relst))
    
19.              (setq lst (cddr lst))
    
20.       )
    
21.     )
    
22.   )
    
23.   (IF relst
    
24.     (mapcar 'vl-list->string (reverse relst))
    
25.   )
    
26. )
    
27.   (or pos (setq pos 0))
    
28.   (and str (setq ss (str->chrlist str)))
    
29.   (and (= pos 1) (setq ss (reverse ss)))
    
30.   (SETQ s1 NIL)
    
31.   (setq go t)
    
32.   (while (and go (setq a (car ss)))
    
33.     (if  (AND A
    
34.        (member a (list "0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))
    
35.   )
    
36.       (progn
    
37.   (setq go nil)
    
38.       )
    
39.       (setq s1 (cons a s1))
    
40.     )
    
41.     (if  go
    
42.       (setq ss (cdr ss))
    
43.     )
    
44.   )
    
45.   (setq s1 (reverse s1))
    
46.   (IF (= pos 1)
    
47.     (PROGN
    
48.       (setq ss (reverse ss))
    
49.       (AND S1 (setq s1 (reverse s1)))
    
50.     )
    
51.   )
    
52.   (OR
    
53.     (and ss (= pos-fh 1) (setq str-n (apply 'strcat ss)))
    
54.     (and ss (= pos-fh 0) (setq str-n (apply 'strcat s1)))
    
55.     (setq str-n (apply 'strcat s1))
    
56.   )
    
57.   str-n
    
58. )

(defun $yu-dao-shu-zi-duan-kai$<br />        (str pos pos-fh / a go n-i s1 ss str-n str-num str->chrlist )<br />           ;遇到数字断开<br />           ;pos 正向还是反向,传入数字0代表从第一位开始，传入数字1代表从最后一位开始分析<br />           ;pos-fh 0代表从断开点往左的返回，1代表是从断开点往右的返回          <br />           ;($yu-dao-shu-zi-duan-kai$ "BD15A" 0 0)<br /> <br /> (defun str->chrlist (str / lst carlst cadrlst relst)<br />                                         ;字符串转表，不是分割成表<br />   (AND str (setq lst (vl-string->list str)))<br />   (while lst<br />     (setq carlst (car lst))<br />     (setq cadrlst (cadr lst))<br />     (if        (< carlst 129)<br />       (progn (setq relst (cons (list carlst) relst))<br />              (setq lst (cdr lst))<br />       )<br />       (progn (setq relst (cons (list carlst cadrlst) relst))<br />              (setq lst (cddr lst))<br />       )<br />     )<br />   )<br />   (IF relst<br />     (mapcar 'vl-list->string (reverse relst))<br />   )<br /> )<br />   (or pos (setq pos 0))<br />   (and str (setq ss (str->chrlist str)))<br />   (and (= pos 1) (setq ss (reverse ss)))<br />   (SETQ s1 NIL)<br />   (setq go t)<br />   (while (and go (setq a (car ss)))<br />     (if  (AND A<br />        (member a (list "0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))<br />   )<br />       (progn<br />   (setq go nil)<br />       )<br />       (setq s1 (cons a s1))<br />     )<br />     (if  go<br />       (setq ss (cdr ss))<br />     )<br />   )<br />   (setq s1 (reverse s1))<br />   (IF (= pos 1)<br />     (PROGN<br />       (setq ss (reverse ss))<br />       (AND S1 (setq s1 (reverse s1)))<br />     )<br />   )<br />   (OR<br />     (and ss (= pos-fh 1) (setq str-n (apply 'strcat ss)))<br />     (and ss (= pos-fh 0) (setq str-n (apply 'strcat s1)))<br />     (setq str-n (apply 'strcat s1))<br />   )<br />   str-n<br /> )

tryhi

不错，不过一般用正则可能更简单，表达式写“\\D+”即可，然后 [1]就是往右，last就是最后一位开始

edsion24

持续关注。。。。。。。。。。。。。。。。

我爱lisp

暂时没有这个需求，不过鼓励分享