XD::STR:REPLACE

newer

1. ;;; ------------------------------------------------------------------------
   
2. ;;; 函数名称 / Function Name: XD::STR:replace
   
3. ;;;
   
4. ;;; 【功能说明 / Description】
   
5. ;;;     将输入字符串中所有指定的子字符串替换为目标子字符串。
   
6. ;;;     Replaces all occurrences of a specified substring with the target substring.
   
7. ;;;
   
8. ;;; 【参数说明 / Parameters】
   
9. ;;;     string - 原始字符串 / The original string
   
10. ;;;     old-substr - 需要被替换的子字符串 / The substring to be replaced
    
11. ;;;     new-substr - 替换成的目标子字符串 / The substring to replace with
    
12. ;;;
    
13. ;;; 【返回值 / Return Value】
    
14. ;;;     返回一个新字符串，替换完成后的结果 / The new string after replacement
    
15. ;;;
    
16. ;;; 【依赖函数 / Dependencies】
    
17. ;;;     无 / None
    
18. ;;;
    
19. ;;; 【使用示例 / Example Usage】
    
20. ;;;     (XD::STR:replace "C:/A/B" "/" "\\")
    
21. ;;;     => "C:\\A\\B"
    
22. ;;;
    
23. ;;; 【备注 / Notes】
    
24. ;;;     - 此函数替换所有匹配的子字符串 / This function replaces all occurrences of the substring.
    
25. ;;;     - 在使用时，请确保输入的字符串参数和目标子字符串符合预期。
    
26. ;;; ------------------------------------------------------------------------
    
27. 
    
28. (defun XD::STR:replace (old-substr new-substr string / len-old pos result)
    
29.   ;; 【功能】替换字符串中所有匹配的子串
    
30.   ;; 【参数】string - 原始字符串, old-substr - 被替换子串, new-substr - 替换子串
    
31.   ;; 【返回】替换后的新字符串
    
32.   
    
33.   (setq len-old (strlen old-substr))
    
34.   (setq result "")
    
35.   
    
36.   (while (setq pos (vl-string-search old-substr string))
    
37.     (setq result (strcat result (substr string 1 pos) new-substr))
    
38.     (setq string (substr string (+ pos len-old 1)))
    
39.   )
    
40.   
    
41.   (strcat result string)
    
42. )
    

;;; ------------------------------------------------------------------------<br /> ;;; 函数名称 / Function Name: XD::STR:replace<br /> ;;;<br /> ;;; 【功能说明 / Description】<br /> ;;;     将输入字符串中所有指定的子字符串替换为目标子字符串。<br /> ;;;     Replaces all occurrences of a specified substring with the target substring.<br /> ;;;<br /> ;;; 【参数说明 / Parameters】<br /> ;;;     string - 原始字符串 / The original string<br /> ;;;     old-substr - 需要被替换的子字符串 / The substring to be replaced<br /> ;;;     new-substr - 替换成的目标子字符串 / The substring to replace with<br /> ;;;<br /> ;;; 【返回值 / Return Value】<br /> ;;;     返回一个新字符串，替换完成后的结果 / The new string after replacement<br /> ;;;<br /> ;;; 【依赖函数 / Dependencies】<br /> ;;;     无 / None<br /> ;;;<br /> ;;; 【使用示例 / Example Usage】<br /> ;;;     (XD::STR:replace "C:/A/B" "/" "\\")<br /> ;;;     => "C:\\A\\B"<br /> ;;;<br /> ;;; 【备注 / Notes】<br /> ;;;     - 此函数替换所有匹配的子字符串 / This function replaces all occurrences of the substring.<br /> ;;;     - 在使用时，请确保输入的字符串参数和目标子字符串符合预期。<br /> ;;; ------------------------------------------------------------------------<br /> <br /> (defun XD::STR:replace (old-substr new-substr string / len-old pos result)<br />   ;; 【功能】替换字符串中所有匹配的子串<br />   ;; 【参数】string - 原始字符串, old-substr - 被替换子串, new-substr - 替换子串<br />   ;; 【返回】替换后的新字符串<br />   <br />   (setq len-old (strlen old-substr))<br />   (setq result "")<br />   <br />   (while (setq pos (vl-string-search old-substr string))<br />     (setq result (strcat result (substr string 1 pos) new-substr))<br />     (setq string (substr string (+ pos len-old 1)))<br />   )<br />   <br />   (strcat result string)<br /> )<br />