请教下，哪位高手指点下，为何修改不起作用？

userzhl · 发表于 2012-5-7 21:21

本帖最后由 userzhl 于 2012-5-8 09:16 编辑

;|(x$sub 新$ 旧$ 字符串) = 字符串替换-------------------------------lxx.2004.2
(x$sub " " "-" "32-33-0.01-哈哈") -> "32 33 0.01 哈哈"
|;
(defun x$sub (n$ o$ str / n)
  (setq n 0)
  (while (setq n (vl-string-search o$ str n))
(setq str (vl-string-subst n$ o$ str n))
(setq n (+ n (strlen n$)))
  )str
)
;想把文件里的“D:\\《工具》”替换成"c:\\《工具》\\《工具》"，修改不成功没提示。
(setq file "D:\\窗帘_F9AAFA6A-5E9B-4C46-8283-F10E8F70936A.atc")
(setq new "c:\\《工具》\\《工具》")
(setq fn (open file "r"))
(setq data (read-line fn))
(close fn)
(SETQ DD (x$sub new "D:\\《工具》" DATA))
(setq Fn2 (open file "w"))
(write-line DD Fn2)
(close Fn2)
(princ)

wowan1314 · 发表于 2012-5-7 21:58

看看是不是这个情况。第一个成功，二三都不成功。
命令: (x$sub "C:\\《工具》\\《工具》" "D:\\《工具》" "D:\\《工具》")
"C:\\《工具》\\《工具》"

命令: (x$sub "C:\\《工具》\\《工具》" "D:\\《工具》" ""D:\\《工具》"")
; 错误: *error* 函数中出错参数类型错误: lselsetp nil

命令: (x$sub "C:\\《工具》\\《工具》" "D:\\《工具》" ""D:\\《工具》"
"D:\\《工具》"")
; 错误: *error* 函数中出错参数类型错误: lselsetp nil

userzhl · 发表于 2012-5-8 09:06

不知是不是全角字符的原因

userzhl · 发表于 2012-5-8 20:26

本帖最后由 userzhl 于 2012-5-8 20:26 编辑

(setq file "D:\\窗帘_F9AAFA6A-5E9B-4C46-8283-F10E8F70936A.atc")
(setq new "c:\\")
(setq fn (open file "r"))
(setq data (read-line fn))
(close fn)
(SETQ DD (x$sub new "D:\\" DATA))
(setq Fn2 (open file "w"))
(write-line DD Fn2)
(close Fn2)
;上面这样子又能正常运行，能修改成功。哪位高手知道是什么原因吗？

userzhl · 发表于 2012-5-9 08:40

最近高手都在忙？自己顶一下。

xyh · 发表于 2012-5-9 09:18

在2011英文版中read-line读出来的汉字显示都变成其它字了。

userzhl · 发表于 2012-5-9 12:02

是呀，遇到全角字符会出错，不知如何才能解决。

userzhl · 发表于 2012-5-10 22:05

没人能帮我解决这个问题吗？

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

请教下，哪位高手指点下，为何修改不起作用？

本帖子中包含更多资源

点评