字符串SPLIT函数

marting

1. ;; Usage: (split (getenv "PrinterConfigDir") ";")
   
2. ;; Usage: (split (getenv "PrinterStyleSheetDir") ";")
   
3. (defun split (**pression sDelimiter / len val sList)
   
4.   ; Get the length of the first item from the expression based on delimiter position
   
5.   (setq len (vl-string-position (ascii sDelimiter) **pression))
   
6. 
   
7.   ; Loop until there are no more instances of the delimiter in the expression
   
8.   (while (numberp len)
   
9.     ; Get the item from the expression
   
10.     (setq val (substr **pression 1 len))
    
11. 
    
12.     ; Append the item to the list
    
13.     (setq sList (cons val sList))
    
14. 
    
15.     ; Get the remaining part of the expression
    
16.     (setq **pression (substr **pression (+ 2 len)))
    
17. 
    
18.     ; Get the length of the next item from the string based on delimiter position
    
19.     (setq len (vl-string-position (ascii sDelimiter) **pression))
    
20.   )
    
21. 
    
22.   ; Add the last value to the list
    
23.   (if (/= **pression nil)
    
24.     (setq sList (cons **pression sList))
    
25.   )
    
26. 
    
27.   ; Reverse the elements and return the list
    
28.   (reverse sList)
    
29. )
    

;; Usage: (split (getenv "PrinterConfigDir") ";")<br /> ;; Usage: (split (getenv "PrinterStyleSheetDir") ";")<br /> (defun split (**pression sDelimiter / len val sList)<br />   ; Get the length of the first item from the expression based on delimiter position<br />   (setq len (vl-string-position (ascii sDelimiter) **pression))<br /> <br />   ; Loop until there are no more instances of the delimiter in the expression<br />   (while (numberp len)<br />     ; Get the item from the expression<br />     (setq val (substr **pression 1 len))<br /> <br />     ; Append the item to the list<br />     (setq sList (cons val sList))<br /> <br />     ; Get the remaining part of the expression<br />     (setq **pression (substr **pression (+ 2 len)))<br /> <br />     ; Get the length of the next item from the string based on delimiter position<br />     (setq len (vl-string-position (ascii sDelimiter) **pression))<br />   )<br /> <br />   ; Add the last value to the list<br />   (if (/= **pression nil)<br />     (setq sList (cons **pression sList))<br />   )<br /> <br />   ; Reverse the elements and return the list<br />   (reverse sList)<br /> )<br />

命令: (split (getenv "PrinterStyleSheetDir") ";")
("C:\\Users\\ArcGIS\\appdata\\roaming\\autodesk\\autocad 2016\\r20.1\\chs\\plot styles" "C:\\Users\\ArcGIS\\appdata\\roaming\\autodesk\\autocad 2016\\r20.1\\chs\\plotters\\plot styles")

marting

相当于正则表达式查询函数

命令: (xd::string:regexps "[^;]+" (getenv "PrinterStyleSheetDir") "")
("C:\\Users\\ArcGIS\\appdata\\roaming\\autodesk\\autocad 2016\\r20.1\\chs\\plot styles" "C:\\Users\\ArcGIS\\appdata\\roaming\\autodesk\\autocad 2016\\r20.1\\chs\\plotters\\plot styles")