XD::STR:to-list

marting

1. ;;; ------------------------------------------------------------------------
   
2. ;;; 函数名称 / Function Name: XD::STR:to-list
   
3. ;;;
   
4. ;;; 【功能说明 / Description】
   
5. ;;;     将一个字符串按指定分隔符切分成一个字符串列表。
   
6. ;;;     Splits a string into a list of substrings based on a given delimiter.
   
7. ;;;
   
8. ;;; 【参数说明 / Parameters】
   
9. ;;;     a - 分隔符字符串，例如 ";"。
   
10. ;;;         Delimiter string, e.g., ";".
    
11. ;;;     b - 要分割的字符串，例如 "A;B;C"。
    
12. ;;;         The target string to split, e.g., "A;B;C".
    
13. ;;;
    
14. ;;; 【返回值 / Return Value】
    
15. ;;;     返回一个字符串列表，每个元素是原始字符串中被分隔符拆分的部分。
    
16. ;;;     Returns a list of substrings split from the original string.
    
17. ;;;
    
18. ;;; 【依赖函数 / Dependencies】
    
19. ;;;     - XD::STR:m-find：查找所有匹配子串的位置，返回一个整数列表。
    
20. ;;;       XD::STR:m-find: Finds all positions of the delimiter and returns an index list.
    
21. ;;;
    
22. ;;; 【使用示例 / Example Usage】
    
23. ;;;     (XD::STR:to-list ";" "A;B;C")       =>  '("A" "B" "C")
    
24. ;;;     (XD::STR:to-list "," "hello,world") =>  '("hello" "world")
    
25. ;;;
    
26. ;;; 【备注 / Notes】
    
27. ;;;     - 支持任意长度的分隔符。
    
28. ;;;       Supports multi-character delimiters.
    
29. ;;;     - 如果未找到分隔符，返回的列表只包含原始字符串。
    
30. ;;;       If no delimiter is found, returns the original string as the sole element.
    
31. ;;; ------------------------------------------------------------------------
    
32. 
    
33. (defun XD::STR:to-list (a b / n c lst lst2 leng)
    
34.   ;; 查找所有分隔符的位置 / Find all delimiter positions
    
35.   (setq lst (XD::STR:m-find a b))
    
36.   (setq n 0)
    
37. 
    
38.   (if lst
    
39.     (progn
    
40.       ;; 提取第一个分隔符之前的部分 / Part before the first delimiter
    
41.       (setq c (substr b 1 (- (nth 0 lst) 1)))
    
42.       (setq lst2 (append lst2 (list c)))
    
43. 
    
44.       ;; 提取中间每段 / Parts between delimiters
    
45.       (repeat (- (length lst) 1)
    
46.         (setq leng (- (nth (+ n 1) lst) (nth n lst) (strlen a)))
    
47.         (setq c (substr b (+ (nth n lst) (strlen a)) leng))
    
48.         (setq lst2 (append lst2 (list c)))
    
49.         (setq n (+ 1 n))
    
50.       )
    
51. 
    
52.       ;; 提取最后一段 / Part after the last delimiter
    
53.       (setq c (substr b (+ (nth n lst) (strlen a))))
    
54.       (setq lst2 (append lst2 (list c)))
    
55.     )
    
56.     ;; 如果没有分隔符，直接返回整个字符串 / No delimiter found: return the string as a single-element list
    
57.     (progn
    
58.       (setq lst2 (append lst2 (list b)))
    
59.     )
    
60.   )
    
61.   lst2
    
62. )
    

;;; ------------------------------------------------------------------------<br /> ;;; 函数名称 / Function Name: XD::STR:to-list<br /> ;;;<br /> ;;; 【功能说明 / Description】<br /> ;;;     将一个字符串按指定分隔符切分成一个字符串列表。<br /> ;;;     Splits a string into a list of substrings based on a given delimiter.<br /> ;;;<br /> ;;; 【参数说明 / Parameters】<br /> ;;;     a - 分隔符字符串，例如 ";"。<br /> ;;;         Delimiter string, e.g., ";".<br /> ;;;     b - 要分割的字符串，例如 "A;B;C"。<br /> ;;;         The target string to split, e.g., "A;B;C".<br /> ;;;<br /> ;;; 【返回值 / Return Value】<br /> ;;;     返回一个字符串列表，每个元素是原始字符串中被分隔符拆分的部分。<br /> ;;;     Returns a list of substrings split from the original string.<br /> ;;;<br /> ;;; 【依赖函数 / Dependencies】<br /> ;;;     - XD::STR:m-find：查找所有匹配子串的位置，返回一个整数列表。<br /> ;;;       XD::STR:m-find: Finds all positions of the delimiter and returns an index list.<br /> ;;;<br /> ;;; 【使用示例 / Example Usage】<br /> ;;;     (XD::STR:to-list ";" "A;B;C")       =>  '("A" "B" "C")<br /> ;;;     (XD::STR:to-list "," "hello,world") =>  '("hello" "world")<br /> ;;;<br /> ;;; 【备注 / Notes】<br /> ;;;     - 支持任意长度的分隔符。<br /> ;;;       Supports multi-character delimiters.<br /> ;;;     - 如果未找到分隔符，返回的列表只包含原始字符串。<br /> ;;;       If no delimiter is found, returns the original string as the sole element.<br /> ;;; ------------------------------------------------------------------------<br /> <br /> (defun XD::STR:to-list (a b / n c lst lst2 leng)<br />   ;; 查找所有分隔符的位置 / Find all delimiter positions<br />   (setq lst (XD::STR:m-find a b))<br />   (setq n 0)<br /> <br />   (if lst<br />     (progn <br />       ;; 提取第一个分隔符之前的部分 / Part before the first delimiter<br />       (setq c (substr b 1 (- (nth 0 lst) 1))) <br />       (setq lst2 (append lst2 (list c)))<br /> <br />       ;; 提取中间每段 / Parts between delimiters<br />       (repeat (- (length lst) 1) <br />         (setq leng (- (nth (+ n 1) lst) (nth n lst) (strlen a)))<br />         (setq c (substr b (+ (nth n lst) (strlen a)) leng))<br />         (setq lst2 (append lst2 (list c)))<br />         (setq n (+ 1 n))<br />       )<br /> <br />       ;; 提取最后一段 / Part after the last delimiter<br />       (setq c (substr b (+ (nth n lst) (strlen a))))<br />       (setq lst2 (append lst2 (list c)))<br />     )<br />     ;; 如果没有分隔符，直接返回整个字符串 / No delimiter found: return the string as a single-element list<br />     (progn <br />       (setq lst2 (append lst2 (list b)))<br />     )<br />   )<br />   lst2<br /> )<br />