在vb6中从文件中读取和写入1000字节

Question

我正在开发一个vb6应用程序。在我的应用程序中，我试图在单个文件中复制各种文件。问题是我试图从源文件读取1000字节，并以相反的顺序将其写入目标文件。然后再增加1000字节，以此类推，直到我到达源文件的最后一部分。我在java中使用文件指针做了类似的工作。但在这里我没有找到解决办法。请帮助。

Answer 1

本教程介绍了如何从二进制文件中读取和写入，其中有一节是关于从文件中读取数据块的。

Answer 2

您可以为此创建一个缓冲区。下面是一些帮助您入门的代码。(我现在没有vb6，所以代码没有经过验证)

示例代码:

Dim Buffer As String * 1000
Open "C:WindowsFileName.txt" For Binary As #1
Get #1, 1, Data   
Close #1

此外，在您的情况下，您需要跟踪文件

中的位置

Get #file handle, position, Buffer

还可以使用Put将读缓冲区写入另一个文件。

Put #file handle, position, Buffer