文件读写

liu_kunlun · 发表于 2010-1-25 20:38:00

高手，谢谢分享！

liu_kunlun · 发表于 2010-1-26 08:15:00

LYY:能否提供一下写二进制文件代码？LIU_KUNLUN@sina.com

bobby · 发表于 2010-1-26 08:43:00

lyy前辈，

textdata用vlax-safearray-fill和vlax-make-safearray转为bindata还是没有搞定，能否提供一下代码？bobby_yang@163.com

notmoney · 发表于 2010-1-26 09:02:00

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

liu_kunlun · 发表于 2010-1-27 14:55:00

还请高手指点：

(setq aa0 (vlax-make-safearray vlax-vbInteger '(0 . 1)))
(vlax-safearray-fill aa0 '(1 2))
(setq aa1 (vlax-make-variant aa0 ))

(setq aa2 (vlax-make-safearray vlax-vbVariant '(0 . 1) ))
(vlax-safearray-fill aa2 '(1 2))
(setq aa3 (vlax-make-variant aa2 ))

(setq file2 "f:\\test1.wmf")
(setq stream (vlax-get-or-create-object "ADODB.stream"))
(vlax-put-property stream 'type 1);二进制,文本为2
1) (vlax-put-property stream 'mode 2);写模式
2) (vlax-invoke stream 'open)
3) (vlax-put-property stream 'position 0)
4) (vlax-invoke-method stream 'loadfromfile file2);;do not work
5) (vlax-invoke-method stream 'write aa3 );;do not work
上述1）、2）、3）、4）句写上或不写上，第5）句变量采用aa0、aa1、aa2、aa3、或'aa0、'aa1、'aa2、'aa3第5）句都没法成功执行。

liu_kunlun · 发表于 2010-1-28 19:51:00

有人会吗？不可能没有人会吧！！！

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

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

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