| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1416 人关注过本帖
标题:VB如何删除二进制文件指定的一段数据?谢谢
只看楼主 加入收藏
huangjunxing
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2014-8-13
结帖率:50%
收藏
 问题点数:0 回复次数:2 
VB如何删除二进制文件指定的一段数据?谢谢
VB如何删除二进制文件指定的一段数据?比如说,有一个二进制文件1.bin,如何删除第200至300这段数据?
搜索更多相关主题的帖子: 删除 二进制 文件 指定 数据 
2017-11-04 10:28
suzhanpeng
Rank: 4
等 级:业余侠客
威 望:7
帖 子:72
专家分:248
注 册:2016-9-28
收藏
得分:0 
把文件以删除的内容为标分为  a、b、c 3段,b段是删除内容,重新写入a+c内容到文件就行啦。
2017-11-07 08:41
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
程序代码:
Dim AA As Integer, BB() As String, XX As String
Open App.Path & "\1.bin" For Input As #1
Do While Not EOF(1)
Input #1, XX
AA = AA + 1      '得到文件的总行数
Loop
Close #1
ReDim BB(1 To AA)
AA = 0    '初始化
Open App.Path & "\1.bin" For Input As #1
Do While Not EOF(1)
AA = AA + 1    '重新得到行数
Input #1, XX
If AA < 200 Or AA > 300 Then      '如果行数小于200 或者 大于300
BB(AA) = XX      '将数据存储在数组AA中
Next I
Loop
Close #1
Open App.Path & "\10.bin" For Append As #1      '创建一个新文件10.bin
For I = 1 To AA
If I < 200 Or I > 300 Then      '如果变量 I 小于200 或者 大于300
Print #1, BB(I)      '将数组的数据写入新文件,这样就删除了200至300行的数据了
End If
Next I
Close #1
Kill App.Path & "\1.bin"      '删除原来的 1.bin 文件,得到的 10.bin 文件就是删除后的文件

以上代码没有测试,你自己测试吧,仅仅给你一个思路,不是按二进制数据处理的,你自己修改一下就可以。

[此贴子已经被作者于2017-11-7 09:55编辑过]


请不要选我!!!
2017-11-07 09:52
快速回复:VB如何删除二进制文件指定的一段数据?谢谢
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032076 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved