КРИК ДУШИ : Алгоритмы архивации на VB

[hCORe]

Люди, кто может подсказать неплохой алгоритм архивации на VB? Я на www.planetsourcecode.com искал, но там только LZW и Huffman - что называется los primitivos.
LZW слишком медленный даже с маленьким словарем, Huffman слишком плохо сжимает. Пробовал их вместе соединить - текст жмется круче, а все остальное, как и было, - из рук вон плохо!

Есть ли алгоритмы на VB типа LZH или чего-нибудь подобного? Кто знает, пишите мне и - обязательно - ОСТАВЬТЕ ССЫЛКУ!!!

[gaidar]

Используй DLL. Столько уже реализованных алгоритмов, что диву даешься - зачем их переписывать?

[Taras2]

Люди, кто может подсказать неплохой алгоритм архивации на VB? Я на www.planetsourcecode.com искал, но там только LZW и Huffman - что называется los primitivos.
...

Можеш сильно удивиться, но не существует алгоритмов "круче" этих, в совместном контексте скорости работы и степени сжатия Все архиваторы, кроме arj и rar, используют именно эти алгоритмы. Rar использует подобные алгоритмы, но по скорости он не ахти, а степень сжатия не намного выше.
ЗЫ. никогда не задумывался, что означает LZH? LZH = LZW+Huffman.

[Taras2]

Используй DLL. Столько уже реализованных алгоритмов, что диву даешься - зачем их переписывать?

Если не трудно, подскажи несколько. Мне нужно запаковать не файл, а строку (MyString As String).
Спасибо.

[hCORe]

Люди, я же просил ссылки дать на нормальные библиотеки. Переписывать я их не собираюсь. Просто скачал несколько готовых кодов (Class Huffman с vbStreets и LZW MultiDic с planetsourcecode) и попытался их совместить. Попутно создал свой архивный формат. Жмет не так чтобы очень плохо, но ЖУТКО медленно (1 Mb text ->est. 48,5563 sec.)!

2Taras2 : Есть хороший алгоритм сжатия строк (LZW 4K VB Optimized) на http://www.planetsourcecode.com. Поищите по названию "LZW". Кто не найдет - могу дать скачать (если найду в дебрях своего компа). Про LZH это я знаю давно, поэтому и хотел сделать неплохую собственную реализацию: порознь они оч. плохо сжимают.

[Taras2]

...
Жмет не так чтобы очень плохо, но ЖУТКО медленно (1 Mb text ->est. 48,5563 sec.)!

Возможно это из-за того, что он постоянно дёргает MSVBVM60.DLL

2Taras2 : Есть хороший алгоритм сжатия строк (LZW 4K VB Optimized) на http://www.planetsourcecode.com. Поищите по названию "LZW". Кто не найдет - могу дать скачать (если найду в дебрях своего компа).

Спасибо, но я уже сам оттуда выкачал.

Про LZH это я знаю давно, поэтому и хотел сделать неплохую собственную реализацию: порознь они оч. плохо сжимают.

Они просто разные по принципу. LZW-рекурсивный, а Huffman-блочный. Теоретически Huffman не может сжать больше чем в len(блок).
ЗЫ. В качестве извращения могу предложить использовать сжатие командностроковым арховатором в режиме приема из стандартного ввода и выдачи в стандартный вывод (за ZIP не уверен, а GZIP www.gnu.org точно такое умеет). Запускаеш архиватор, передаёш ему свою строку, и забираеш его вывод в свою другую строку.

[hCORe]

Спасибо всем за оказанную помощь. Будем искать дальше