encoding - Vb6 base64 で数値をエンコードする

Question

VB6次のような 20 桁の数値をエンコード/デコードする関数を備えたライブラリを探しています。

00001002201200000001

数値を圧縮するために必要です。文字列をエンコードする関数しか見つかりませんでしたが、数値を使用するとより多くの文字が生成されます。

Answer 1

独自の RLE (Run Length Encoding) アルゴリズムを作成できます。サンプルのように、データに繰り返し文字がたくさんある場合にのみ役立ちます。基本的に、繰り返される文字のセクションを、制御文字またはフラグ、文字が繰り返される回数のカウント、および文字自体に置き換えます。サンプルは † になりÿ0ÿ02012ÿ0ます。完全なサンプル モジュールはhttp://www.andreavb.com/tip030023.htmlにあります。

† エンコードによって印刷できない文字がいくつか生成されたため、エンコードされた正確な文字列を表示できませんでした。