现在有一个很大的二进制文件，现在要求从中提取5M的数据，提取的规则是这样的：从其中的某个字节开始，每提取1K数据就跳过接下来的300个字节，然后再提取下一个1K的数据，直到5M提取完毕为止．提取的数据存入另一个新建的二进制文件中．

我试过用get和put来实现，虽然是可以，但速度非常慢．请问有没有快速的方法？最好能够在5秒内提取完毕的．

呃 换顶级CPU就可以了。

把数据文件,拆分合并 可以不?
拆分循序就是,如果是奇数就是 1k偶数就是 300bit

Public Sub FileSplit(SourceFile As String, DestinationFile As String, ChunkSize As Long, Optional BufferSize As Long = 64# * 1024#, Optional ShowFinishMessage As Boolean)
'ChunkSize 为 BufferSize 的倍数
Dim FileBuffer() As Byte
Dim FileNumberS As Long
Dim FileNumberT As Long
FileNumberS = FreeFile
Open SourceFile For Binary Access Read As #FileNumberS
Dim lFileLen As Long
lFileLen = FileLen(SourceFile)
FileNumberT = FreeFile
Dim i As Long
Dim j As Long
ReDim FileBuffer(1 To (BufferSize)) As Byte
Open DestinationFile & "." & Format(i, "000") For Binary Access Write As #FileNumberT
Do While lFileLen >= BufferSize
Get #FileNumberS, , FileBuffer
If i = ChunkSize Then
i = 0
j = j + 1
Close #FileNumberT
FileNumberT = FreeFile
Open DestinationFile & "." & Format(j, "000") For Binary Access Write As #FileNumberT
End If
i = i + 1
Put #FileNumberT, , FileBuffer
lFileLen = lFileLen - BufferSize
Loop
If lFileLen > 0 Then
ReDim FileBuffer(1 To lFileLen) As Byte
Get #FileNumberS, , FileBuffer
Put #FileNumberT, , FileBuffer
End If
Close #FileNumberT
If ShowFinishMessage Then
MsgBox "Finished!"
End If
End Sub
Public Sub FileRestore(SourceFile As String, DestinationFile As String, Chunks As Long, Optional BufferSize As Long = 64# * 1024#, Optional ShowFinishMessage As Boolean)
Dim FileBuffer() As Byte
Dim FileNumberS As Long
Dim FileNumberT As Long
Dim i As Long
Dim lFileLen As Long
FileNumberT = FreeFile
Open DestinationFile For Binary Access Write As #FileNumberT
For i = 0 To Chunks - 1
FileNumberS = FreeFile
Open SourceFile & "." & Format(i, "000") For Binary Access Read As #FileNumberS
lFileLen = FileLen(SourceFile & "." & Format(i, "000"))
ReDim FileBuffer(1 To BufferSize) As Byte
Do While lFileLen >= BufferSize
Get #FileNumberS, , FileBuffer
Put #FileNumberT, , FileBuffer
lFileLen = lFileLen - BufferSize
Loop
If lFileLen > 0 Then
ReDim FileBuffer(1 To lFileLen) As Byte
Get #FileNumberS, , FileBuffer
Put #FileNumberT, , FileBuffer
End If
Close #FileNumberS
Next i
Close #FileNumberT
If ShowFinishMessage Then
MsgBox "Finished!"
End If
End Sub

这两个函数自己改改吧! 上面在案加上上条件 就应该可以了

多谢四楼.学习!不过楼主为什么不回话

我不是经常可以上网啊！不懂4楼的程序，能否用文字说明一下呢？

看看书吧，很简单的

产考学习了!谢谢!!!!

我感觉思路都有问题.
从5M的文件中某个字节开始?你怎么判断这个字节?
1,如果说你知道这个字节所在数组的位置,那就可以(可我想不通你怎么知道的.)
2,如果说你按这个字节的值判断,5M啊?换成二进制数组很大.....极其有可能存在多个地方跟你要找的字节值是一样.
这样提取的时候肯定经常出错.

是个难题，如何定位？