需要lisp或函数lisp

hosyn · 发表于 2022-7-6 06:18:54

我需要lisp或函数lisp来更改字符串变量：
更改字符串：和\\带-。


"D:\\ffffff\\hh\\Mylocation\"

至
任何建议。

BlackBox · 发表于 2022-7-6 06:45:08

试试这个：

copy


(vl-load-com)
(defun _Subst (newString pattern string)
 ;; Example:
 ;; (_Subst "-" '("\" ":") "D:\\ffffff\\hh\\Mylocation\")
 (foreach x pattern
   (while (vl-string-search x string)
     (setq string (vl-string-subst newString x string))
   )
 )
 string
)