Чтение и запись 1000 байтов из файла в vb6

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

Более того, в вашем случае вам нужно будет отслеживать положение вfile

Get #file handle, position, Buffer

Также используйте Put для записи буфера чтения в другой файл.

Put #file handle, position, Buffer

Answer 2

В этом руководстве описано, как читать и писать из двоичных файлов, есть раздел о чтении блоков данных из файла.