二进制文件写入后 出现双文件尾

boyzjv 2013-02-15 11:30:26
我对一个二进制文件按字节读取后,修改部分字节,再写入另一个文件,然后我又在UltraEdit下手动改了一个文件,手工修改的文件和程序修改的文件用UltraEdit文件比较完全等同,但放到处理机上(小红帽)读取时提示 double EOF
源代码如下 :
   
Public fs, fw As FileStream
....

fs = File.OpenRead(TextBox1.Text)
temp = Mid(TextBox1.Text, 1, InStrRev(TextBox1.Text, ".") - 1) + "_fixed.s"

fw = File.OpenWrite(temp)

fs.Read(wb1, 0, 2) : fw.Write(ffid_1, 0, 2)

fs.Read(wb2, 0, 30) : fw.Write(wb2, 0, 30)

fs.Read(wb6, 0, 3) : fw.Write(ffid_2, 0, 3)
fs.Read(wb5, 0, 29) : fw.Write(wb5, 0, 29)
fs.Read(wb6, 0, 3) : fw.Write(ffid_2, 0, 3)
fs.Read(wb5, 0, 29) : fw.Write(wb5, 0, 29)

For i = 0 To 15 Step 1
fs.Read(wb3, 0, 32) : fw.Write(wb3, 0, 32)
Next

fs.Read(wb4, 0, 2048) : fw.Write(wb4, 0, 2048)

aux_num = Val(shot_FFID(3))
data_num = Val(shot_FFID(4))
sample_points = Val(shot_FFID(5))
ReDim trace_data(sample_points * 4 - 1)

For i = 0 To aux_num + data_num - 1
fs.Read(wb1, 0, 2) : fw.Write(ffid_1, 0, 2)
fs.Read(wb7, 0, 15) : fw.Write(wb7, 0, 15)
fs.Read(wb6, 0, 3) : fw.Write(ffid_2, 0, 3)
fs.Read(wb0, 0, 224) : fw.Write(wb0, 0, 224)
fs.Read(trace_data, 0, sample_points * 4)
fw.Write(trace_data, 0, sample_points * 4)
Next
fs.Dispose()
fw.Dispose()


有没有人给点意见或建议,在此表示感谢!!
...全文
77 6 点赞 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yanchangshan 2013-02-22
sp1234 ?
  • 打赏
  • 举报
回复
gengchenhui 2013-02-16
SP这些话我不太同意,你很反对Linux?
  • 打赏
  • 举报
回复
比如说吧,你要确定文件保存完毕并且关闭了,然后你的另一个程序才去读取它。诸如此类的系统定义问题。 如果不熟悉,就不要使用除windows以外的操作系统。有这么多人都可以轻松地维护windows操作系统下的应用,而且windows操作系统就算买也才100多人民币,我们不要去使用什么linux之类的,那种东西貌似“免费”其实其应用成本特别昂贵——除非我们想从国营单位兜里抢钱才用那些操作系统。
  • 打赏
  • 举报
回复
什么叫做“双文件尾”?或者你了解一下,什么叫做“文件尾”? 你所贴出的代码跟这个毫无关系,跟你的文件的“尾巴”毫无关系。具体要看运行系统的定义。
  • 打赏
  • 举报
回复
boyzjv 2013-02-15
首先我非常感谢 sp1234 达人的指点,我是不太清楚什么是是文件尾,不知道windows和linux上对文件尾是怎么定义的,因为文件的内容完全相同,即通过字节对比,是完全一样的。我写这个小程序就是想改一个数据中的一个值,只是当数据很大时,这个值出现的次数比较多,手工修改不太现实,这就是我写这个程序的目的。在UE中修改后保存,linux读取没有问题,但程序修改后就报 "double EOF" 我以为是保存文件的方式或方法不对,如果您能提供一些这方面的指导,我将感激不尽, 谢谢!!
  • 打赏
  • 举报
回复
相关推荐
发帖
VB
加入

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2013-02-15 11:30
社区公告
暂无公告