[LISP函数]：定界符分割文字成表

taner

定界符分割文字成表

2. 
   
3.   [FONT=courier new]
   
4. (defun txt-str-split (str x / lst n str-n xlen)
   
5.   (setq xlen (strlen x))
   
6.   (while (setq n (vl-string-search x str))
   
7.     (setq str-n (substr str 1 n))
   
8.     (if        (/= str-n "")
   
9.       (setq lst (cons str-n lst))
   
10.     )
    
11.     (setq str (substr str (+ 1 xlen n)))
    
12.   )
    
13.   (if (/= str "")
    
14.     (setq lst (cons str lst))
    
15.   )
    
16.   (reverse lst)
    
17. )
    
18. (defun ybl-str-parse (str delimiter / post strlst sl);eachy
    
19.   (if str
    
20.     (progn
    
21.       (setq strlst '()
    
22.             sl           (+ (strlen delimiter) 1)
    
23.       )
    
24.       (while (vl-string-search delimiter str)
    
25.         (setq post (vl-string-search delimiter str))
    
26.         (setq strlst (append
    
27.                        strlst
    
28.                        (list (substr str 1 post))
    
29.                      )
    
30.         )
    
31.         (setq str (substr str (+ post sl)))
    
32.       )
    
33.       (vl-remove ""
    
34.                  (append
    
35.                    strlst
    
36.                    (list str)
    
37.                  )
    
38.       )
    
39.     )
    
40.   )
    
41. )
    
42. (defun tt-str-split (str sep / lst pos)
    
43.   (setq        lst (if        (setq pos (vl-string-search sep str))
    
44.               (cons (substr str 1 pos)
    
45.                     (tt-str-split
    
46.                       (substr str
    
47.                               (+
    
48.                                 (strlen sep)
    
49.                                 pos
    
50.                                 1
    
51.                               )
    
52.                       )
    
53.                       sep
    
54.                     )
    
55.               )
    
56.               (list str)
    
57.             )
    
58.   )
    
59.   (vl-remove "" lst)
    
60. )
    
61. 
    
62.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun txt-str-split (str x / lst n str-n xlen)<br />   (setq xlen (strlen x))<br />   (while (setq n (vl-string-search x str))<br />     (setq str-n (substr str 1 n))<br />     (if        (/= str-n "")<br />       (setq lst (cons str-n lst))<br />     )<br />     (setq str (substr str (+ 1 xlen n)))<br />   )<br />   (if (/= str "")<br />     (setq lst (cons str lst))<br />   )<br />   (reverse lst)<br /> )<br /> (defun ybl-str-parse (str delimiter / post strlst sl);eachy<br />   (if str<br />     (progn<br />       (setq strlst '()<br />             sl           (+ (strlen delimiter) 1)<br />       )<br />       (while (vl-string-search delimiter str)<br />         (setq post (vl-string-search delimiter str))<br />         (setq strlst (append<br />                        strlst<br />                        (list (substr str 1 post))<br />                      )<br />         )<br />         (setq str (substr str (+ post sl)))<br />       )<br />       (vl-remove ""<br />                  (append<br />                    strlst<br />                    (list str)<br />                  )<br />       )<br />     )<br />   )<br /> )<br /> (defun tt-str-split (str sep / lst pos)<br />   (setq        lst (if        (setq pos (vl-string-search sep str))<br />               (cons (substr str 1 pos)<br />                     (tt-str-split<br />                       (substr str<br />                               (+<br />                                 (strlen sep)<br />                                 pos<br />                                 1<br />                               )<br />                       )<br />                       sep<br />                     )<br />               )<br />               (list str)<br />             )<br />   )<br />   (vl-remove "" lst)<br /> )<br /> <br />   [/FONT]<br />

FlyBird888

这么好的函数，一定支持

JackTool

先收下了，谢谢

yjch

谢谢tanger了，用处很大