【已解决】求xdrx_string_split源码

JHX948954875

求xdrx_string_split源码！

Lisphk

1. (defun xd:string:split (str elt)
   
2.   (xd::string:regexps (strcat "[^" elt "]+") str "")
   
3. )
   
4. 
   

(defun xd:string:split (str elt)<br />   (xd::string:regexps (strcat "[^" elt "]+") str "")<br /> )<br /> <br />

XD:STRING:SPLIT
_$ (XD:STRING:SPLIT "abc,edf,gfg" ",")
("abc" "edf" "gfg")
_$

原地踏步

这是Lee Mac的程序，一般来说也够了。

2. (defun LM:str->lst (str del / len lst pos)
   
3.   (setq len (1+ (strlen del)))
   
4.   (while (setq pos (vl-string-search del str))
   
5.     (setq lst (cons (substr str 1 pos) lst)
   
6.           str (substr str (+ pos len))
   
7.     )
   
8.   )
   
9.   (reverse (cons str lst))
   
10. )

(defun LM:str->lst (str del / len lst pos)<br />   (setq len (1+ (strlen del)))<br />   (while (setq pos (vl-string-search del str))<br />     (setq lst (cons (substr str 1 pos) lst)<br />           str (substr str (+ pos len))<br />     )<br />   )<br />   (reverse (cons str lst))<br /> )

JHX948954875

Lisphk 发表于 2020-5-21 22:45
XD:STRING:SPLIT
_$ (XD:STRING:SPLIT "abc,edf,gfg" ",")
("abc" "edf" "gfg")

谢谢，昨天在论坛找了半天，实在找不到了，文件xdrx_api_manual_2017-1208.chm里也没有这个函数。

JHX948954875

原地踏步 发表于 2020-5-22 09:02
这是Lee Mac的程序，一般来说也够了。

谢谢，学习了。

muwind

(defun LM:str->lst (str del / len lst pos)
  (vl-load-com)
  (setq len (1+ (strlen del)))
  (while (setq pos (vl-string-search del str))
         (setq lst (cons (substr str 1 pos) lst)
               str (substr str (+ pos len))
    )
  )
  (reverse (cons str lst))
)
(defun fysl (str s  / n  sl sx len pos pos0 posx  strx poslist lst)
  (setq sl (LM:str->lst s "|"));设定通道字符为"|",自行修改，适用于单字符
  (setq poslist '())
  (foreach sx sl
    (progn
      (setq len (strlen sx)) ;查找字符长度
      (setq strx str)
      (setq posx 0)
      (while (setq pos (vl-string-search sx strx)) ;查找字符串位置
                (setq poslist (cons (vl-list* (+ pos 1 posx) len) poslist)) ;位置和长度构成点对，添加到表
             (setq posx (+ pos posx len))
             (setq  strx    (substr strx (+ pos len 1)));新字符串
      )
    )
  )
  (setq poslist
        (vl-sort poslist (function  (lambda (e1 e2) (< (car E1) (car E2)))))) ;位置排序
  (setq  n 0)
  (setq  pos0 1)
  (while (setq  posn (nth n poslist ));取得第n个标识符的位置(2 . 2)
         (setq lst (cons (substr str pos0 (- (car posn) pos0)) lst))
         ;获取1到第一位置的的字符串传到表中
         (setq   pos0 (+ (car posn) (cdr posn))
                 n (+ n 1)
         )
  )
  (if (/= (setq  str (substr str pos0)) "")
      (reverse (cons str lst))
      (reverse lst)
  )
)

根据Lee Mac函数增加通道支持，自己玩儿用的，昨晚的只能挨个干活，修改了下现在没有顺序的要求。比如：
_$ (fysl "我.爱,你" ",|.")
("我" "爱" "你")
_$ (fysl "我..爱,.你" "..|,.")
("我" "爱" "你")
_$

XDSoft

JHX948954875 发表于 2020-5-22 12:32
谢谢，昨天在论坛找了半天，实在找不到了，文件xdrx_api_manual_2017-1208.chm里也没有这个函数。

用 regexps 一搜就搜到了
(XD::String:RegExpS)对字符串进行正则表达式匹配查找

5 个回复 - 2439 次查看

2013-7-2 21:34 - XDSoft - 开源函数库

多用正则表达式，字符串万能函数，省你编好多代码