VB如何删除二进制文件指定的一段数据?谢谢
VB如何删除二进制文件指定的一段数据?比如说,有一个二进制文件1.bin,如何删除第200至300这段数据?
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编辑过]