指定字符分割字符串

marting

1. (defun _split (str char / pos lst )
   
2.   (while (vl-string-position (ascii char) str)
   
3.           (setq lst (cons (substr str 1 (setq pos (vl-string-position (ascii char) str))) lst)
   
4.                 str (substr str (+ 2 pos))
   
5.           );end_setq
   
6.   );end_while
   
7.   (setq lst (vl-remove-if '(lambda (x) (= x "")) (reverse (cons str lst))))
   
8. );end_defun
   

(defun _split (str char / pos lst )<br />   (while (vl-string-position (ascii char) str)<br />           (setq lst (cons (substr str 1 (setq pos (vl-string-position (ascii char) str))) lst)<br />                 str (substr str (+ 2 pos))<br />           );end_setq<br />   );end_while<br />   (setq lst (vl-remove-if '(lambda (x) (= x "")) (reverse (cons str lst))))<br /> );end_defun<br />

命令: (_split "abc,fafaf,efafa" ",")
("abc" "fafaf" "efafa")