xiaocainiao 发表于 2021-11-3 11:52:24

路径字符串转换

请教一下各位大神、如何用lisp将D:\飞诗编辑器\Drawing1.dwg这个字符串路径转换为   D:\\飞诗编辑器\\Drawing1.dwg

nyistjz 发表于 2021-11-3 14:44:14

        (Defun vldos-formatpath (string)
                (while (vl-string-search "/" string)
                        (setq string (vl-string-subst "\\" "/" string)))
                (while (vl-string-search "\\\\" string)
                        (setq string (vl-string-subst "\\" "\\\\" string)))
                (strcase string)
        )

tryhi 发表于 2021-11-3 15:14:19

这应该是一个转义符的问题吧，这道题应该无解

傲视豆腐 发表于 2021-11-4 14:48:52

(setq ot "\\"nt"=="mt "=")
(setq str (vl-string-subst nt ot str ))
(setq str (vl-string-subst ot mt str ))
循环一下就好

xiaocainiao 发表于 2021-11-6 09:20:30

nyistjz 发表于 2021-11-3 14:44
(Defun vldos-formatpath (string)
                (while (vl-string-search "/" string)
                        (setq string (vl-strin ...

谢谢、我试试

xiaocainiao 发表于 2021-11-6 09:20:50

傲视豆腐 发表于 2021-11-4 14:48
(setq ot "\\"nt"=="mt "=")
(setq str (vl-string-subst nt ot str ))
(setq str (vl-string-sub ...

谢谢
页: [1]
查看完整版本: 路径字符串转换