VBNet - Форум - Разбить , собрать

Вопрос: Разбить , собрать Добавлено: 01.06.04 16:28

Автор вопроса: Barsik | Web-сайт: barsik.newmail.ru | ICQ: 343368641

Вопрос такой...

Программа должна собирать и разбивать файлы (file.exe и file.txt).

Собирает она так:

Dim arr1() As Byte
Dim arr2() As Byte

On Error Resume Next

Open "c:\file\file.exe" For Binary As #1
Open "c:\file\file.txt" For Binary As #2
Open "c:\file\file.kxz" For Binary As #3

ReDim arr1(FileLen("c:\file\file.exe"))
ReDim arr2(FileLen("c:\file\file.txt"))

Get #1, , arr1
Get #2, , arr2

Put #3, , arr1
Put #3, , arr2

Close

Как правильно их разделить???

Может какой-нить знак воткнуть между 1 и 2 массивом. но как его потом отыскать, ведь они могут быть в file.exe или file.txt???

Прошу помочь мне...

Заранее благодарен!!!

Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655	Профиль \| \| #1	Добавлено: 01.06.04 16:33
	Пиши в первых четырёх байтах (Long) своего файла длину первого из сливаемых файлов. Ответить

Номер ответа: 2 Автор ответа: Fallout Вопросов: 10 Ответов: 387	Web-сайт: mudator.by.ru Профиль \| \| #2	Добавлено: 01.06.04 16:52
	А если файл у меня преположим 8ГБ +) ? Уже описывали в форуме эту проблема и уже овтечали как разбить как собрать... Ответить

Номер ответа: 3 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #3	Добавлено: 01.06.04 17:24
	Тогда в первые 8 байт (LargeInteger) Ответить

Номер ответа: 4 Автор ответа: Fallout Вопросов: 10 Ответов: 387	Web-сайт: mudator.by.ru Профиль \| \| #4	Добавлено: 01.06.04 23:13
	я про то что он не так как надо делает.... а именно выделяет памяти с размер файла.... Ответить

Страница: 1 |