路径字符串转换

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 ...

谢谢

账号		自动登录	找回密码
密码			注册

[提问] 路径字符串转换