回 帖 发 新 帖 刷新版面

主题:新手求教:如何下QB45下进行对二进制文件的读写

我要把文本数据转换成二进制数据,用
open fn$ for binary as #1
for i=1 to 4
input a
put #1,i,a
next

close #1
open fn$ for binary as #1
for i=1 to 4
get #1,i,b
print b;
next

close #1

做实验读出的与我写进的不同,不知为何,请高手帮忙.

回复列表 (共1个回复)

沙发

那是因为你记录的长度弄错了,
在你程序里的 put 语句和 get 语句里
把 i 省略掉或者改成 i*4-3 就可以解决了

我来回复

您尚未登录,请登录后再回复。点此登录或注册