XD::STR:m-find

marting

1. ;;; ------------------------------------------------------------------------
   
2. ;;; 函数名称 / Function Name: XD::STR:m-find
   
3. ;;;
   
4. ;;; 【功能说明 / Description】
   
5. ;;;     查找目标字符串 B 中所有等于子串 A 的起始位置索引。
   
6. ;;;     Finds all starting positions of substring A in string B.
   
7. ;;;
   
8. ;;; 【参数说明 / Parameters】
   
9. ;;;     a - 要查找的子字符串（区分大小写）。
   
10. ;;;         Substring to search for (case-sensitive).
    
11. ;;;     b - 要搜索的目标字符串。
    
12. ;;;         The target string where the search is performed.
    
13. ;;;
    
14. ;;; 【返回值 / Return Value】
    
15. ;;;     返回一个整数列表，表示 A 在 B 中所有出现的位置（以 1 为起始）。
    
16. ;;;     Returns a list of integers indicating the 1-based positions of A in B.
    
17. ;;;
    
18. ;;; 【使用示例 / Example Usage】
    
19. ;;;     (XD::STR:m-find "AB" "ABCABC")  => '(1 4)
    
20. ;;;     (XD::STR:m-find "," "A,B,C,")   => '(2 4 6)
    
21. ;;;
    
22. ;;; 【备注 / Notes】
    
23. ;;;     - 若 A 为空字符串，返回 nil。
    
24. ;;;       Returns nil if A is an empty string.
    
25. ;;;     - 若 B 不是字符串类型，也返回 nil，并输出错误信息。
    
26. ;;;       Returns nil and prints an error if B is not a string.
    
27. ;;; ------------------------------------------------------------------------
    
28. 
    
29. (defun XD::STR:m-find (a b / c n)
    
30.   (cond
    
31.     ((= "" a)
    
32.      ;; A 为空，直接返回 nil / Empty substring
    
33.      (setq c nil)
    
34.     )
    
35. 
    
36.     ((/= 'str (type b))
    
37.      ;; B 不是字符串类型 / Type check failed
    
38.      (print "ARGUMENT NOT A STRING!!!!")
    
39.      (print b)
    
40.      (setq c nil)
    
41.     )
    
42. 
    
43.     (t
    
44.      ;; 开始查找匹配 / Start scanning
    
45.      (setq n 1)
    
46.      (while (and (>= (+ (- (strlen b) n) 1) (strlen a)))
    
47.        (if (= (substr b n (strlen a)) a)
    
48.          (progn
    
49.            ;; 找到匹配，记录位置 / Match found
    
50.            (setq c (append c (list n)))
    
51.            ;; 跳过当前匹配长度，防止重叠匹配 / Skip over match length
    
52.            (setq n (- (+ n (strlen a)) 1))
    
53.          )
    
54.        )
    
55.        (setq n (1+ n))
    
56.      )
    
57.     )
    
58.   )
    
59.   c
    
60. )
    

;;; ------------------------------------------------------------------------<br /> ;;; 函数名称 / Function Name: XD::STR:m-find<br /> ;;;<br /> ;;; 【功能说明 / Description】<br /> ;;;     查找目标字符串 B 中所有等于子串 A 的起始位置索引。<br /> ;;;     Finds all starting positions of substring A in string B.<br /> ;;;<br /> ;;; 【参数说明 / Parameters】<br /> ;;;     a - 要查找的子字符串（区分大小写）。<br /> ;;;         Substring to search for (case-sensitive).<br /> ;;;     b - 要搜索的目标字符串。<br /> ;;;         The target string where the search is performed.<br /> ;;;<br /> ;;; 【返回值 / Return Value】<br /> ;;;     返回一个整数列表，表示 A 在 B 中所有出现的位置（以 1 为起始）。<br /> ;;;     Returns a list of integers indicating the 1-based positions of A in B.<br /> ;;;<br /> ;;; 【使用示例 / Example Usage】<br /> ;;;     (XD::STR:m-find "AB" "ABCABC")  => '(1 4)<br /> ;;;     (XD::STR:m-find "," "A,B,C,")   => '(2 4 6)<br /> ;;;<br /> ;;; 【备注 / Notes】<br /> ;;;     - 若 A 为空字符串，返回 nil。<br /> ;;;       Returns nil if A is an empty string.<br /> ;;;     - 若 B 不是字符串类型，也返回 nil，并输出错误信息。<br /> ;;;       Returns nil and prints an error if B is not a string.<br /> ;;; ------------------------------------------------------------------------<br /> <br /> (defun XD::STR:m-find (a b / c n)<br />   (cond <br />     ((= "" a) <br />      ;; A 为空，直接返回 nil / Empty substring<br />      (setq c nil)<br />     )<br /> <br />     ((/= 'str (type b)) <br />      ;; B 不是字符串类型 / Type check failed<br />      (print "ARGUMENT NOT A STRING!!!!") <br />      (print b) <br />      (setq c nil)<br />     )<br /> <br />     (t<br />      ;; 开始查找匹配 / Start scanning<br />      (setq n 1)<br />      (while (and (>= (+ (- (strlen b) n) 1) (strlen a))) <br />        (if (= (substr b n (strlen a)) a) <br />          (progn <br />            ;; 找到匹配，记录位置 / Match found<br />            (setq c (append c (list n))) <br />            ;; 跳过当前匹配长度，防止重叠匹配 / Skip over match length<br />            (setq n (- (+ n (strlen a)) 1))<br />          )<br />        )<br />        (setq n (1+ n))<br />      )<br />     )<br />   )<br />   c<br /> )<br />

tigcat

谢谢马丁大佬分享