XD::STR:ESC-WILDCARDS

newer

1. ;; ------------------------------------------------------------------------
   
2. ;;; 函数名称 / Function Name: XD::STR:ESC-WILDCARDS
   
3. ;;;
   
4. ;;; 【功能说明 / Description】
   
5. ;;;     对字符串 A 中的通配符字符进行转义处理，防止通配符被误解析。
   
6. ;;;     将通配符字符替换为带反引号 (`) 的转义形式。
   
7. ;;;
   
8. ;;; 【参数说明 / Parameters】
   
9. ;;;     a - (string) 输入字符串，可能包含通配符字符
   
10. ;;;
    
11. ;;; 【返回值 / Return Value】
    
12. ;;;     (string) 转义后的字符串，通配符字符前加反引号
    
13. ;;;
    
14. ;;; 【依赖函数 / Dependencies】
    
15. ;;;     - foreach : 遍历列表元素
    
16. ;;;     - xd::str:replace : 字符串替换函数，将指定字符替换为目标字符串
    
17. ;;;     - strcat : 字符串连接函数
    
18. ;;;
    
19. ;;; 【备注 / Notes】
    
20. ;;;     - 通配符列表包括：# @ . * ? ~ [ ] ,
    
21. ;;;     - 该函数常用于处理文件名或搜索字符串，避免通配符影响匹配结果。
    
22. ;;;
    
23. (defun XD::STR:ESC-WILDCARDS (a / x lst)
    
24.   (setq lst '("#" "@" "." "*" "?" "~" "[" "]" ","))
    
25.   (foreach x lst
    
26.     (setq a (XD::STR:REPLACE x (strcat "`" x) a))
    
27.   )
    
28.   a
    
29. )
    

;; ------------------------------------------------------------------------<br /> ;;; 函数名称 / Function Name: XD::STR:ESC-WILDCARDS<br /> ;;;<br /> ;;; 【功能说明 / Description】<br /> ;;;     对字符串 A 中的通配符字符进行转义处理，防止通配符被误解析。<br /> ;;;     将通配符字符替换为带反引号 (`) 的转义形式。<br /> ;;;<br /> ;;; 【参数说明 / Parameters】<br /> ;;;     a - (string) 输入字符串，可能包含通配符字符<br /> ;;;<br /> ;;; 【返回值 / Return Value】<br /> ;;;     (string) 转义后的字符串，通配符字符前加反引号<br /> ;;;<br /> ;;; 【依赖函数 / Dependencies】<br /> ;;;     - foreach : 遍历列表元素<br /> ;;;     - xd::str:replace : 字符串替换函数，将指定字符替换为目标字符串<br /> ;;;     - strcat : 字符串连接函数<br /> ;;;<br /> ;;; 【备注 / Notes】<br /> ;;;     - 通配符列表包括：# @ . * ? ~ [ ] ,<br /> ;;;     - 该函数常用于处理文件名或搜索字符串，避免通配符影响匹配结果。<br /> ;;;<br /> (defun XD::STR:ESC-WILDCARDS (a / x lst)<br />   (setq lst '("#" "@" "." "*" "?" "~" "[" "]" ","))<br />   (foreach x lst<br />     (setq a (XD::STR:REPLACE x (strcat "`" x) a))<br />   )<br />   a<br /> )<br />

HLCAD

楼主高产！
感谢楼主！