文件读写

aicr317 · 发表于 2010-1-6 12:26:00

本帖最后由作者于 2010-1-25 20:36:04 编辑

举例

(setq SlideText (vl-string->list (_readstream "d:\\Drawing1.sld" t)))

(_writestream "d:\\new.sld" (vl-list->string SlideText) "w")

(command "._VSLIDE" "d:\\new.sld")

输出的NEW.SLD为0kb，不知道什么原因，大家帮忙看看！

caoyin · 发表于 2010-1-6 15:09:00

可能是没有 close ,参考一下close函数帮助

aicr317 · 发表于 2010-1-6 23:42:00

以上在代码在WINDDOWS XP 英文版上测试通过，在中文版上，一直都以失败告终，不解！！！

aicr317 · 发表于 2010-1-18 15:05:00

无人解答。。。。。。。。。。。。。。。。。。。。。。

lyy · 发表于 2010-1-23 17:04:00

你自己把它搞复杂了，

读写文件很简单的十几行代码就够了。

用"ADODB.Stream"读取bindata，用vlax-safearray->list和vlax-variant-value转为textdata

textdata用vlax-safearray-fill和vlax-make-safearray转为bindata,用"ADODB.Stream"写回文件

lyy · 发表于 2010-1-23 17:10:00

不过这样就怕有人在lisp里藏病毒。

aicr317 · 发表于 2010-1-23 18:37:00

楼上的能否帮我改写一下，发送到我邮箱

AICR317@YAHOO.CN

lyy · 发表于 2010-1-23 23:43:00

读文件：

(defun yad-rstream(file / stream rtn)
(setq stream (vlax-get-or-create-object "ADODB.stream"))
(vlax-put-property stream 'type 1)
(vlax-invoke stream 'open)
(vlax-invoke-method stream 'loadfromfile file)
(vlax-put-property stream 'position 0)
(setq rtn (vlax-safearray->list (vlax-variant-value (vlax-invoke-method stream 'read (vlax-get stream 'size)))))
(vlax-release-object stream)
rtn
)

逆转换数据后用ADODB.tream的write和savetofile写回文件。

aicr317 · 发表于 2010-1-24 02:05:00

还是老问题，写不出文件，还请楼上给出YAD-WSTREAM,万分期待。。。

notmoney · 发表于 2010-1-25 17:55:00

提示: 作者被禁止或删除内容自动屏蔽

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

notmoney notmoney 当前离线积分 179 明经币个注册时间 2010-1-25 在线时间小时威望金钱个贡献激情	发表于 2010-1-25 17:55:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

文件读写

本帖子中包含更多资源