算術符号で圧縮

[Str$(old)]

.txtファイル　または　適当な文字列（５３４５６７２・・・）
を算術符号で圧縮したいのですが、Ｃ＋＋とかのサンプルコードしかありません。
activebasicでも算術符号で圧縮するソフトを作れるのでしょうか。
教えてください。

[konisi]

http://www.activebasic.com/aba/wiki.cgi
の
http://www.activebasic.com/aba/wiki.cgi ... 0%b5%bd%cc
は参考にならないでしょうか？

[str$(old)]

すいません、調べ不足でした。

konisi さん、ありがとうございます。

[Ｓｔｒ＄（ｏｌｄ）]

しょうがないとは言え、この圧縮には時間がかかりますね。処理を高速化したいのですが、

http://www2.starcat.ne.jp/~fussy/algo/algo8-10.htm
算術式の「レンジ　コーダー」と言うのは処理が早いらしいですね。
あのソースをどのように改良すればレンジ　コーダー式にできますか。
教えてください。

[ゲスト]

UNLHA32.DLLを使うのではダメなのですか？

[Ｓｔｒ＄（old）]

お答えありがとう御座います。
ＬＨＡは算術式ではないですよね？

ある程度早く、高い圧縮率のレンジ　コーダーで圧縮したのですが、

http://www.activebasic.com/aba/wiki.cgi ... 0%b5%bd%cc
のコードをどのように変えれば、レンジ　コーダー式になりますか。
教えてください。