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