【源码】指定字符分割字符串

13816600495

1. (defun cl-string-split (str string / m n f n1 n2 list1 list2 list3 list4 lst)
   
2.   (setq list1 (vl-string->list str) n1 (length list1) list2 (vl-string->list string) n2 (length list2) n 0 tt t)
   
3.   (while (nth n list2)
   
4.     (setq lst nil m (1- n))
   
5.     (repeat n1
   
6.       (setq lst (cons (nth (setq m (1+ m)) list2) lst))
   
7.     )
   
8.     (if (not (equal list1 (reverse lst)))
   
9.       (progn
   
10.         (setq list3 (cons (nth n list2) list3))
    
11.         (setq n (1+ n))
    
12.       )
    
13.       (progn   
    
14.         (if (= n 0) (setq list4 (cons "" list4)))
    
15.         (if (and f (= (- n f) n1)) (setq list4 (cons "" list4)))
    
16.         (setq f n n (+ n n1))
    
17.         (if list3 (setq list4 (cons (vl-list->string (reverse list3)) list4) list3 nil))
    
18.         (if (not (nth n list2)) (setq list4 (cons "" list4)))
    
19.       )
    
20.     )
    
21.   )
    
22.   (if list3 (setq list4 (cons (vl-list->string (reverse list3)) list4)))
    
23.   (reverse list4)
    
24. )

(defun cl-string-split (str string / m n f n1 n2 list1 list2 list3 list4 lst)<br />   (setq list1 (vl-string->list str) n1 (length list1) list2 (vl-string->list string) n2 (length list2) n 0 tt t)<br />   (while (nth n list2)<br />     (setq lst nil m (1- n))<br />     (repeat n1<br />       (setq lst (cons (nth (setq m (1+ m)) list2) lst))<br />     )<br />     (if (not (equal list1 (reverse lst))) <br />       (progn<br />         (setq list3 (cons (nth n list2) list3))<br />         (setq n (1+ n))<br />       )<br />       (progn    <br />         (if (= n 0) (setq list4 (cons "" list4)))<br />         (if (and f (= (- n f) n1)) (setq list4 (cons "" list4))) <br />         (setq f n n (+ n n1))<br />         (if list3 (setq list4 (cons (vl-list->string (reverse list3)) list4) list3 nil))<br />         (if (not (nth n list2)) (setq list4 (cons "" list4)))<br />       )<br />     )<br />   )<br />   (if list3 (setq list4 (cons (vl-list->string (reverse list3)) list4)))<br />   (reverse list4)<br /> )

->用法:
输入:str--指定的字符串
输入:string--要分割的字符串

->用法举例：
(defun c:pp ()
    (cl-string-split "--" "日期--2023--05--24")
)

->返回: ("日期" "2023" "05" "24")

czb203

2.    (DEFUN STR2LST (STR DEL / POS)
   
3.       (if (setq POS (VL-STRING-SEARCH DEL STR))
   
4.         (PROGN (CONS (SUBSTR STR 1 POS) (STR2LST (SUBSTR STR (+ POS 1 (STRLEN DEL))) DEL)))
   
5.         (PROGN (LIST STR))
   
6.       )
   
7.     )
   
8. 
   
9. (STR2LST "日期--2023--05--24" "--")
   
10. 
    
11. ->返回: ("日期" "2023" "05" "24")

   (DEFUN STR2LST (STR DEL / POS) <br />       (if (setq POS (VL-STRING-SEARCH DEL STR)) <br />         (PROGN (CONS (SUBSTR STR 1 POS) (STR2LST (SUBSTR STR (+ POS 1 (STRLEN DEL))) DEL)))<br />         (PROGN (LIST STR))<br />       )<br />     )<br /> <br /> (STR2LST "日期--2023--05--24" "--")<br /> <br /> ->返回: ("日期" "2023" "05" "24")

gzcsun

找到以前别人的
(defun ko->str-symlst (string strkey / po strlst xlen)
(setq xlen (1+ (strlen strkey)))
(while (setq po (vl-string-search strkey string))
(setq strlst (cons (substr string 1 po) strlst) string (substr string (+ po xlen))))
(reverse (cons string strlst)))

(ko->str-symlst "日期--2023--05--24" "--")

->返回: ("日期" "2023" "05" "24")

弥勒

;;;分割字串
  (defun gxl-StrParse (str del / pos lst)
    (while (setq pos (vl-string-search del str))
      (setq lst        (cons (substr str 1 pos) lst)
            str        (substr str (+ pos 1 (strlen del)))
      )
    )
    (if        (= " " Del)
      (vl-remove "" (reverse (cons str lst)))
      (reverse (cons str lst))
    )
  )

烟盒迷唇

写的太啰嗦了

你有种再说一遍

字符串之所以叫字符串,其实它是字符组合成的数组,结果lisp要反向切割...

llsheng_73

增强型字串分割处理
http://bbs.mjtd.com/forum.php?mo ... &fromuid=202795
(出处: 明经CAD社区)

1. (defun strsplit(str splits / i a b)
   
2.   (while(<""str)
   
3.     (if(vl-remove'nil(mapcar'(lambda(x)(vl-string-search x str))splits))
   
4.       (setq i(car(vl-sort(vl-remove'nil(mapcar'(lambda(x)(if(setq l(vl-string-search x str))(cons l x)))splits))
   
5.        '(lambda(s1 s2)(<(car s1)(car s2)))))
   
6.       a(cons(substr str 1(car i))a)b(cons(cdr i)b)
   
7.       str(substr str(+(car i)(strlen(cdr i))1)))
   
8.       (setq a(cons str a)b(cons "" b)str"")))
   
9.   (list(reverse a)(reverse b)))

(defun strsplit(str splits / i a b)<br />   (while(<""str)<br />     (if(vl-remove'nil(mapcar'(lambda(x)(vl-string-search x str))splits))<br />       (setq i(car(vl-sort(vl-remove'nil(mapcar'(lambda(x)(if(setq l(vl-string-search x str))(cons l x)))splits))<br />        '(lambda(s1 s2)(<(car s1)(car s2)))))<br />       a(cons(substr str 1(car i))a)b(cons(cdr i)b)<br />       str(substr str(+(car i)(strlen(cdr i))1)))<br />       (setq a(cons str a)b(cons "" b)str"")))<br />   (list(reverse a)(reverse b)))

(STRSPLIT "12+34分隔35-454,22,33-45" '("+""-""*"","";"" ""=""分隔"))
==>(("12" "34" "35" "454" "22" "33" "45") ("+" "分隔" "-" "," "," "-" ""))

13816600495

终于把大神都钓出来了

Klein

czb203 发表于 2024-5-25 21:33

递归用的妙啊，这个代码太简洁了！学习了！