Split 函数用 lisp 实现的方法与效率[2020-7-1更新]

菜卷鱼

很久之前就看到了这个帖子，觉得正则用来字符串分割很厉害，
由于不懂正则，还是自己用lisp写了一个，
今天学了一下正则，发现楼主的这个正则split根本不能用，
比如 (split "aaaaaaabccccccc" "abc")
本应该分割成 ( "aaaaaa"  "cccccc")
但是正则的返回错误，因为它把所有的a、b、c都干掉了，不管你abc的长短跟顺序

yxp

菜卷鱼 发表于 2020-6-28 15:12
很久之前就看到了这个帖子，觉得正则用来字符串分割很厉害，
由于不懂正则，还是自己用lisp写了一个，
今 ...

已修正。效率也提高不少。

烟盒迷唇

好东西，不用正则也可以。

fangmin723

vectra 发表于 2018-4-13 21:51
EASY!

(p-string-tokenize-m "grdstjxftkgymdmttfixftdmsdusxftn4aysjrtixfttoot.or" "xft")
("grds" "j" "" "" "kgymdm" "" "" "i" "" "" "dmsdus" "" "" "n4aysjr" "i" "" "" "" "oo" ".or")

(p-string-tokenize "grdstjxftkgymdmttfixftdmsdusxftn4aysjrtixfttoot.or" "xft")
("grdstj" "ftkgymdmttfi" "ftdmsdus" "ftn4aysjrti" "fttoot.or")

kozmosovia

fangmin723 发表于 2025-1-2 09:54
(p-string-tokenize-m "grdstjxftkgymdmttfixftdmsdusxftn4aysjrtixfttoot.or" "xft")
("grds" "j" "" " ...

那个版本只支持一个字符做分割符。要支持多个字符，得另外写，也就不能用vl-string->list转表处理了。

2. (defun tt (txt sep / POS)
   
3.   (if (= sep "")
   
4.     (list txt)
   
5.     (if        (setq POS (vl-string-search SEP txt))
   
6.       (cons (substr txt 1 POS)
   
7.             (tt
   
8.               (substr txt (+ (strlen SEP) POS 1))
   
9.               SEP
   
10.             )
    
11.       )
    
12.       (list txt)
    
13.     )
    
14.   )
    
15. )

(defun tt (txt sep / POS)<br />   (if (= sep "")<br />     (list txt)<br />     (if        (setq POS (vl-string-search SEP txt))<br />       (cons (substr txt 1 POS)<br />             (tt<br />               (substr txt (+ (strlen SEP) POS 1))<br />               SEP<br />             )<br />       )<br />       (list txt)<br />     )<br />   )<br /> )

fangmin723

kozmosovia 发表于 2025-1-2 14:40
那个版本只支持一个字符做分割符。要支持多个字符，得另外写，也就不能用vl-string->list转表处理了。

谢谢大佬解惑