字符串

Andyhon

解方多多

Ref:
vl-list->string
vl-string->list

vl-string-position
vl-string-search

aroom

用 TeaScript ，很简单：

caddog

因为经常会用到,所以我我写了一个函数.晒出来,见笑了.与君共勉.

1. ;;---------------------------------------将字符串按分隔符解析为表-------------------------------
   
2. (defun hj:Str2List (string symble / #REV $STR %ID LEN)
   
3. 
   
4.   (setq len (strlen string)
   
5.         %id 1
   
6.         #rev nil
   
7.         $str "" )
   
8.   (repeat len
   
9.     (if (and (vl-string-search  (substr string %id 1) symble) (/= $str ""))
   
10.       (setq #rev (append #rev (list $str))
    
11.             $str "")
    
12.       (if (not (vl-string-search (substr string %id 1) symble) )
    
13.         (setq $str (strcat $str (substr string %id 1)))
    
14.         )
    
15.       )      
    
16.     (setq %id (1+ %id))
    
17.     );_end repeat
    
18.   (if (/= $str "") (append  #rev (list $str)) #rev)
    
19.   )
    

;;---------------------------------------将字符串按分隔符解析为表-------------------------------<br /> (defun hj:Str2List (string symble / #REV $STR %ID LEN)<br /> <br />   (setq len (strlen string)<br />         %id 1<br />         #rev nil<br />         $str "" )<br />   (repeat len <br />     (if (and (vl-string-search  (substr string %id 1) symble) (/= $str ""))<br />       (setq #rev (append #rev (list $str))<br />             $str "")<br />       (if (not (vl-string-search (substr string %id 1) symble) )<br />         (setq $str (strcat $str (substr string %id 1)))<br />         )<br />       )      <br />     (setq %id (1+ %id))<br />     );_end repeat<br />   (if (/= $str "") (append  #rev (list $str)) #rev)<br />   )<br />

执行效果如下:
_$ (setq b (hj:Str2List  "#1a@2ab#3abc@4abcd#5a@6a#"  "#"))
("1a@2ab" "3abc@4abcd" "5a@6a")

革天明

;;按指定分割符将字符串分割成表=======================================================
  ;;++++++++++++++++++
  ;;  parser by CAB
  ;;Http://discussion.autodesk.com/f ... dID=759125&tstart=0
  ;;http://bbs.mjtd.com/forum.php?mo ... 24&page=1#pid422330
  ;;++++++++++++++++++
  (defun sparser (str delim / ptr lst)
    (while (setq ptr (vl-string-search delim str))
      (setq lst (cons (substr str 1 ptr) lst))
      (setq str (substr str (+ ptr 2)))
    )
    (reverse (cons str lst))
  )

革天明

(sparser  "#1a@2ab#3abc@4abcd#5a@6a#"  "#")
("" "1a@2ab" "3abc@4abcd" "5a@6a" "")表里面有空字符串