Конференция VBStreets

**gaidar** » 09.11.2005 (Ср) 16:31

Владислав Петровский
Создание архиватора или простого упаковщика данных

http://vbstreets.ru/VB/Articles/66207.aspx

**Хакер** » 20.02.2006 (Пн) 14:15

Своеобразный хук на постинги в эту тему

(Если кто-то напостит, мне придёт E-Mail)

**alibek** » 20.02.2006 (Пн) 14:18

Public FileData As String

А почему String, а не Byte()?

**Хакер** » 20.02.2006 (Пн) 14:31

Ой alibek, потому что
[quote="Compile error"]
Constans, fixed-lenght strings, arrays, user-defined types and Declare statements not allowed as Public members of object modules
[\quote]

Или ты предлагаешь сделать массив private, и свойство, которое будет Join'ом собирать массив.

**alibek** » 20.02.2006 (Пн) 14:47

Зачем собирать?
В этом массиве будет содержимое файла.

**alibek** » 20.02.2006 (Пн) 14:48

Ну а возвращаться он будет в методе, в ByRef-аргументе.

**Хакер** » 20.02.2006 (Пн) 14:51

Ну уж если возвращать, то просто функцией. А зачем вообще такие сложности? Чем String так плох?

**alibek** » 20.02.2006 (Пн) 14:53

Да не плох.
Просто избыточен.
Да и с массивом проще и быстрее будет получить доступ к конкретному байту.

**Хакер** » 20.02.2006 (Пн) 14:55

Вот уж если придиратся, то вот к чему:

Код: Выделить всё: Open FileName For Binary as #hFile 'Открываем файл fLen = LOF(hFile) 'Опред. длину файла в байтах Redim bData(fLen) 'Изменяем размер массива For rPos = 1 To fLen 'Организуем цикл чтения Get #hFile, rPos, bData(rPos-1) 'Читаем байт и >> его в массив Next rPos Close #hFile 'Закрываем файл

Мы так будем 10 лет читать гиговый файл :lol:

Конференция VBStreets

Создание архиватора или простого упаковщика данных

Создание архиватора или простого упаковщика данных

Hook

Кто сейчас на конференции