正则表达式“非”的问题

xinxirong

vb或xdsoft的(xdrx_string_split "300-abcdergf" "abc")
或自己写的都可以

fools

2. (defun parse (str delim / len lst pos)
   
3.   (setq len (strlen delim))
   
4.   (setq pos (vl-string-search delim str))
   
5.   (while pos
   
6.     (setq lst (cons (substr str 1 pos) lst)
   
7.           str (substr str (+ pos len 1))
   
8.           pos (vl-string-search delim str)
   
9.     )
   
10.   )
    
11.   (if (> (strlen str) 0)
    
12.     (setq lst (cons str lst))
    
13.   )
    
14.   (reverse lst)
    
15. )

(defun parse (str delim / len lst pos)<br />   (setq len (strlen delim))<br />   (setq pos (vl-string-search delim str))<br />   (while pos<br />     (setq lst (cons (substr str 1 pos) lst)<br />           str (substr str (+ pos len 1))<br />           pos (vl-string-search delim str)<br />     )<br />   )<br />   (if (> (strlen str) 0)<br />     (setq lst (cons str lst))<br />   )<br />   (reverse lst)<br /> )

(parse "300-500-400-500-200" "500")   ---->("300-" "-400-" "-200")

fan_zh

学习中，先收藏