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

Question

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

Answer 1

您可以为此目的创建缓冲区。这里有一些代码可以帮助您入门。 （此时我没有vb6所以代码未经验证）

示例代码：

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

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

Get #file handle, position, Buffer

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

Put #file handle, position, Buffer

Answer 2

This tutorial介绍了如何从二进制文件读取和写入，有一节介绍如何从文件中读取数据块。