字符串分割-----------集中营

434939575

感谢分享，我也变人员收集了

sxwc

真心看不懂，太复杂了  

表骑马实开车

黄老师的东西，都是精华

magicheno

感谢大佬分享

菜卷鱼

1. (defun split2 (str sp / str1)
   
2.   (cond
   
3.     ((= str nil) nil)
   
4.     ((= sp nil) nil)
   
5.     ((= str "") "")
   
6.     ((= sp "") str)
   
7.     (t
   
8.      (setq str1 (strcat "((\"" str "\"))"))
   
9.      (while (vl-string-search sp str1)
   
10.        (setq str1 (vl-string-subst "\")(\"" sp str1))
    
11.      )
    
12.      (apply 'append (read str1))
    
13.     )
    
14.   )
    
15. )

(defun split2 (str sp / str1)<br />   (cond<br />     ((= str nil) nil)<br />     ((= sp nil) nil)<br />     ((= str "") "")<br />     ((= sp "") str)<br />     (t<br />      (setq str1 (strcat "((\"" str "\"))"))<br />      (while (vl-string-search sp str1)<br />        (setq str1 (vl-string-subst "\")(\"" sp str1))<br />      )<br />      (apply 'append (read str1))<br />     )<br />   )<br /> )

ziyouwzb

感谢分享，收藏下来好好学习一下。